Forum - VBA Εισαγωγή αδειών με UserForm

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Εισαγωγή αδειών με UserForm (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2207-eisagogi-adeion-me-userform.html)

Φίλε Χρήστο καλησπέρα
Σωστή η επισήμανση

Παράθεση:

πρέπει να προσθέσεις το επιλέγεις και σέρνεις μέχρι τέλους (στήλη ΟΙ)

Σημειώνουμε τις άδειες ως εξής:
Με Α (ελληνικό η αγγλικό) για τις άδειες εργασίας
Με I (ελληνικό η αγγλικό) για τις ιατρικές άδειες
Με E (ελληνικό η αγγλικό) για τις ειδικές άδειες
Αν το κάνεις αυτό, στην στήλη ΟΜ (Σύνολο αδειών), όπως δείχνει και η συνάρτηση
(=IF(OJ7="";"";COUNTIF(C7:OH7;"a")+COUNTIF(C7:OH7; "α"))) καταμετρά τα (α) & (a) της γραμμής.
Στο φύλλο (Ετήσια Φόρμα) καταμετρούνται μόνο οι άδειες εργασίας, οι άλλες άδειες καταμετρούνται στο φύλλο (Control)
Ο τύπος {=OL7-OM7}, είναι τύπος πίνακα και εισάγεται ως εξής :
Επιλέγεις τα κελιά ΟΝ7:ON88 , γράφεις =OL7-OM7 και πατώντας τον συνδυασμό πλήκτρων Ctrl+Shift+Enter μπαίνουν τα άγκιστρα { }.
Αν γίνουν τα παραπάνω, το αρχείο λειτουργεί άψογα.

Γιώργος

Θανάση χίλια ευχαριστώ:thanks::thanks:

Απέκλεισα το MsgBox ar_hm που δήλωνε τον αριθμό ημέρας του ρεπό και το οποίο εμφανιζόταν με

Κώδικας:

Private Sub ComboBox3_Change()

    ar_hm = ComboBox3.ListIndex + 1

    'MsgBox ar_hm

End Sub

& με το

Κώδικας:

If OptionButton7.Value = True Then

         'MsgBox ar_hm

και δουλεύει Α Ψ Ο Γ Α.
Ο κώδικας επειδή καταγράφει , ελέγχει & διαγράφει καθυστερεί λίγο (ιδιαίτερα όταν καταγράφουμε μεγάλο αριθμό ημερών αδείας).
Παρόλα αυτά αυτό δεν μειώνει το δουλεύει Α Ψ Ο Γ Α.
Για το

Παράθεση:

Γιώργο αν το Σάββατο είναι Επίσημη αργία, για την περίπτωση ρεπό να ξέρεις γίνεται πάντα απαλοιφή.

απαντώ πολύ καλά κάνει.

Και πάλι ευχαριστώ.
Καλή συνέχεια

Γιώργος

Φίλοι του Φόρουμ γειά σας.
Γιώργο σε ευχαριστώ για την άμεση απάντησή σου και πιστεύω εσείς οι γνώστες των Η/Υ να βοηθάτε εμάς για να γινόμαστε καλύτεροι...
Σας ευχαριστώ πολύ