حدف الصفوف التى تحتوي على كلمة VISUALISEUR بالكود VBA

[BAbGHDADI]

السلام عليكم 

المرجو من الاخوة مساعدتي  

لقد قمت بكتابة كود من اجل حدف الصفوف التى لا تحتوي على كلمة  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

[Ali Mohamed Ali]

وعليكم السلام-تفضل يمكنك استخدام هذا الكود

Sub DeleteRow()
Dim r As Long
Dim FirstRow As Long
Dim LastRow As Long
FirstRow = 8
LastRow = Cells(Rows.Count, "I").End(xlUp).Row - 1
For r = LastRow To FirstRow Step -1
If Cells(r, "i") = "VISUALISEUR" Then
Rows(r).Delete
End If
Next r
End Sub

VISUAL1.xlsm

[محي الدين ابو البشر]

بالاذن منكم

ولاثراء الموضوع!

Sub DeleteRow()
    Dim i As Long
    Dim lr As Long
    Dim rr As Range
    Dim rrr As Range
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To 8 Step -1
        If Cells(i, 9) <> "VISUALISEUR" Then
            If rr Is Nothing Then
                Set rr = Cells(i, 9)
            Else
                Set rrr = Cells(i, 9)
                Set rr = Union(rrr, rr)
            End If
        End If
    Next
    rr.EntireRow.Delete
End Sub

 

[BAbGHDADI]

الكود يعمل شكرا اخوتي وبارك الله فيكم