[Μορφοποίηση] Μορφοποίηση με απόδοση γράμματος

[Immortal]

Χρήστο καλή σου ημέρα! Σε ευχαριστώ που ασχολήθηκες με το αρχείο!
Το δούλεψα λίγο, σχετικά με τα Ε, είναι αυτό που θέλω. Με τα Κ όμως μάλλον χρειάζεται να σου δώσω άλλο παράδειγμα,
για την περιοχή Η9:CV97 όπου και θα υπάρχουν τα Κ, εάν στην περιοχή C9:C97 βάλεις τα δύο μας ονόματα, εάν τα πρώτα 10 ονόματα είναι ΝΙΚΟΣ τότε ξεκινώντας από την 1η εργάσιμη ημέρα μπορώ να έχω το Κ 2 φορές στην ίδια ημέρα, άρα ο Α/Α 1 & 2 με όνομα ΝΙΚΟΣ θα έχουν το Κ στην 1η εργάσιμη, ενώ όλες οι υπόλοιπες ημερομηνίες στις 2 σειρές δεν θα περιέχουν το Κ.
Τα επόμενα 2, στους Α/Α 3 & 4 δηλαδή, θα καταλάβουν το Κ στην 2η εργάσιμη, εφόσον η 1η καταλήφθηκε από τους πρώτους 2 Α/Α.κοκ
Αντίστοιχα για το όνομα ΧΡΗΣΤΟΣ, το οποίο σε 1 εργάσιμη ημέρα θα υπάρχει μόνο ένας.
Πιστεύω να μη σε μπέρδεψα!

[Immortal]

Έχω ετοιμάσει ένα παράδειγμα για το έτος 2023 για όλα τα τρίμηνα ημερολόγια.
Στην στήλη C έχω προσθέσει ονόματα για την ευκολότερη κατανόησή του. Για κάθε στήλη-ημερομηνία μπορώ να εισάγω 2 φορές το ΝΙΚΟΣ και 1 φορά το ΓΙΩΡΓΟΣ όπως φαίνεται στις κίτρινες σειρές. Για το ΧΡΗΣΤΟΣ ισχύει ότι για το ΝΙΚΟΣ, αλλά ξεκινάει κι αυτό από την 1η εργάσιμη του ημερολογίου.
Για κάθε τρίμηνο ημερολόγιο ξεκινάω πάντα από την 1η εργάσιμη και όλες οι καταχωρήσεις είναι σε συνέχεια.
Το ΤΡ είναι το Κ που είχα σε προηγούμενο βιβλίο.
*Έχω σβήσει το 4ο τρίμηνο ημερολόγιο γιατί δεν ανέβαινε το αρχείο λόγω μεγέθους.

[ChrisGT7]

Καλησπέρα Νίκο,

Διόρθωσέ με αν έχω καταλάβει κάτι λάθος:

1. Εσύ θα έχεις ήδη συμπληρώσει τα Κ και ΤΡ στα άτομα που πρέπει, ώστε ο κώδικας να ξέρει πόσα και σε ποιους να επαναλάβει. Στο αρχείο σου, έχεις βάλει από 2 ΤΡ στο Νίκο και Χρήστο και από 1 ΤΡ στο Γιώργο, οπότε επαναλαμβάνονται αυτά ανά 2 και άνα 1 αντίστοιχα τις επόμενες εργάσιμες ημέρες.

2. Με το πάτημα του κουμπιού, θα συμπληρώνονται τα Ε, ώστε να ξεχωρίζουν οι Πέμπτες και Παρασκευές και εν συνεχεία θα επαναλαμβάνονται τα Κ και ΤΡ, όπως αναφέρθηκε στο 1.

Ο κώδικας θα πρέπει να γνωρίζει σε ποια γραμμή αλλάζει το άτομο, οπότε καλό θα ήταν να γίνεται με βάση κάποιο άλλο στοιχείο (π.χ. ΑΦΜ, αρ. μητρώου) και όχι βάσει του ονόματος, γιατί μπορεί να υπάρχουν άτομα με το ίδιο όνομα ή επίθετο. π.χ. ίσως η στήλη E να περιέχει αυτό το στοιχείο. Ίσως και η αλλαγή χρώματος ανά άτομο να βοηθούσε, όπως γίνεται στο Νίκο και στο Γιώργο αλλά δε γίνεται στο Νίκο και στο Χρήστο.

Αυτά χρειάζεσαι;

[Immortal]

Καλησπέρα Χρήστο
Αρχικά, το Κ το αφήνουμε και έχουμε να κάνουμε μόνο με το ΤΡ.
Όπως παρατήρησα, με το κουμπί ενημέρωση που δημιούργησες, τοποθετούνταν σε κάθε κενό κελί το Κ, ενώ αυτό που χρειάζομαι είναι μία φορά στην ίδια σειρά.
Όπως τοποθετούνταν το Κ παντού, γίνεται να τοποθετείται αυτόματα όπως τα έχω εισάγει στο τελευταίο βιβλίο; Εάν βέβαια είναι εφικτό να μην εισάγω χειροκίνητα κάτι στις στήλες με τις ημερομηνίες.
Για τις Πεμπτες-Παρασκευές βλέπω πως γίνεται ακριβώς αυτό που ήθελα.
Όσον αφορά τον κώδικα που αναφέρεις, θα σε βοηθούσε αν σου έλεγα πως στην στήλη με τα ονόματα, σε οποία σειρά και να εισαχθεί το ΧΡΗΣΤΟΣ σε καμιά περίπτωση δεν θα υπάρξει το ΤΡ στην ίδια ημερομηνία μαζί με οποιονδήποτε άλλον, είτε ΧΡΗΣΤΟΣ, είτε άλλο όνομα, οπότε θεωρώ πως αυτό δεν είναι μπέρδεμα.

[ChrisGT7]

Νίκο,

Έλεγξε αν το συνημμένο είναι κοντά στο ζητούμενό σου.

Δεν μπορώ να πω με σιγουριά πως έπιασα τη λογική, αλλά όπως και να έχει, βασίστηκα σ' αυτό που θες να εισάγονται τα ΤΡ όπως τα έχεις στο αρχείο σου. Δηλαδή:

Θεωρώ, βάσει το αρχείο σου πάντα, δεδομένα 8 άτομα με σταθερές γραμμές και όσα άτομα είναι στις πορτοκαλί γραμμές, το ΤΡ επαναλαμβάνεται 1 φορά ανά γραμμή ενώ στα υπόλοιπα ανά ζεύγος.

[Immortal]

Καλημέρα Χρήστο, μόλις δοκίμασα την πρότασή σου. Κατάφερες να έχει το βιβλίο το αποτέλεσμα που χρειάζομαι.
Τώρα θα ήθελα να σε ρωτήσω για μία τροποποίηση, εάν είναι εφικτή να υλοποιηθεί βέβαια, διότι προκύπτει ένας περιορισμός, θα πρέπει τα ΧΡΗΣΤΟΣ να μην αλλάξουν ποτέ σειρά.
Όμως ενδέχεται σε κάποιες περιπτώσεις τα ΧΡΗΣΤΟΣ στην στήλη C να μετακινηθούν και να πάνε μερικές σειρές πιο πάνω ή και πιο κάτω, πάντα όμως θα είναι όλα μαζί, οπότε βάσει ενδεχόμενης μετακίνησής τους θα μπορούσε να υπάρχει το ίδιο αποτέλεσμα με το ΤΡ όπως εισάγονται τώρα;

*Στο παρακάτω κομμάτι κώδικα αντιλαμβάνομαι ότι αυτές είναι οι περιοχές που ορίζουν τις περιοχές που θα εισάγονται τα ΤΡ, ένα ή δύο. Σε περίπτωση που δεν μπορεί να αποφευχθεί ο περιορισμός που προανάφερα, θα μπορούσα να τροποποιήσω αναλόγως τις περιοχές στον κώδικα σε περίπτωση μετακίνησης των ΧΡΗΣΤΟΣ;

Case 9 To 14, 21 To 26, 33 To 38, 45 To 70
        Range(Cells(R, C), Cells(R + 1, C)).Value = "ΤΡ"
Case 15 To 20, 27 To 32, 39 To 44
       Cells(R, C).Value = "ΤΡ"
       R = R + 1

Όπως κ να έχει σε υπέρ ευχαριστώ για τον χρόνο που διέθεσες ώστε να φτάσει το βιβλίο σε αυτό το αποτέλεσμα, να είσαι καλά.

[ChrisGT7]

Καλησπέρα Νίκο,

Όπως σωστά αναφέρεις, το συγκεκριμένο κομμάτι κώδικα ευθύνεται για την επανάληψη του ΤΡ (ή Κ, αν θες να το αντικαταστήσεις) στις γραμμές των διαστημάτων της εντολής Case. Οπότε αν θες να ανεβάσεις ή να κατεβάσεις το ΧΡΗΣΤΟΣ, θα πρέπει να τροποποιήσεις ανάλογα τις γραμμές και τα διαστήματα. Λίγο προσοχή όμως θα χρειαστεί και στις επαναλήψεις του ΤΡ/Κ, γιατί άλλα ονόματα έχουν από δύο επαναλήψεις και άλλα από μία.

Αν δεν τα καταφέρεις, με ενημερώνεις ανάλογα.

[Immortal]

Πολύ ωραία Χρήστο, οπότε νομίζω πως δεν υπάρχει λόγος να το σκαλίσουμε άλλο το πράγμα,! Ναι αν δω πως δεν τα καταφέρνω θα σε ενημερώσω.
Σε ευχαριστώ πολύ κ πάλι για τον χρόνο που διέθεσες κ έφερες εις πέρας το ζητούμενο! Καλή συνέχεια!

[Immortal]

Καλημέρα!
Επανέρχομαι στο παραπάνω αρχείο διότι θα ήθενα να προσθέσω αρκετές σειρές ακόμη. Τις έχω προσθέσει, δουλεύει όπως πρέπει να δουλεύει, αλλά μου ενημερώνει κελιά, εκτός περιοχής, με ΤΡ, τα οποία δεν θα έπρεπε. Τι δεν έχω ενημερώσει σωστά στον κώδικα;

[ChrisGT7]

Καλησπέρα και καλό μήνα Νίκο,

Δοκίμασε να προσθέσεις τις παρακάτω γραμμές πάνω από τη γραμμή Application.ScreenUpdating = True:

R = Range("B" & Rows.Count).End(xlUp).Row + 1
Rows(R & ":" & Rows.Count).ClearContents