فلترة واحدة على عدة ورقات عمل

[maher alsamman]

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

يرجى المساعدة بتوضيح طريقة عمل فلترة واحدة لأكثر من ورقة عمل بآن واحد علماً ان جميع الاوراق تبدأ برقم موجود بالعمود A واريد بفلتر واحد ان يقوم بالتصفية على جميع الاوراق  ..ولكم جزيل الشكر

انتبه من فضلك .. مشاركة مكررة فقد تـــم بالفعل حذف المشاركة الأخرى

New Microsoft Excel Worksheet.xlsx

[محمد هشام.]

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

تفضل اخي  يمكنك اختيار معيار الفلترة في خانة  (D1) او ادخاله يدويا لفلترة جميع الاوراق على نفس المعيار

Sub Filter_Me()
Dim ans As String
Dim T As ListObject
MH = Sheets("Drawing").Range("D1")
    
For i = 1 To Sheets.Count

    For Each T In Sheets(i).ListObjects
        T.Range.AutoFilter Field:=1, Criteria1:=MH
    Next
Next
End Sub

''''الغاء الفلترة من جميع الاوراق
Sub Remove_Filters_From_Workbook()
    Dim MH As Worksheet
    Dim lstObj As ListObject
    For Each MH In Worksheets
        For Each lstObj In MH.ListObjects
          lstObj.AutoFilter.ShowAllData
        Next lstObj
    Next MH
End Sub

New Microsoft Excel Worksheet_MH.xlsm

[maher alsamman]

شكراً جزيلاً أخي الكريم   ..بارك الله فيك وجزاك خيراً