[Συναρτήσεις] SUBTOTAL

[xristos]

Φίλοι του φόρουμ Καλησπέρα.
Έχω ένα πρόβλημα με τον τύπο SUBTOTAL(3;N4:N2005) στην στήλη Ν.
Όπως θα δείτε και στο συνημμένο ενώ σε κάποια σειρά
υπάρχει κενό αυτό το υπολογίζει ως σαν να υπάρχει.
Πως λύνεται το πρόβλημα;;; Σας ευχαριστώ

[kapetang]

Χρήστο δοκίμασε τον τύπο: =SUMPRODUCT((N4:N2005<>"")*1)

[xristos]

Γιώργο σε ευχαριστώ για την άμεση απάντησή σου.
Στην στήλη Ν που το δοκίμασα δουλεύει μια χαρά, αλλά όταν
εφαρμόζω φίλτρο δεν ανταποκρίνεται μένει το ίδιο ποσό.
Επίσης θα ήθελα και μία λύση για την στήλη AU όπου σε αυτή έρχονται ημερομηνίες οι οποίες
έχουν την εμφάνιση 00/01/00.
Σε αυτή την περίπτωση υπάρχει λύση;;;;
Σε ευχαριστώ για τον χρόνο σου και την βοήθειά σου

[kapetang]

Καλημέρα

Χρήστο, αν κατάλαβα καλά, δε θέλεις να καταμετρώνται:

1) Τα κενά κελιά και εκείνα που ο τύπος τους επιστέφει κενό.

2) Τα κελιά με τιμή 0, στα οποία, με μορφοποίηση ημερομηνίας, η εμφανιζόμενη τιμή είναι 00/01/00.

3) Τα κελιά που βρίσκονται σε γραμμές που έχουν κρυφτεί.

Στο συνημμένο αρχείο δημιούργησα με κώδικα τη συνάρτηση χρήστη MyCountaA και αντικατέστησα με αυτήν όλες τις SUBTOTAL.

Κάνε δοκιμές και δες αν σε καλύπτει.

Φιλικά/Γιώργος

[Spirosgr]

Έξι ολόκληρα χρόνια, δεν ακούς με τίποτα, ό,τι κι αν σου πεί κανείς...
Παίρνεις πράγματα από 'δω κι από κεί και προσπαθείς να κάνεις έργο...

Αν άκουγες, αυτό που σου είπα, για την ρύθμιση με το μηδέν,
ΜΟΝΟ σε αυτό το βιβλίο, τότε αλλάζεις
στις εξαρτώμενες στήλες το "" με 0 και με μια απλή SumIf ... τελείωνες.

Δες το βιβλίο...

[kapetang]

Καλησπέρα

Χρήστο εγκατέλειψα την ενσωματωμένη συνάρτηση SUMPRODUCT((N4:N2005<>"")*1) και δημιούργησα με VBA την MyCounta, για να κάνει σωστή καταμέτρηση των κελιών και στην περίπτωση απόκρυψης γραμμών.

Αρχικά δεν είχα παρατηρήσει ότι η απόκρυψη των γραμμών γινόταν με τη βοήθεια πλαισίων κειμένου και με κώδικα VBA.

Μόλις το διαπίστωσα, προκειμένου να μελετήσω πως αντιδρά η συνάρτηση MyCounta και στην περίπτωση αυτή, διέγραψα τελείως το σχετικό μήνυμά μου και το συνημμένο αρχείο που είχα ονομάσει agwges.xls

Στη συνέχεια αφού έκανα μια μικρή αλλαγή στον κώδικα της ρουτίνας SetAutofilter, πραγματοποίησα την ανάρτηση #4 (POST #4).

Το αρχείο agwges.xls στο POST #5, περιέχει τη συνάρτηση MyCounta, αλλά όχι και τη μεταβολή στη ρουτίνα SetAutoFilter.

Έτσι όταν φιλτράρουμε με τη βοήθεια των πλαισίων κειμένου, η συνάρτηση εμφανίζει λάθος.

Φαίνεται ότι στηρίχθηκε στο αρχικό agwges.xls, που παρέμεινε για λίγο αναρτημένο, μέχρι να το διαγράψω.

Φιλικά/Γιώργος

[Spirosgr]

Και ένας τύπος, για να λειτουργεί και με «κρυμμένες» γραμμές
έστω κι αν επιμένει κανείς, να μην μορφοποιήσει και να αφήσει και το "" αντί 0 και
εμφανή τα μηδενικά.

=SUMPRODUCT(SUBTOTAL(103; OFFSET(AU4:AU14;ROW(AU4:AU14)-MIN(ROW(AU4:AU14));;1));--(AU4:AU14<>""))

103 αντί 3

[xristos]

ΣΗΜ: Το μήνυμα αυτό το έγραψα, αλλά δεν είχα δει το τελευταίο μήνυμα του Σπύρου......
Φίλοι του Φόρουμ Καλησπέρα.
Φίλοι Γιώργο & Σπύρο ένα μεγάλο ευχαριστώ είναι λίγο
για την άμεση και σημαντική βοήθειά σας.
Θα ήθελα να πω λίγα λόγια στον Σπύρο που στα γραμμένα του
έχει ένα μικρό δίκαιο...
Φίλε Τάσο τα λόγια που θα σου πω ίσως είναι και για να δικαιολογηθώ, αλλά
δεν θέλω να ξεχνάς ότι είμαι 55 ετών, τα ελάχιστα που γνωρίζω για το ΕXCEL, τα έμαθα διαβάζοντας βιβλία εδώ και 10 χρόνια και με την αμέριστη βοήθειά σας, έχω φτιάξει στην υπηρεσία μου προγραμματάκια που με εξυπηρετούν αφάνταστα και κατά επέκταση και την υπηρεσία μου, χωρίς να έχω ούτε ένα πτυχίο, την στιγμή που συνάδελφοί μου έχουν πάρει το ECDL και δεν γνωρίζουν τι είναι Excel & Word, γι' αυτό σου λέω ότι έχεις ένα μικρό δίκαιο. Πάντως να ξέρεις ότι μου γράφεις και μου λες και εσύ και όλοι οι φίλοι του φόρουμ, το διαβάζω και πάντα προσπαθώ να το εφαρμόσω. Λοιπόν αρκετά με τις "δικαιολογίες μου" τώρα θα ήθελα να σας ρωτήσω για τις απαντήσεις σας.
Τάσο να γνωρίζεις ότι εφάρμοσα τις μηδενικές ημερομηνίες (να μην εμφανίζονται) και δεν δούλευε γιατί δεν γνώριζα την συνάρτηση που μου προτείνεις τώρα. Λοιπόν ενώ η συνάρτηση myCounta δουλεύει άψογα σε όλα τα κελιά που το χρησιμοποίησα, η συνάρτηση COUNTIF(AU4:AU5000;"<>"&0) που μου προτείνεις στην τελευταία στήλη, όταν φιλτράρω δεν δουλεύει και μόλις την αντικαθιστώ με την συνάρτηση myCounta(AU4:AU5000), δουλεύει άψογα......
Γιώργο θα ήθελα να σε ρωτήσω ποιο κώδικα πρέπει να αντιγράψω στο πρόγραμμα το δικό μου, γιατί αυτό που έστειλα συνημμένα ήταν σχέδιο, και στο δικό μου πρόγραμμα υπάρχουν και άλλα φύλλα τα οποία παίρνουν στοιχεία από το φύλλο ΑΓΩΓΕΣ....
Θέλω να σας ξαναευχαριστήσω για την βοήθειά σας και όπως σας έχω ξαναπεί και θα το λέω συνέχεια γιατί είναι η αλήθεια, να ξέρετε ότι η βοήθειά σας και ο χρόνος σας δεν πάει χαμένος

[kapetang]

Χρήστο το πρόγραμμά σου πρέπει να περιέχει όλο τον κώδικα που υπάρχει στο αρχείο agwges.xls του POST #4.