با سلام
با این کد میتونین سولو مورد نظر رو معرفی کنین و بعدش تمامی داده هایی که مربوط به اون سلول در اون ردیف هست رو به یک شیت جدید انتقال بدین
قسمت هایی که نیاز به تغییر هست رو با رنگ ابی مشخص هستند که بر حسب نیازتون تغییر بدین
با این کد میتونین سولو مورد نظر رو معرفی کنین و بعدش تمامی داده هایی که مربوط به اون سلول در اون ردیف هست رو به یک شیت جدید انتقال بدین
کد:
Option Explicit
Sub test()
Application.ScreenUpdating = 0
With Range("[COLOR=#0000ff]k1:k[/COLOR]" & Cells(Rows.Count, "[COLOR=#0000ff]k[/COLOR]").End(xlUp).Row)
.AutoFilter 1, "[COLOR=#0000ff]absorkhi[/COLOR]"
.Offset(1).EntireRow.Copy Sheets.Add.Range("a1")
.AutoFilter
End With
Application.ScreenUpdating = 1
End Sub
کامنت