[steliosgr]

Γιώργο καλησπέρα ,θέλω να σε ευχαριστήσω και να σου πω ότι είναι τέλειο.
Κατά τις δοκιμές που έκανα όλη την ημέρα μέχρι και τώρα το μόνο πρόβλημα που μου δημιουργεί και σίγουρα εγώ φταίω, είναι ότι ενώ στο δικό σου δείγμα ό χρωματισμός δουλεύει μια χαρά στο δικό μου πραγματικό βιβλίο εργασίας χρωματίζει από 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

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