Aktif çalışma sayfasında filtre uygulanmışmı

[hsayar]

Aktif çalışma sayfasında filtre uygulanmışmı kontrolü nasıl yapılır

Eğer filtre uygulanmamışsa
çalışma sayfasında filtre uygulanmamıştır diyerek prosodürden çıksın(exit sub)
kodları nasıl olamalıdır.

 

[Recep İpek]

Aşağıdaki linki inceleyiniz.

http://www.contextures.com/xlautofilter03.html

 

[hsayar]

teşekkürler hocam

 

[hsayar]

ben şöyle bir çözüm buldum

Sub test()
If ActiveSheet.FilterMode = False Then
     MsgBox "Veriler Filtrelenmemiş"
Else
    MsgBox "Veriler Filtrelenmiş"
End If
End Sub

eğer otomatik filtre uygulanmamış (okçuklar yoksa) ve ya filtre uygulanmış ama okçuk mavi değilse
MsgBox "Veriler Filtrelenmemiş"
değeri
herhangi bir okçuk mavi ise MsgBox "Veriler Filtrelenmiş" değeri dönüyor.