Εμφάνιση ενός μόνο μηνύματος
  #7  
Παλιά 27-11-12, 10:07
Flashgordon61 Ο χρήστης Flashgordon61 δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-09-2010
Περιοχή: Θεσσαλονίκη
Μηνύματα: 66
Προεπιλογή

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

Απ΄ότι παρατήρησα ο κώδικας πρώτα εισάγει τις ημερομηνίες αδειών και μετά αφαιρεί τα Σαββατοκύριακα και τις αργίες.
Κώδικας:
If Weekday(xDate, vbMonday) >= 6 Or IsHoliday Then    '
                  cell.Value = ""
Στήνοντας το αρχείο προέκυψε μία νέα παράμετρος
Κάποιοι εργαζόμενοι εργάζονται Σάββατο και έχουν ρεπό μια άλλη μέρα της εβδομάδος.
Έχω σχεδιάσει το UserForm αλλά πρέπει να παραμετροποιηθεί ο κώδικας.
Περιμένοντας πάλι την πολύτιμη βοήθειά σου
Και πάλι σ΄ευχαριστώ

Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Άδειες_New.xlsm (136,2 KB, 124 εμφανίσεις)
Απάντηση με παράθεση