فرض کنید 20 تا سطر داریم و از این 20 تا، 10 تاشون رو فیلتر کردیم. حالا می خوام سلول های محدوده فیلتر شده رو تو یه شیت دیگه کپی کنیم. باید چی کار کرد
با تشکر
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
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
کامنت