AutoFilter sayısını nasıl biliriz.

[mozdem]

Merhabalar,
Bir sayfadaki
AutoFilter sayısını nasıl biliriz.

 

[Levent Menteşoğlu]

Kasdettiğiniz filtre edilmiş veri sayısımı yoksa alan sayısımıdır?

 

[mozdem]

Kasdettiğiniz filtre edilmiş veri sayısımı yoksa alan sayısımıdır?

Alan sayısı
Teşekkür ederim hocam

 

[Ferhat Pazarçevirdi]

Aktif sayfa üzerinde;

Kaç sütunda filtre var? derseniz, aşağıdaki satırı kullanın.

ActiveSheet.AutoFilter.Filters.Count

Kaç tane aktif filtre var? derseniz, aşağıdaki kodu kullanın.

Sub Deneme()
    Dim wks As Worksheet
    Dim flt As Filter
    Set wks = ActiveSheet
    For Each flt In wks.AutoFilter.Filters
        If flt.On Then x = x + 1
    Next
    MsgBox "Aktif Filtre sayısı : " & x & " adet"
    Set wks = Nothing
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kod ile filtre edilmiş alan sayısını bulabilirsiniz.

Sub suzulmusalansayisi()
For a = 1 To ActiveSheet.AutoFilter.Filters.Count
If ActiveSheet.AutoFilter.Filters.Item(a).On Then c = c + 1
Next
MsgBox c & " alan filtre edilmiştir."
End Sub

Süzülmüş alan adreslerinide bulmak isterseniz aşağıdaki gibide kullanabilirsiniz.

Sub suzulmusalanlar()
For a = 1 To ActiveSheet.AutoFilter.Filters.Count
If ActiveSheet.AutoFilter.Filters.Item(a).On Then
c = c + 1
deg = deg & ActiveSheet.AutoFilter.Range.Cells(a).Address(0, 0) & Chr(10)
End If
Next
MsgBox deg
End Sub

 

[mozdem]

Teşekkür

Levent ve Ferhat hocam ilginize çok teşekkür ederim. Ellerinize sağlık. Sayenizde problemi çözdüm.