مطلوب كود بحث وحذف

[الســـــــاهر]

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

 

الاخوة والاساتذة الافاضل

 

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

 

مرفق  ملف يوضح المطلوب

 

 

وجزاكم الله خير الجزاء

Clear.rar

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

جرب الكود التالي

Sub ClearIfFound()
    Dim Cell As Range
    Dim blFound As Boolean
    Application.ScreenUpdating = False
        For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row)
            blFound = Application.WorksheetFunction.CountIf(Range("L1:U5"), Cell.Value)
            If blFound = True Then Cell.EntireRow.ClearContents
        Next Cell
    Application.ScreenUpdating = True
End Sub

[الســـــــاهر]

استاذنا الفاضل 

 

ياسر خليل

 

هذا المطلوب تماما 

 

جزاكم  الله خير الجزاء وبارك لك في علمك

 

 

تحياتي

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

الحمد لله أخي الحبيب الساهر أن تم المطلوب على خير ..

ومشكور على اختيار المشاركة كأفضل إجابة ليظهر للأخوة أن الموضوع مجاب ويلتفتوا لغيره من الموضوعات ليستفيد الجميع

تقبل تحياتي