[VBA] Επιλογή μήνα και ημερομηνίες

[stsepas]

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

[ChrisGT7]

Καλημέρα Σταύρο,

Απλά για επιβεβαίωση:

Θα δεσμευτεί το εύρος Ε1:Ε2 για την επιλογή του μήνα και το F1:F2 για την επιλογή του έτους. Θα πρότεινα πάντως δέσμευση μονού κελιού (π.χ. Ε2) και όχι δύο.

Μόλις επιλέγεται μήνας ή έτος, τα κίτρινα κελιά των ημερών θα συμπληρώνονται μόνον οι εργάσιμες ημέρες στη μορφή που υπάρχει στο αρχείο (π.χ. 1 2 3 4 5{νέα_γραμμή} 8 9 10 κ.ο.κ.).

Οι αργίες θεωρούνται εργάσιμες και πρέπει να εμφανίζονται κανονικά;

Θεωρώ με κώδικα VBA είναι πιο εύκολο να γίνει το ζητούμενο.

[stsepas]

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

Καλημέρα Σταύρο,

Απλά για επιβεβαίωση:

Θα δεσμευτεί το εύρος Ε1:Ε2 για την επιλογή του μήνα και το F1:F2 για την επιλογή του έτους. Θα πρότεινα πάντως δέσμευση μονού κελιού (π.χ. Ε2) και όχι δύο.

Μόλις επιλέγεται μήνας ή έτος, τα κίτρινα κελιά των ημερών θα συμπληρώνονται μόνον οι εργάσιμες ημέρες στη μορφή που υπάρχει στο αρχείο (π.χ. 1 2 3 4 5{νέα_γραμμή} 8 9 10 κ.ο.κ.).

Οι αργίες θεωρούνται εργάσιμες και πρέπει να εμφανίζονται κανονικά;

Θεωρώ με κώδικα VBA είναι πιο εύκολο να γίνει το ζητούμενο.

Αύτό θέλουμε . Οι επίσημες αργίες είναι αργίες και για τις καθαρίστριες των σχολείων. Το 1 2 3 4 κτλ είναι η ημερομηνίες του μήνα

[ChrisGT7]

Σπύρο,

Ελπίζω το συνημμένο να καλύπτει τις ανάγκες σας. Οι μακροεντολές πρέπει να είναι ενεργοποιημένες.

Στο Ε2 επιλέγεις το μήνα και στο F2 (όνομα ΕΤΟΣ) το έτος (ακέραιοι αριθμοί από 1900 μέχρι 9999). Το ΕΤΟΣ ενημερώνει επίσης τις αργίες στο αντίστοιχο φύλλο.

Πατώντας το κουμπί της ανανέωσης (πράσινο κυκλικό βέλος), στα τρία κίτρινα κελιά θα εμφανιστούν σε πεντάδες μόνο οι εργάσιμες ημέρες του επιλεγμένου μήνα και έτους, εξαιρώντας τα Σαββατοκύριακα και τις αργίες που υπάρχουν στο φύλλο ΑΡΓΙΕΣ.

Η γραμματοσειρά στα κίτρινα κελιά είναι η Courier New για καλύτερη οπτικά ταξιθέτηση των αριθμών.

Στο φύλλο ΑΡΓΙΕΣ συμπληρώνουμε τις αργίες (επίσημες και τοπικές) που θέλουμε να εξαιρούνται.

Συστήνεται οι αργίες να γράφονται σε μορφή τύπου για να συμπεριλαμβάνονται αυτόματα στις εξαιρέσεις.

[stsepas]

Σε ευχαριστώ πολύ!!!!!Αν γίνεται στα κελιά με τις ημερομηνίες να εμφανίζεται η ημερομηνία της πρώτης εργάσιμης κάθε εβδομάδας ενώ στο τελευταίο κελί που λέει ΗΜΕΡΑ να εμφανίζεται η πρώτη εργάσιμη του μήνα

[ChrisGT7]

Καλησπέρα Σταύρο,

Ελπίζω να πέτυχα το ζητούμενό σου.

Αφαίρεσα τελικά το κουμπί έτσι ώστε όταν αλλάζεις μήνα ή έτος, τα κελιά συμπληρώνονται αυτόματα για πιο γρήγορα αποτελέσματα.

Στο φύλλο ΑΡΓΙΕΣ, οι στήλες D:H είναι βοηθητικές του φύλλου ΠΡΟΓΡΑΜΜΑ για να φιλτράρουν τις 5 πρώτες εργάσιμες ημέρες του επιλεγμένου μήνα. Περιέχουν τύπους, οπότε δεν πρέπει να πειραχθούν. Φυσικά μπορείς να τις κρύψεις για να μην είναι σε πρώτη θέα.

Με ενημερώνεις αν μου ξέφυγε κάτι.

[stsepas]

Όλα ΟΚ. Σε ευχαριστώ για το χρόνο σου.

[stsepas]

Καλημέρα, Πριν από μέρες μου έφτιαξες το συνημμένο αρχείο. Όλα λειτουργούν σωστά, αλλά όταν κάνω αλλαγές πχ. στο μήνα, δεν αποθηκεύει. Ισως φταίει που έχω office 2007. Δεν μπορώ να βάλω νεότερη έκδοση, γιατί το μαθητολόγιο του σχολείου έχει σχεδιαστεί σε Access 2007 και σε νεώτερη έκδοση δεν θα δουλεύει και αυτό είναι καταστροφικό , αφού έχω αρχείο 20 ετών. Μπορεί να γίνει κάτι;;;; Aν όχι δεν πειράζει, τυπώνω το μήνα που θέλω και δεν σώζω τις αλλαγές

[ChrisGT7]

Καλησπέρα Σταύρο,

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

Δοκίμασε όμως να κάνεις δεξί κλικ στο αρχείο που προσπαθείς να αποθηκεύσεις και στις Ιδιότητες, έλεγξε αν υπάρχει το κουτάκι "Άρση αποκλεισμού". Επίλεξέ το, γιατί κι εγώ όταν κατέβασα το αρχείο σου, έπρεπε να το επιλέξω για να τρέξουν οι μακροεντολές. Γενικά ο αποκλεισμός δημιουργεί κάποια θέματα κατά την αποθήκευση, οπότε καλό είναι να ελέγχεται.

Θα σας πρότεινα πάντως να αναβαθμίσετε την έκδοση του Office σε κάποια νεότερη. Αρχεία που σχεδιάζονται σε παλαιότερες εκδόσεις δεν έχουν πρόβλημα στις νέες. Το αντίστροφο δημιουργεί προβλήματα, δηλαδή αρχεία νέων εκδόσεων σε παλαιότερες (π.χ. νεότερες συναρτήσεις του Excel δε λειτουργούν σε παλιότερες). Αλλά σίγουρα πριν προβείτε σε αναβάθμιση, θα πρέπει να ανοίξετε ένα αντίγραφο αρχείου σε κάποιον υπολογιστή που έχει νεότερη έκδοση Access, ώστε να επιβεβαιώσετε ότι λειτουργεί πλήρως και σωστά.

[stsepas]

Το πρόβλημα το ξεπέρασα μερικώς. Καλά θα ήταν, αν μπορείς, να το βλέπαμε μαζί με απομακρυσμένη βοήθεια, όταν πάω σχολείο. Τα σχολεία ανοίγουν 08/01/2026. Δεν ξέρω αν σε βολεύει με τη δουλειά σου πρωινές ώρες; Ωρες λειτουργίας σχολείου 08.15΄- 13.15΄.