"ActiveSheet.ShowAllData" Filtrelemenin Kaybolması Sorunu

[baydeniro]

Merhaba Arkadaşlar,

Filtreleme konusunda yardımınızı rica ediyorum. DATA sayfasına gelince B4:G4 aralığına filtre koymasını istiyorum. Ama sayfadan ayrılınca filtreleme yapılmış ise tğm datayı göstermesini ancak AutoFilter yapısını bozmamasını istiyorum. Bunun için aşağıdaki kodları kullanıyorum. Ama sayfadan çıkıp tekrar gelince B4:G4 aralığındaki filtre ikonları kaybolmuş oluyor. Buna bir çare var mıdır ?

Private Sub Worksheet_Activate()
Range("B4:G4").Select
Selection.AutoFilter
End Sub

Private Sub Worksheet_DeActivate()
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Activate()
    If ActiveSheet.AutoFilterMode = False Then Range("B4:G4").AutoFilter
End Sub

Private Sub Worksheet_DeActivate()
    If Sheets("DATA").AutoFilterMode Then Sheets("DATA").ShowAllData
End Sub

 

[baydeniro]

Üstadım Korhan Ayhan, her zamanki gibi yardımsever ve müthişsiniz. Çok teşekkür ediyorum. Elleriniz dert görmesin. Sağlıcakla kalın.