استفسار عن خطاء فى كود

[sci_mahmoud_atia@hotmail.com]

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

استفسار بخصوص كود

عملت كود vba

Sub deleteRows()

For Each cell In Selection
 If cell.Text = 1 Then
cell.EntireRow.Delete
End If
Next cell
End Sub

لكن لما اجى انفذه  على قيم مثل

1

1

0

1

1

بيمسح صف من الرقمين 1 ال فوق وصف من الرقمين 1 الل تحت لكن انا عايزه يمسح كل الصفوف ال فىها 1 مره واحده

مرفق الشيت

Book1.rar

[shreif mohamed]

Sub deleterows()
    Dim i, j As Long
    i = Cells(Rows.Count, 7).End(xlUp).Row
    For j = i To 1 Step -1
        If Cells(j, 7) = 1 Then
            Cells(j, 7).EntireRow.Delete
        End If
    Next
End Sub

 

تم تعديل نوفمبر 24, 2017 بواسطه shreif mohamed