حذف أوراق عمل بناءً على القيم داخل نطاق محدد

[عاشق الاكسيل]

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

ارجو عمل كود لمسح صفحات عمل بناء على نطاق خلايا

Copy Sheet Based On Range Values YasserKhalil.rar

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

الأخ الكريم مصطفى إليك الملف التالي

Sub DeleteSheets()
    Dim I As Long
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("بداية")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        For I = 3 To 10
            For Each SH In Worksheets
                If WS.Cells(I, "B").Value = SH.Name Then SH.Delete
            Next SH
        Next I
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Delete Sheets Based On Range Values YasserKhalil.rar