السلام عليكم
المرجو من الاخوة مساعدتي
لقد قمت بكتابة كود من اجل حدف الصفوف التى لا تحتوي على كلمة VISUALISEUR لكن لا يعمل ... عليك بوضع الكود بهذا الشكل داخل المشاركة
Sub SUPP()
Dim i As Integer
Dim LR As Integer
LR = ActiveSheet.UsedRange.Rows.Count
For i = 8 To LR Step -1
If Cells(i, 9) <> "VISUALISEUR" Then Rows(i).Delete
Next
End Sub
VISUAL1.xlsm