مسح عوامل التصفية من كل أوراق العمل في المصنف

[ahmad5544]

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

اريد كود لمسح عوامل التصفية من كل اوراق العمل وعددها اكثر من 100

تم تعديل أكتوبر 17, 2023 بواسطه ahmad5544

[أ / محمد صالح]

جرب تشغيل هذا الكود في كل الشيتات

Sub Clear_All_Filters()
On Error Resume Next
  ActiveSheet.ShowAllData
On Error GoTo 0
End Sub

بالتوفيق

[محمد هشام.]

تفضل اخي يمكنك اختيار ما يناسبك 

 

Option Explicit
' الغاء فلترة جميع اوراق العمل 
Sub Sup_tous_les_filtres()
 
Dim WS As Worksheet

 For Each WS In Worksheets
    
    If WS.AutoFilterMode = True Then
        Debug.Print WS.Name
        WS.AutoFilterMode = False
    End If
Next

End Sub
'**********او***********
Sub Sup_tous_les_filtres2()

 Dim WS As Worksheet

 For Each WS In Worksheets
  If WS.AutoFilterMode Then
       WS.AutoFilter.Range.AutoFilter
  End If
 Next
End Sub
'********تحديد تسلسل معين ***********
Sub vSup_tous_les_filtres3()
Dim i As Long
Dim compteur As Long
' عدد اوراق العمل
compteur = 100
' من ورقة 1 الى 100
For i = 1 To compteur
On Error Resume Next
If Sheets(i).AutoFilterMode Then
    Sheets(i).AutoFilter.Range.AutoFilter
    On Error GoTo 0
    End If

Next i

End Sub

اخي لقد تم تزويدك من قبل  بالاكواد اللازمة  !!!

تفضل جرب  هدا مثال لطلبك

الغاء فلترة جميع الاوراق.xlsb

[ahmad5544]

الف شكر لك اخي حاليا اجرب الملف شكرا جزيلا لك

شكرا لك 
لم استطع تطبيق هذه الاكواد على ملفي
هل يوجد طريقة معينة من اجل تطبيقها على ملفي 
 

[محمد هشام.]

ربما 

Option Explicit
Sub Sup_tous_les_filtres()
Dim WS As Worksheet
For Each WS In Worksheets
Application.ScreenUpdating = False
WS.Activate
On Error Resume Next
WS.Range("A8").Select
ActiveSheet.ShowAllData
Selection.End(xlDown).Select
On Error GoTo 0
Next
End Sub

 

[ahmad5544]

في 17‏/10‏/2023 at 18:58, أ / محمد صالح said:

شكرا لك خير الكريم والله كان موضوع شاق لي كثيرا شكرا لك تم بنجاح