Excel kitabindaki bulunan sayfalardaki filtreleri kaldirma

[trbyte]

Merhaba arkadaslar benim bir excel kitabim var ve 100den fazla sayfasi mevcut ve bu sayfalarda bir sürü filtreler yapilmis,
filtre yapildigi icinde aradigim verileri bulamiyorum,
bu filtreleri tek seferde kaldirbilirmiyim acaba
yardimlariniz icin tesekkürler..

 

[veyselemre]

Sub filtreSecimleriniKaldir()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.AutoFilterMode Then
            sh.AutoFilter.ShowAllData
        End If
    Next sh
End Sub

 

[alicimri]

Deneyin

Sub Makro1()
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).ShowAllData
Next
End Sub

 

[trbyte]

Sub filtreSecimleriniKaldir()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.AutoFilterMode Then
            sh.AutoFilter.ShowAllData
        End If
    Next sh
End Sub

tesekkür ederim calisiyor