[Tasos]

Φώτη καλησπέρα!
Το ζητούμενο σου ήταν η καταμέτρηση των εμφανών γραμμών ενός φίλτρου.

Όχι πόσα μη κενά κελιά περιέχει μια φιλτραρισμένη στήλη (αυτό το κάνει η Subtotal() που πολύ σωστά πρότεινε ο Λευτέρης).

Αυτός ήταν και ο λόγος που σου πρότεινα λύση με VBA.

Αν θέλεις να αντικαταστήσεις την Subtotal() με VBA τότε άλλαξε τη μοναδική γραμμή στη συνάρτηση CountAutofilterVisibleLines όπως φαινεται παρακάτω:

CountAutofilterVisibleLines = WorksheetFunction.Subtotal(3, AutoFilterRange.Columns(1)) - 1

Θα πρέπει να προσαρμόσεις το "Columns(1) " με τον αριθμό που αναλογεί στη στήλη σύμφωνα με την κατάταξη της στην περιοχή του φίλτρου.

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

Τάσος