(آموزشی) انتقال اطلاعات سلول های یکسان به شیت دیگه

[ali.b]

با سلام
با این کد میتونین سولو مورد نظر رو معرفی کنین و بعدش تمامی داده هایی که مربوط به اون سلول در اون ردیف هست رو به یک شیت جدید انتقال بدین

Option Explicit

Sub test()

Application.ScreenUpdating = 0

With Range("k1:k" & Cells(Rows.Count, "k").End(xlUp).Row)
    .AutoFilter 1, "absorkhi"
    .Offset(1).EntireRow.Copy Sheets.Add.Range("a1")
    .AutoFilter
End With

Application.ScreenUpdating = 1

End Sub

قسمت هایی که نیاز به تغییر هست رو با رنگ ابی مشخص هستند که بر حسب نیازتون تغییر بدین

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[~M*E*H*D*I~]

ممنون
لطفا برای مطالب آموزشی از تگ «آموزشی» استفاده کنید نه تگ «حل شده»

[ali.b]

متاسفانه برای من قسمت ارسال مطالب اموزشی غیر فعال هست
چشم تگ حل شده رو نمیزنم