Filtreden Çıkma

[mustafa1205]

Filtreden Çıkma Kodu

Aşağıdaki kod ile sayfa eğer bir filtrede ise çıkış yapılabiliyor. Ancak sayfa filtrede değilse filtreli hale getiriyor. Sayfa da filtre olsun olmasın çıkış kodu nedir acaba ? Birde sayfa1 , sayfa2, sayfa3, için tek tek seçmeden direk filtreden çıkma kodu olabilir mi ?

"Selection.AutoFilter"

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Test()
    If ActiveSheet.AutoFilterMode Then
        Range("A1").AutoFilter
    End If
End Sub

 

[mustafa1205]

Teşekkürler Korhan Hocam. Çok sağolun...