درخواست کمک برای انتقال یه ردیف از شیتی با شرط یک سلول به شیت دیگر تا زمانیکه تمام ردیف ها انتقال پیدا کنه

[mrtj]

با سلام خدمت شما و عرض ادب
من یه شیت از مشخصات پرسنلی دارم که میخواهم با شرط اینکه امتیاز واحد آن بالاتر از 25% باشه تمام آن ردیف را کپی کنه و به شیت دیگر ببره تا زمانی که تمامی ریفهایی که این شرط را داره انجام بده

[iranweld]

با سلام

در فایل پیوست امتیازات ستون C در صورتیکه مساوی یا بالای 25 درصد باشد به شیت بعد منتقل میگردد.

چون فایلی ضمیمه نگردید کدهای ذیل را در فایل خود اصلاح کنید

Sub test()

Sheet2.Cells.ClearContents

z1 = Cells(Rows.Count, "A").End(xlUp).Row

Z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1

For I = 2 To z1

If Range("c" & I) >= 0.25 Then

Range("A" & I & ":C" & I).Copy Destination:=Sheet2.Range("A" & Z2)

Z2 = Z2 + 1

End If

Next

Sheet2.Select


End Sub