[حل شده] کپی سلول های محدوده فیلتر شده [بایگانی]

maziardm

2013/11/24, 23:40

با سلام و شب خوش

فرض کنید 20 تا سطر داریم و از این 20 تا، 10 تاشون رو فیلتر کردیم. حالا می خوام سلول های محدوده فیلتر شده رو تو یه شیت دیگه کپی کنیم. باید چی کار کرد

با تشکر

حسام بحرانی

2013/11/25, 03:25

با سلام ، محدوده مورد نظر را انتخاب نموده و Copy نمایید ، به شیت مورد نظر رفته و Paste نمایید . از Paste Option ( که بلافاصله پس از Paste در سلول پایینی جهت تعیین تکلیف نهایی Paste ایجاد می شود ) ، گزینه آخر یعنی Link Cells را انتخاب نمایید . با این کار هر تغییری که در ردیف های فیلتر شده انجام گردد ( مثلاً 10 ردیف انتخابی ) در این ردیف ها نیز اعمال می شود و در واقع در این مورد ، تابع تغییرات فیلترینگ شیت اصلی خواهد بود .
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

Nima

2013/11/25, 16:08

دوست عزیز مناسبترین راه برای اینکار استفاده از Advanced Filtering هستش که از تب Data وقسمت Sort&Filter قابل دسترسی است.

torkeashegh

2014/12/31, 16:26

با سلام ، محدوده مورد نظر را انتخاب نموده و Copy نمایید ، به شیت مورد نظر رفته و Paste نمایید . از Paste Option ( که بلافاصله پس از Paste در سلول پایینی جهت تعیین تکلیف نهایی Paste ایجاد می شود ) ، گزینه آخر یعنی Link Cells را انتخاب نمایید . با این کار هر تغییری که در ردیف های فیلتر شده انجام گردد ( مثلاً 10 ردیف انتخابی ) در این ردیف ها نیز اعمال می شود و در واقع در این مورد ، تابع تغییرات فیلترینگ شیت اصلی خواهد بود .
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

با سلام و عرض ادب

به نظر من بهترین کار برای کپی کردن داده های فیلتر شده در فایل اکسل استفاده از دکمه های ترکیبی ;+Alt هستش با این کار فقط داده های فیلتر شده به شیت جدید انتقال می یابند
با تشکر

torkeashegh

2014/12/31, 16:27

البته بعد از استفاده از این دستور باید از دستور کپی و پیست برای ادامه کار استفاده کنیم

torkeashegh

2014/12/31, 16:28

دوستان اگر سوال تخصصی در زمینه اکسل دارند به اشتراک بگذارند شاید کمکی بتونم بکنم
مرسی

majid_mx4

2015/01/01, 12:37

با سلام

لطفا فایل ضمیمه را تماشا کنید

با تشکر میر

ali.b

2015/01/03, 07:25

سلام
شما بای این کد میتونید با تعریف یک دکمه هر محدوده ای رو بر حسب متن دلخواه فیلتر کنید.

Sub nash()
Application.ScreenUpdating = False
With Range("L3:L" & Cells(Rows.Count, "L").End(xlUp).Row)
.AutoFilter 12, Sheet1.Range("M5")
.Offset(0).EntireRow.Copy
Sheets("2").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
.AutoFilter 12
ActiveSheet.Cells.EntireRow.Hidden = False
Range("a2").Select
End With
Sheet1.Select
Application.ScreenUpdating = True
End Sub