[VBA] Εισαγωγή αδειών με UserForm

[Flashgordon61]

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

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

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

Γιώργος

[Flashgordon61]

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

Απέκλεισα το 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

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

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

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

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

Γιώργος

[xristos]

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