FilterMode Açık mı değil mi? kontrol etmek nasıl olur?

[hsayar]

[/FONT]
[FONT=Courier New]Sub FiltreKapalı ise aç ()
   Eğer [FONT=Verdana][COLOR=red]Sheets("data") sayfasının [/COLOR][/FONT][/FONT][FONT=Courier New][COLOR=red]("B4:P4") hücre aralığında veri süzme kapalı ise (aşağı ok yoksa)[/COLOR] Then Sheets("data").Range("B4:P4").AutoFilter
End Sub[/FONT]
[FONT=Courier New]

Sheets("data") sayfasının ("B44") hücre aralığında veri süzme kapalı ise (aşağı ok yoksa) nasıl denir?

 

[hamitcan]

If Sheets("data").AutoFilterMode = true Then msgbox "Evet"

şeklinde deneyin.

 

[hsayar]

If Sheets("data").AutoFilterMode = False Then msgbox "Evet"

şeklinde deneyin.

sn hocam, lakanıza teşekkür ederim. ancak aşağı ok var fakat herhangi bir süzme işlemi yok ise yine evet dönüyor.

 

[hamitcan]

Verdiğim örnekte bir değişiklik yaptım. Ama yine istedinizi karşılamıyor zannedersem. Kod, sadece fitrenin varlığını kontrol ediyor.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub fitrelenmisalan()

With Worksheets("Sayfa1")
For i = 1 To 2
If .AutoFilterMode Then
        With .AutoFilter.Filters(i)
            If .On Then MsgBox Cells(1, i) & " fitrelenmiş"
        End With
    End If
Next
End With
End Sub

 

[hsayar]

hamitcan hocam
a44 aralığındaki hücrelerin yanında aşağıdaki resimler varsa işlem yapmayacak

yoksa

resmini getirecek yani
Sheets("data").Range("B44").AutoFilter
kodu olacak.

verdiğiniz kod

durumunda sonuç döndürüyor.

 

[hamitcan]

Umarım doğru anlamışımdır.

Sub fitreyoksafiltrekoy()
If ActiveSheet.AutoFilterMode = False Then
 Sheets("data").Range("B4:P4").AutoFilter
End If
End Sub