مساعدة لوسمحتوا بسيطة جدا

عبدالله بن شهاب كتب:

السلام عليكم ورحمة الله وبركاته

ياريت من يساعد وساكون شاكرا له لو دعم الشرح بمثال بسيط

I have big list in excel sheet at the end of every row i make flag value 0 or 1

and make conditional format if that cell = 1 set all row in red color.

i need one macro to delet all rows at red color?

note: the list it's not static list.

every time i paste new data so flag value will be changed

أعزائي الكرام كما اخبرتكم ان لدي List في ملف Excel وفي D column وضعت شرط ناتحه 1 او 0

كتبت هذا الكود من أجل يحذف لي كل الصفوف التي محتوى الخلية D=1 ولكن تفاجأت بان الكود ينفذ على نصف الصفوف فقط ويبدا التنفيذ من الأسفل ياريت لو واحد فيكم يتكرم ويشوف وين الخلل في الكود

Dim z as integer, i as integer

For i = 2 To 200

z = Worksheets("sheet1").Range("z" & i).Value

If z = 1 Then

Rows(i).Select

Selection.Delete Shift:=xlUp

End If

Next i

تفضل

Dim z As Integer, i As Integer
For i = 2 To 200
z = Worksheets("Sheet1").Range("D" & i).Value
If z = 1 Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i