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

[maziardm]

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

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

با تشکر

[حسام بحرانی]

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

[Nima]

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

[torkeashegh]

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

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

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

[torkeashegh]

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

[torkeashegh]

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

[majid_mx4]

با سلام

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

با تشکر میر

[ali.b]

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

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