Υπολογισμός ωρών
 

Καλησπέρα σε όλους, επισυνάπτω το παρακάτω αρχείο , μπορείτε να βοηθήσετε;:worthy:

Καλησπέρα

Γιάννη, δες μια λύση, με κώδικα VBA, στο συνημμένο αρχείο.

Σε κάποια σημεία τα αποτελέσματα που δίνει η συνάρτηση χρήστη (συνάρτηση που δημιούργησα με VBA) διαφέρουν από αυτά που αναγράφεις.

Σημειώνω ότι τα παραδείγματα που δίνουμε θα πρέπει να είναι ακριβή για να μη δημιουργούν σύγχυση αναφορικά με το ζητούμενο.

Φιλικά/Γιώργος

Καλησπέρα Γιώργο, πριν λίγο είδα την απαντησή σου και συμφωνώ ότι είχαν γίνει λάθη στους υπολογισμούς στο αρχείο που είχα επισυνάψει. Αυτό οφείλεται διότι ο υπολογισμός έγινε στο χέρι.

Όσο αφορά την λύση, σε ευχαριστώ, αν είναι δυνατόν ο υπολογισμός με την τοποθέτηση ενός κουμπιού

Καλησπέρα

Γιάννη, η συνάρτηση είναι πιο ευέλικτη από το κουμπί.

Λειτουργεί με δεδομένα που μπορεί να βρίσκονται σε οποιοδήποτε φύλλο και θέση, σε αντίθεση με το κουμπί.

Δεν έχω χρόνο και διάθεση για να ασχοληθώ με κάτι που θεωρώ περιττό.

Καλημέρα
Ένας άλλος τρόπος με συναρτήσεις
Θανάσης

Θανάση, ευχαριστώ για την απάντηση, αλλά θέλω να υπολογίζω μεγάλο αριθμο υπαλλήλων , καθώς και εκτός απο ΡΕΠΟ έχω, ΑΣΘΕΝΕΙΑ , ΑΔΕΙΑ, ΑΝΕΥ ΑΠΟΔΟΧΩΝ, κλπ. αυτό πως γίνεται ;;

Η 'ιδια ερώτηση είναι και για την λύση του Γιώργου. Όταν βάζω π.χ ΑΔΕΙΑ τότε βγαίνει #ΑΝΑΦ!

Καλησπέρα

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

Εκφράσεις «καθώς και εκτός απο ΡΕΠΟ έχω, ΑΣΘΕΝΕΙΑ , ΑΔΕΙΑ, ΑΝΕΥ ΑΠΟΔΟΧΩΝ, κλπ.» είναι απαράδεκτες.

Η λύση που σου προτείνω βασίζεται στην υπόθεση ότι οι εκφράσεις που χρησιμοποιούνται όταν απουσιάζει κάποιος, δεν περιέχουν το σύμβολο «:».

Στον κώδικα στη συνάρτηση WorkHoursWeekEnd κάνε τις ακόλουθες αλλαγές:

1) Άλλαξε τη γραμμή κώδικα κάτω από τη λέξη «Σάββατο» με την:

If InStr(strD1, ":") > 0 Then

2) Άλλαξε τη γραμμή κώδικα κάτω από τη λέξη «Κυριακή» με την:

If InStr(strD2, ":") > 0 Then

Φιλικά/Γιώργος

Καλησπέρα
Στο Φύλλο wres πέρασε τις διάφορες επιλογές με τις πρόσθετες ώρες, και όλα θα είναι εντάξει.
Θανάσης

Ευχαριστώ για τις απαντήσεις Γιώργο και Θανάση. Επίσης ζητώ συγνώμη Γιώργο για την ταλαιπωρία που σου δημιούργησα, μη θέτοντας ορθά την ερώτηση!!!