Sayfadaki filtrelemenin Açık olup olmadığını denetleme

[Tarikkk_]

merhabalar. çalışma sayfamda activeX denetim ile textbox ta yapmış olduğum filtrelemenin açık olup olmadığını denetlemek istiyorum bunu yapabileceğim bir makro koduna ihtiyacım var. yardımlarınızı bekliyorum teşekkürler. Filtreleme Örnek Dosyası ektedir

 

[Korhan Ayhan]

Deneyiniz.

Sub Filtre_Kontrol()
    If ActiveSheet.AutoFilterMode Then MsgBox "Sayfada filtre var!", vbCritical
End Sub

 

[Tarikkk_]

Deneyiniz.

Sub Filtre_Kontrol()
    If ActiveSheet.AutoFilterMode Then MsgBox "Sayfada filtre var!", vbCritical
End Sub

sağolun hocam. harika tam aradığım şey çok teşekkür ederim.