[kapetang]

Καλημέρα στην παρέα

Φίλε Δημήτρη, ενώ γράφεις αρκετά για τον τρόπο συγκέντρωσης και καταχώρησης των στοιχείων δε διευκρινίζεις, μέσα σε ποια ορθογώνια περιοχή κελιών, όσα είναι λευκά, θα έχουν την ιδιότητα που ζητάς (ο αριθμός που θα πληκτρολογείς θα προστίθεται στην τρέχουσα τιμή του κελιού).
Μέσα στον κώδικα, η ορθογώνια περιοχή προσδιορίζεται από τις γραμμές κώδικα:
1. If Application.Intersect(Target, Range("B15:AF400")) Is Nothing Then Exit Sub
2. x = Range("A1:AF400").
Στην πρώτη εντολή καθορίζουμε ακριβώς την ορθογώνια περιοχή. Εδώ καθόρισα την περιοχή που η πάνω αριστερή γωνία είναι το κελί Β15και η κάτω δεξιά το AF400.
Στη δεύτερη εντολή το A1 δε μεταβάλλεται. Αλλάζουμε μόνο την τιμή μετά την άνω και κάτω τελεία, ώστε να συμπίπτει μ’ αυτήν που βάλαμε στην πρώτη εντολή.
Μέσα στην περιοχή που ορίζουμε με τις παραπάνω εντολές, αν θέλουμε σε κάποια κελιά να μη γίνεται αυτόματη άθροιση, θα πρέπει να τα βάψουμε.
Στο βιβλίο εργασίας έχω προσθέσει και το φύλλο «Στατιστικά2». Σ’ αυτό το φύλλο πρόσθεσα κώδικα που εμφανίζει μήνυμα με τις αλλαγές που θα γίνουν και μας δίνει τη δυνατότητα να τις αποδεχτούμε ή να τις ακυρώσουμε. Έτσι, κατά κάποιο τρόπο, ενσωματώνει και την πρόταση του Τάσου.
Μολονότι τα μηνύματα είναι σπαστικά, αν θέλεις να περιορίσεις τα λάθη, θα πρέπει να προτιμήσεις αυτή τη λύση.

Φιλικά/Γιώργος
ΥΓ Ενώ ετοίμαζα την απάντηση είδα και το μήνυμα του Λευτέρη, με το οποίο συμφωνώ.