[Συναρτήσεις] Καταμέτρηση φανερών γραμμών.

[φωτης]

Καλησπέρα στην παρέα του forum!

Το πρόβλημα που αντιμετώπισα ήταν να εφαρμόσω μια συνάρτηση COUNT σε ένα φύλλο εργασίας όπου είχε εφαρμοστεί ένα φίλτρο. Έτσι πχ από τις 100 εγγραφές ήταν εμφανείς οι 50.
Εφαρμόζοντας όμως την COUNT διαπίστωσα οτι καταμετρούσε και τις 100 γραμμές (και αυτές που ήταν κρυφές).

Από αναζήτηση στο internet βρήκα αυτό τον κώδικα και ο οποίος αντιμετώπισε το πρόβλημα:


Function MyRowCount(MyRange As Range) As Integer

Dim c As Range
For Each c In MyRange
If (c.Value > 0) And (c.EntireRow.Hidden = False) Then
MyRowCount = MyRowCount + 1
End If
Next c

End Function


Ήθελα να ρωτήσω την παρέα εάν έχει να προτείνει βελτιώσεις στον κώδικα που έκανα post.

Ευχαριστώ για τον χρόνο σας!