Filtrenin Hangi Satırda Olduğu

[baydeniro]

Merhaba Arkadaşlar,

Auto.Filtrenin hangi satırda kurulu olduğunu veya herhangi bir satırda kurulu olup olmadığını makro yoluyla tespit etmek mümkün mü ?

 

[Haluk]

Sub Test()
    'Haluk - 11/06/2019
    'sa4truss@gmail.com
    If ActiveSheet.AutoFilterMode Then
        MsgBox "Auto Filter aktif durumda, etkili alan: " & ActiveSheet.AutoFilter.Range.Address
    Else
        MsgBox "Auto Filter aktif değil..."
    End If
End Sub

.

 

[baydeniro]

Sub Test()
    'Haluk - 11/06/2019
    'sa4truss@gmail.com
    If ActiveSheet.AutoFilterMode Then
        MsgBox "Auto Filter aktif durumda, etkili alan: " & ActiveSheet.AutoFilter.Range.Address
    Else
        MsgBox "Auto Filter aktif değil..."
    End If
End Sub

.

Haluk üstadım elleriniz dert görmesin, çok çok teşekkür ediyorum. Sağlıcakla kalın