Sayfadan çıkarken veya açarken filtre varsa temizleme

[Tarikkk_]

merhabalar. sayfa açılışında veya kapanışında varsa tüm filtrelerin temizlenmesini istiyorum forumda böyle birşey buldum fakat bir türlü kullanamadım

If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
bu kodu nasıl kullanıyoruz teşekkür ederim

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Selection.AutoFilter
End Sub

 

[Tarikkk_]

Bu şekilde deneyiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Selection.AutoFilter
End Sub

hocam bunu tam olarak nereye uyguluyoruz.
benim modül içerisinde bir listeleme makrom var o makronun en başına listeleme yapmadan sayfadaki filtrelemeyi temizlemesini istiyorum.
tabi filtreleme varsa temizleyecek ama filtreleme olup olmadığını kontrol edebilecek bir kod bulamadım yardımlarınızı bekliyorum teşekkürler.

 

[Seyit Tiken]

Kodu güncelledim, Çalışma Kitabına yapıştırın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Selection.AutoFilter
End Sub

 

[Korhan Ayhan]

Alternatif;

Filtreyi kaldırmak istediğiniz bölüme aşağıdaki satırları ekleyip deneyiniz.

On Error Resume Next
ActiveSheet.ShowAllData 
On Error Goto 0