Καλησπέρα
Χρήστο εγκατέλειψα την ενσωματωμένη συνάρτηση SUMPRODUCT((N4:N2005<>"")*1) και δημιούργησα με
VBA την MyCounta, για να κάνει σωστή καταμέτρηση των κελιών και στην περίπτωση απόκρυψης γραμμών.
Αρχικά δεν είχα παρατηρήσει ότι η απόκρυψη των γραμμών γινόταν με τη βοήθεια πλαισίων κειμένου και με κώδικα
VBA.
Μόλις το διαπίστωσα, προκειμένου να μελετήσω πως αντιδρά η συνάρτηση MyCounta και στην περίπτωση αυτή, διέγραψα τελείως το σχετικό μήνυμά μου και το συνημμένο αρχείο που είχα ονομάσει agwges.xls
Στη συνέχεια αφού έκανα μια μικρή αλλαγή στον κώδικα της ρουτίνας SetAutofilter, πραγματοποίησα την ανάρτηση #4 (POST #4).
Το αρχείο agwges.xls στο POST #5, περιέχει τη συνάρτηση MyCounta, αλλά όχι και τη μεταβολή στη ρουτίνα SetAutoFilter.
Έτσι όταν φιλτράρουμε με τη βοήθεια των πλαισίων κειμένου, η συνάρτηση εμφανίζει λάθος.
Φαίνεται ότι στηρίχθηκε στο αρχικό agwges.xls, που παρέμεινε για λίγο αναρτημένο, μέχρι να το διαγράψω.
Φιλικά/Γιώργος