Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Ομαδοποίηση ημερομηνιών. (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5467-omadopoiisi-imerominion.html)

bill72 20-02-20 20:21

Ομαδοποίηση ημερομηνιών.
 
1 Συνημμένο(α)
Καλησπέρα σε όλη την παρέα,

Στο φύλλο εργασίας «Καταχώρηση» καθημερινά καταχωρώ διάφορα δικαιολογητικά ανά υπάλληλο και ημερομηνία.
Αυτό που χρειάζομαι είναι μια παρόμοια λύση όπως http://www.ms-office.gr/forum/excel-...is-adeion.html
ώστε να δημιουργεί το αρχείο «Διαστήματα» ,που επισυνάπτω.
Να μεταφέρονται όλα τα δικαιολογητικά στο φύλλο «Διαστήματα» αλλά να υπολογίζονται μόνο Κανονική Αδεια και Δελτίο Ασθενείας πάντα ανά AM.

ευχαριστώ εκ των πρότερων

kapetang 21-02-20 12:03

1 Συνημμένο(α)
Καλημέρα

Βασίλη δες μια πρόταση με συγκεντρωτικό πίνακα.

Προϋποθέτει κατάλληλη καταχώρηση των δικαιολογητικών απουσίας.

bill72 21-02-20 15:17

1 Συνημμένο(α)
Γιώργο θέλω να σ' ευχαριστήσω που ασχολήθηκες και για την γρήγορη απάντηση σου,

Το φύλλο Καταχώρηση είναι συγκεντρωτικό φύλλο εργασίας άλλων 30 ή 31 φύλλων ένα για κάθε ημέρα του μήνα, και συμπληρώνεται αυτόματα με κώδικα vba από δεδομένα που καταχωρούνται καθημερινά στα εν λόγω φύλλα με επικύρωση δεδομένων (λίστα).
Συνεπώς δεν μπορώ να αλλάξω τα δικαιολογητικά «Κανονική Αδεια 1» κτλ.

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

kapetang 22-02-20 18:22

1 Συνημμένο(α)
Καλησπέρα

Βασίλη κάνε δοκιμές στο συνημμένο.

Για να λαμβάνονται υπόψη και οι επίσημες αργίες, πρόσθεσα και το φύλλο [argies].

Ο κώδικας είναι αρκετά περίπλοκος, για να μη γίνει περισσότερο, όλα τα είδη απουσίας αντιμετωπίζονται με τον ίδιο τρόπο.

bill72 23-02-20 13:31

Καλησπέρα,

Γιώργο είναι τέλειο, καταπληκτικό, και πάλι σ’ ευχαριστώ πολύ .

Να είσαι καλά.

kapetang 23-02-20 19:21

1 Συνημμένο(α)
Καλησπέρα

Να είσαι καλά Βασίλη και καλή συνέχεια.

Το συνημμένο είναι μια βελτιωμένη έκδοση του προηγούμενου (απλοποίησα κάπως τον κώδικα).


Η ώρα είναι 18:31.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2