[Tasos]

Καλησπέρα Φώτη!

Δοκίμασε τον παρακάτω κώδικα εκτελώντας το Sub test():

Sub test()
    If ActiveSheet.AutoFilterMode Then
        MsgBox CountAutofilterVisibleLines(ActiveSheet.AutoFilter.Range)
    Else
        MsgBox "Δεν υπάρχει αυτόματο φίλτρο!"
    End If
End Sub

Function CountAutofilterVisibleLines(AutoFilterRange As Range) As Long
    CountAutofilterVisibleLines = AutoFilterRange.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
' Το -1 παραλείπεται αν η κεφαλίδα του φίλτρου περιέχει δεδομένα.
End Function

Καλή συνέχεια!

Φιλικά

Τάσος