نوشته اصلی توسط
abantoor
با سلام من یک فایلی دارم که از شیت 1 اطلاعاتی رو برشرط اینکه کلمه okدر یکی از سلول ها وجود داشت کپی و در شیت دومpase میکنه و میخاستم موقعی که کپی میشه اون سطر پاک بشه و بعد در شیت دوم بشینه مشکل من دقیقا در مورد پاک کردن سطر فراخوانی شده هست که یکی در میان پاک میکنه و اطلاعات پشت سرهم با وجود شرط کلمه ok پاک نمیشه
نمونه فایل راهم گذاشتم ممنون میشم راهنماییم کنید تا مشکلم بر طرف بشه با تشکر
سلام
کد زیر رو جایگزین کد مربوط به باتن تکمیل خرید گنید :
کد:
Sub kharid_new()
z1 = Sheets("darkhast").Range("e" & Rows.Count).End(xlUp).Row
lsh2 = Sheets("kharid").Range("e" & Rows.Count).End(xlUp).Row + 100
For i = 4 To z1
If Sheets("darkhast").Cells(i, 9) = "ok" Then
Sheets("kharid").Range("e" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 5)
Sheets("kharid").Range("f" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 6)
Sheets("kharid").Range("g" & lsh2).End(xlUp).Offset(1, 0) = Sheets("darkhast").Cells(i, 7)
End If
Next i
For j = 4 To z1
Do While Sheets("darkhast").Cells(j, 9) = "ok"
Sheets("darkhast").Cells(j, 9).EntireRow.Delete
Loop
Next j
End Sub
یا حق.
علاقه مندی ها (Bookmarks)