SumWork2 & FillColor
 

Καλησπέρα ,
Ψάχνοντας στο forum βρήκα κάτι πολύ χρήσιμο και σε μένα που χρειάζεται όμως μια αλλαγή στον κώδικα. Στο αρχείο SumWork2 πριν την αρχή κάθε μήνα να συμπληρώνεται και το Δεύτερο 15νθημερο του προηγούμενου, και ο τρέχοντας μήνας να συμπληρώνεται μέχρι την σημερινή ημερομηνία ή την τρέχουσα ημερομηνία που τρέχει κάθε φορά ο κώδικας στο φύλλο Main, ώστε να καταφέρω να το προσαρμόσω και στην δικιά μου εργασία, που μέχρι σήμερα δουλεύω με μεγάλη επιτυχία, χάρη στην βοήθεια σας .Ανεβάζω ένα δείγμα για να γίνει πιο κατανοητό, το οποίο βέβαια είναι συμπληρωμένο από λάθος όλος ο Οκτώβρης.

Ευχαριστώ πολύ.

Καλησπέρα

Στέλιο αποσυμπίεσε το συνημμένο και κάνε δοκιμές.

Τονίζω ότι, επειδή για το συγκεντρωτικό φύλλο χρησιμοποιούνται δεδομένα από τον τρέχοντα μήνα και τον προηγούμενο, όταν τρέχον μήνας είναι ο Ιανουάριος στο φάκελο πρέπει να υπάρχει και το αρχείο του Δεκεμβρίου του προηγούμενου έτους.

Γιώργο καλησπέρα ,θέλω να σε ευχαριστήσω και να σου πω ότι είναι τέλειο.
Κατά τις δοκιμές που έκανα όλη την ημέρα μέχρι και τώρα το μόνο πρόβλημα που μου δημιουργεί και σίγουρα εγώ φταίω, είναι ότι ενώ στο δικό σου δείγμα ό χρωματισμός δουλεύει μια χαρά στο δικό μου πραγματικό βιβλίο εργασίας χρωματίζει από 25/9 εως 5/10 11 συνεχόμενα ΠΑΡΩΝ και όχι όλα τα ΠΑΡΩΝ που είναι πολλά παραπάνω στη σειρά.
Σου δείχνω τις αλλαγές που έκανα από αυτό που δούλευα μέχρι σήμερα και δούλευε άψογα μήπως και καταλάβεις τι έχω κάνει:

ΠΡΙΝ: Const strStart As String = "G7"
ΜΕΤΑ: Const strStart As String = "H7"

ΠΡΙΝ: If Cells(R, C) = "ΠΑΡΩΝ" Then
ΜΕΤΑ: If Cells(R, C) = "ΠΑΡΩΝ" Or Cells(R, C) = "ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ" Then

Στο δείγμα που ανέβασα υπήρχε το ΣΥΝΕΧΙΣΗ αντί του "ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ" που υπάρχει στην πραγματικότητα ,και που αντικατέστησα.

Καλησπέρα,
Γιώργο ανεβάζω το πραγματικό αρχείο που παίρνω από το SumWorkFillColor με σβησμένα μόνο τα ονόματα . Δεν μπορώ να καταλάβω γιατί δεν δουλεύει ο χρωματισμός τώρα καθόλου;

Καλησπέρα

Στέλιο, ο κώδικας για να καταμετρήσει σε μία γραμμή τα συνεχόμενα "ΠΑΡΩΝ" κλπ, πρέπει το αντίστοιχο κελί στη στήλη G (ειδικότητα) να μη είναι κενό.

Πιο συγκεκριμένα αρχίζει από το κελί G7, αν δεν είναι κενό, μετράει τα παρών στη γραμμή και προχωράει στην εξέταση του G8.

Αυτό συνεχίζεται μέχρι να βρεθεί κενό κελί στη στήλη G.

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

Βάλε συνεπώς δεδομένα στη στήλη G (ειδικότητα), έστω και εικονικά, και μετά τρέξε τη μακροεντολή.

Σημείωση:

Όταν καταχωρούμε δεδομένα στα κελιά φροντίζουμε οι καταχωρήσεις να είναι σύντομες.

Αυτό περιορίζει τις διαστάσεις της περιοχής των δεδομένων οπότε μπορούμε να τα βλέπουμε χωρίς πολλά «σκρολαρίσματα».

Επίσης περιορίζει τα λάθη. Για παράδειγμα αν πληκτρολογήσουμε τη φράση «ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ» και παρεμβάλουμε περισσότερα από 1 διαστήματα στις λέξεις θα έχουμε λάθη στη βαφή των κελιών.

Για μένα θα μπορούσες αντί για «ΠΑΡΩΝ» να πληκτρολογείς «Π» και αντί για «ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ» «Σ» και με κάποιο υπόμνημα να εξηγείς τι σημαίνουν.

Γιώργο , βάζοντας δεδομένα εικονικά στην ειδικότητα εστιάζεται ο χρωματισμός σε μια συγκεκριμένη περιοχή από R Έως AB , ενώ η γραμμή 7 για παράδειγμα θα έπρεπε να χρωματίζεται όλη από H Έως AH αφού ΠΑΡΩΝ και ΣΥΝΕΧΙΣΗ ΑΡΙΘΜΗΣΗΣ ΤΗΝ ΕΠΟΜΕΝΗ πρέπει να το βλέπει σαν ένα, αυτό με παιδεύει από το πρωί. Όσο για τις σύντομες καταχωρήσεις έχεις απόλυτο δίκιο ,αλλά μιλάμε για πάρα πολλά χρόνια πριν χιλιάδες δεδομένα και θα χρειαστεί πολύ χρόνο και δουλειά.

Στέλιο στο αρχείο σου το «ΠΑΡΩΝ» δε γράφεται με συνέπεια.

Υπάρχουν «ΠΑΡΩΝ» στα οποία προηγούνται ή έπονται διαστήματα.

Άλλαξα τη γραμμή του κώδικα που γίνεται η σύγκριση για να ξεπεραστεί το πρόβλημα.

Δες το συνημμένο.

Τέλειο!!
Τα πάντα δουλεύουν άψογα, και χίλια ευχαριστώ λίγα είναι.
Γιώργο να 'σαι καλά.

Καλή συνέχεια Στέλιο να είσαι καλά.