Makro ile Dilimleyicileri İptal Etmek

[haimow]

Merhaba,

ABC isimli çalışma kitabımda XYZ isimli sheette, birden fazla dilimleyici (Filtreleme) kullanıyorum.
Bunların tek bir kod ile sıfırlanmasını istiyorum, yardımınızı rica ederim.

Teşekkürler

 

[uzmanamele]

Merhaba
Deneyiniz.

Sub ClearOutline()
  Cells.ClearOutline
End Sub

 

[haimow]

Maalesef sizin kod bu şekilde hata verdi, yine de teşekkürler.

Google araştırmaları sonunda doğru kodu buldum

Sub LoopThroughTablesInsideWorkbook()
    Dim myTable     As ListObject
    Dim mySheet     As Worksheet
    
    For Each mySheet In Worksheets
        For Each myTable In mySheet.ListObjects
            myTable.AutoFilter.ShowAllData
        Next myTable
    Next mySheet
    
End Sub