Filtre Temizleme Makrosu - Hata

[winstoncash]

Dosyamdaki sayfalardan birinde Tablo4 isimli tablo mevcut. Bu tabloda filtreleme yapılsa bile başka sayfaya geçildiğinde filtreleme işlemini kaldırmasını istiyorum. Aşağıdaki şekilde kodladım ama son satırda hata veriyor. Sebebini anlayamadım. Yardımcı olabilir misiniz?

Private Sub Worksheet_Deactivate()

Sheets("Stoklar").ListObjects("Tablo4").Sort.SortFields. _
        Clear
    Sheets("Stoklar").ShowAllData
    
End Sub

 

[winstoncash]

Verdiği hata mesajı da şu şekilde

 

[Haluk]

Son satırı aşağıdaki ile değiştirip, deneyin...

    If Sheets("Stoklar").ListObjects("Tablo4").AutoFilter.FilterMode Then Sheets("Stoklar").ShowAllData

.

 

[winstoncash]

Son satırı aşağıdaki ile değiştirip, deneyin...

    If Sheets("Stoklar").ListObjects("Tablo4").AutoFilter.FilterMode Then Sheets("Stoklar").ShowAllData

.

Maalesef aynı yerde aynı hatayı verdi.

 

[Haluk]

O zaman dosyayı görmek gerekir...

.

 

[winstoncash]

O zaman dosyayı görmek gerekir...

.

filtreleme dışında satır gizlemediğim için aşağıdaki gibi çözdüm, şimdilik ihtiyacımı giderdi. Teşekkür ederim ilginiz için.

Sheets("Stoklar").rows.hidden=false