سؤال عن كود يحذف الصفوف التي تحتوي علي خلايا بها (اداري - نشاط - .....)

[رشا يوسف]

السؤال داخل الملف المرفق بالتوضيح نور مايو.rar

[ياسر خليل أبو البراء]

الأخت الفاضلة رشا يوسف

يرجى عدم تخصيص عضو معين لتقديم المساعدة فلربما كان هناك من هو لديه حلول أفضل .. ويمتنع عن تقديم المساعدة بسبب ذلك الأمر

إليكي الكود التالي عله يفي بالغرض

Sub DeleteEntireRowForSpecificWords()
    Dim Rng As Range, Cell As Range, I&

    On Error Resume Next
    Set Rng = Application.InputBox("Select Range", "Officena", Selection.Address, Type:=8)
    Set Rng = Intersect(Rng, Columns(4))
    If Rng Is Nothing Then MsgBox "Process Cancelled": Exit Sub
    
    Application.ScreenUpdating = False
        For I = Rng.Rows.Count + Rng.Row - 1 To Rng.Row Step -1
            If Cells(I, 4) = "نشاط" Or Cells(I, 4) = "ش+ن" Or Cells(I, 4) = "ادارى" Or Cells(I, 4) = "خط" Or Cells(I, 4) = "كاتب" Then Cells(I, 4).EntireRow.Delete
        Next I
    Application.ScreenUpdating = True
End Sub

 

Delete Entire Row For Specific Words YasserKhalil.xls

[عبد العزيز البسكري]

بارك الله فيك أستاذنا الغالي ياسر خليل .. دوما عندك الحلول المستعصية .. وفقك الله و سدد خطاك