[VBA] Πρόγραμμα εργασίας- Εφημερίες- Επιτηρήσεις- Κατανομή προσωπικού σε βάρδιες (πόστα)

[kapetang]

1) Αν κατάλαβα καλά θέλεις το τελευταίο αρχείο που ανέβασα, αλλά η ημερομηνία να υπολογίζεται με τύπο ώστε να εξαιρούνται τα Σαββατοκύριακα.

2) Πόσοι συνολικά είναι οι εκπαιδευτικοί; 8;

[stsepas]

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

[Spirosgr]

Καλημέρα
Παρ' όλο που ο Θανάσης έχει κάνει καταπληκτική δουλειά νομίζω ότι το ζητούμενο έχει βασικές ασάφειες για να επιτευχθεί.
Για να έχουμε 100% αποτέλεσμα πρέπει να ξέρουμε τον ακριβή αριθμό του δυναμικού που θα πάρει τα πόστα και ο περιορισμός (παράμετρος) <<ότι όλοι θα κάνουν από δυο>> πρέπει να διευκρινιστεί αν θέλουμε μέγιστο δύο ή τουλάχιστον δύο.
Στην κατάσταση με τα μέχρι τώρα δεδομένα δεν μπορεί να πραγματοποιηθεί κάτι τέτοιο διότι δεν είναι δυνατόν να καλύψουμε πέντε ημέρες με πέντε άτομα σε πέντε πόστα και με δύο μόνο εμφανίσεις ανά εβδομάδα για τον καθ' ένα (έτσι όπως το καταλαβαίνω εγώ)
Ακόμα αν έχουμε τρεις κολληόμενους σε μία μέρα με αυτό το δυναμικό δεν βγαίνει υπηρεσία
Για να επιτευχθεί το ζητούμενο πρέπει να γίνει μία κυλιόμενη "σκάλα" στην οποία θα υπάρχουν τα διαθέσιμα Ονόματα και κάθε φορά που θα "χαλάει" η σειρά λόγω κολλήματος να παίρνει από την λίστα ονομάτων τον επόμενο διαθέσιμο μέχρι να συμπληρωθεί το όριο?? των δύο εμφανίσεων
Αυτό προϋποθέτει πλήρης πληροφορίες (και μάλλον "λίγο" κώδικα VBA)

[NIC]

Αρχική Δημοσίευση από spirosgr

Καλημέρα
Παρ' όλο που ο Θανάσης έχει κάνει καταπληκτική δουλειά νομίζω ότι το ζητούμενο έχει βασικές ασάφειες για να επιτευχθεί.
Για να έχουμε 100% αποτέλεσμα πρέπει να ξέρουμε τον ακριβή αριθμό του δυναμικού που θα πάρει τα πόστα και ο περιορισμός (παράμετρος) <<ότι όλοι θα κάνουν από δυο>> πρέπει να διευκρινιστεί αν θέλουμε μέγιστο δύο ή τουλάχιστον δύο.
Στην κατάσταση με τα μέχρι τώρα δεδομένα δεν μπορεί να πραγματοποιηθεί κάτι τέτοιο διότι δεν είναι δυνατόν να καλύψουμε πέντε ημέρες με πέντε άτομα σε πέντε πόστα και με δύο μόνο εμφανίσεις ανά εβδομάδα για τον καθ' ένα (έτσι όπως το καταλαβαίνω εγώ)
Ακόμα αν έχουμε τρεις κολληόμενους σε μία μέρα με αυτό το δυναμικό δεν βγαίνει υπηρεσία
Για να επιτευχθεί το ζητούμενο πρέπει να γίνει μία κυλιόμενη "σκάλα" στην οποία θα υπάρχουν τα διαθέσιμα Ονόματα και κάθε φορά που θα "χαλάει" η σειρά λόγω κολλήματος να παίρνει από την λίστα ονομάτων τον επόμενο διαθέσιμο μέχρι να συμπληρωθεί το όριο?? των δύο εμφανίσεων
Αυτό προϋποθέτει πλήρης πληροφορίες (και μάλλον "λίγο" κώδικα VBA)

Σωστή η παρατήρηση και σε ερώτηση που έκανα σήμερα στον φίλο μου είπε πως είναι 12 άτομα που θα κάνουν από 2 υπηρεσίες και 1 άτομο που κάνει μόνο μια λόγο προγράμματος άρα ακριβώς 25 εφημερίες. Θα δοκιμάσω το αρχείο και θα σας πω. Σήμερα βρήκα επίσης ένα πρόγραμμα σε access από κάποιο δάσκαλο που το έκανε για το δημοτικό του και θα το βάλω στο site για να υπάρχει και αν γίνεται να το βελτιώσουμε. Ευχαριστώ

[ΤΖΙΜΗΣ]

Καταπληκτική δουλειά από τον Θανάση ομολογουμένως.Επίσης θα πρέπει να πω ότι στο σχολείο οι εφημερίες προκύπτουν ανα πόστο και ανα ώρα ενδεχομένως.Δηλαδή καθηγητής που έχει μάθημα από της 8:00 έως στις 12:00 δεν συνεχίζει την εφημερία του αλλά την καλύπτει κάποιος άλλος.Επίσης αν θα αλλαζει η εβδομάδα θα πρέπει να αλλάζουμε και τα πόστα στους καθηγητές ώστε να είναι κυλιόμενα.Επίσης θα πρέπει να ορίσουμε και τους παραμέτρους που επισήμανε και ο Σπύρος δηλαδή μέγιστο πλήθος εφημεριών ανα καθηγητή.
Τέλος δεν κατάλαβα τι επηρεάζει ακριβώς το πλήθος στις βάρδιες.
Με εκτίμηση Τζίμης

[NIC]

Σας « ανεβάζω» το αρχείο με 13 καθηγητές από τους οποίους οι 12 κάνουν από 2 και ένα κάνει μόνο μια εφημερία. Το αρχείο του Θανάση παίρνει τους 5 πρώτους και μετά αλλάζει μόνο αν έχουμε κόλλημα. Επίσης αυτό που λέει ο Τζίμης δεν ισχύει εδώ μια και ο εφημερεύων είναι όλη την ημέρα και όχι την μίση

[gr8styl]

Αρχική Δημοσίευση από NIC

.... Το αρχείο του Θανάση παίρνει τους 5 πρώτους και μετά αλλάζει μόνο αν έχουμε κόλλημα....

Το αρχείο που ανέβασα, στο Μ2 έχει τον τύπο
=IF(ISERROR(MATCH($K2;Φύλλο1!C$19:C$23;0));$J 2;"")
άλλαξέ τον σε
=IF(AND(ISERROR(MATCH($K2;Φύλλο1!C$19:C$23;0));$J2>MATCH(B$8;Επιτηρητές;0));$J2;"")
και αντίγραψέ τον προς τα κάτω και προς τα δεξιά μέχρι το κελί P26
έτσι δεν θα επαναλαμβάνονται μόνο οι 5 πρώτοι επιτηρητές όταν έχεις περισσότερους από 5.

Σημ. όταν θέλεις να προσθέσεις περισσότερους από 12 επιτηρητές για να προσαρμοστεί αυτόματα το όνομα "επιτηρητές" θα πρέπει να εισάγεις κελιά μεταξύ Η12 και Η13.

Πες μας αν έγινε.
Θανάσης

[MacMark]

Καλημέρα σας, ένα παρόμοιο excel με ένα άτομο ανά ημέρα βάρδιας και για έναν ολόκληρο μήνα, πως θα μπορούσα να το παραμετροποιήσω? Προσπάθησα να το αλλάξω το υπάρχον αλλά....το έκανα μαντάρα....Επιπλέον, μπορώ να ανεβάσω αυτό που έφτιαξα προκειμένου - αν δύναται - κάποιος να με βοηθήσει? Ευχαριστώ

[kapetang]

Καλημέρα

Προσπάθησε να προσαρμόσεις το συνημμένο στο οποίο επιλέγεται 1 άτομο ανά ημέρα.

Να έχεις υπόψη σου ότι όταν θέλουμε να επιλέξουμε κάποιο άτομο για μία ημερομηνία (17/6/2021), το πρόγραμα υπολογίζει για κάθε εργαζόμενο το σύνολο των υπηεσιών πριν από αυτήν την ημερομηνία και επιλέγει αυτόν με τις λιγότερες.

[MacMark]

Αγαπητέ geokotro, για αρχή σε ευχαριστώ πολύ για την βοήθεια σου. Εν συνεχεία, θέλω να είναι μηνιαίο το πρόγραμμα, οπότε το "κόλλημα" για παραπάνω ημέρες στους εργαζομένους πως μπορεί να παραμετροποιηθεί?