Sayfa kapanınca filtreleme-tümünü seç-tamam

[muyat]

Bir sayfada filtreleme yaptıktan sonra başka bir sayfaya geçtigimde;
Makromuz "Filtreleme -tümünü seç-tamam yaparak ilgili sütunu tekrar eski haline getirecek?
Bunu nasıl yapabilirim.Ama filtreleme işareti hep kalcak.Filtreleme tamamen kalkmayacak yani.
Aşagıdaki kodu denedim olmadı.Gerçi aşagıdaki kod filtrelemeyi tamamen kaldırıyor ama istedigim bu değil.
Private Sub Worksheet_Deactivate()
ActiveSheet.AutoFilterMode = False
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Deactivate()
    With Sheets("Sayfa1")
        If .AutoFilterMode Then
            On Error Resume Next
            .ShowAllData
            On Error GoTo 0
        End If
    End With
End Sub

 

[muyat]

Çok teşekkür ederim.Çok işime yaradı.