[VBA] Ενοποίηση φύλλων & αρχείων

[LEO]

Καλησπέρα σας ,

Χρειάζομαι την βοηθεια σας στο εξής θέμα :
a) Έχω 2φύλλα (Α & Β) και θέλω να ενοποιήσω συγκεκριμένες στήλες σε ένα 3φύλλο (Πρόγραμμα) με επιλογή ταξινόμησης είτε ανα Κωδικό είτε ανά επώνυμο/ονομα

β)Αν τα φύλλα Α & Β ήταν σε 2διαφορετικά αρχεία και έπρεπε να τα ενοποιήσω σε ένα τρίτο αρχείο (Πρόγραμμα) με την ως άνω λογική .

Σας ευχαριστώ

[ChrisGT7]

Καλησπέρα Σωτήρη,

Δύο διευκρινίσεις:

1. Χρειάζεσαι μόνο τις γραμμές με Α/Α, σωστά;
2. Οι στήλες για την ενοποίηση θα είναι πάντα: Κωδ. - Επώνυμο - Όνομα και P:V, σωστά;

[LEO]

Καλημέρα Χρήστο,
1.Σωστά
2.Στην πορεία ίσως χρειαστεί να προστεθούν νέες στήλες.

Σε ευχαριστώ.

[ChrisGT7]

Δοκίμασε το συνημμένο αρχείο αν καλύπτει το πρώτο σου ζητούμενο.

Tο κουμπί ΕΝΩΣΗ αντιγράφει και ταξινομεί στο φύλλο ΕΝΟΠΟΙΗΣΗ τις γραμμές από τις ΒΑΡΔΙΕΣ Α και Β.

[LEO]

Καλημέρα σας ,
Χρήστο σε ευχαριστώ πολύ .

Έκανα μια αλλαγή στο αρχείο για να διευκολύνω τον χρήστη και προφανώς χάλασε τις στήλες που ενοποιεί .
Πρόσθεσα μια στήλη με επιλογή το ονοματεπώνυμο από Λίστα και θα ήθελα αν είναι εφικτό στο φύλλο "ΒΑΡΔΙΕΣ Α" να φέρνει μόνο τους εργαζομένους που στον Πίνακα εργαζομένων έχει στη στήλη βάρδιες "ΝΑΙ" και στην κατηγορία "ΠΛΑΣΤΙΚΑ" και στο Φύλλο ¨ΒΑΡΔΙΕΣ Β" να φέρνει όταν έχει "ΝΑΙ" και "ΑΝΑΨΥΚΤΙΚΑ" στις αντίστοιχες στήλες και αν μπορεί να είναι ταξινομημενα ανά Ονοματεπώνυμο.

[ChrisGT7]

Καλησπέρα Σωτήρη,

Όταν λες να φέρνει στα φύλλα "ΒΑΡΔΙΕΣ" Α & Β τους εργαζόμενους με τα αντίστοιχα κριτήρια, μήπως εννοείς να τους φέρνει στο φύλλο ΕΝΟΠΟΙΗΣΗ;

Τα φύλλα ΒΑΡΔΙΕΣ δεν είναι αυτά που διαβάζει και η ΕΝΟΠΟΙΗΣΗ αυτό που θα έχει τα αποτελέσματα;

[LEO]

Καλησπέρα Χρήστο και πάλι σε ευχαριστώ,

Εννοώ στην στην στήλη "Ονοματεπωνυμο" στο φύλλο πχ ΒΑΡΔΙΕΣ Α , που επιλέγεις το εργαζόμενο από την Λίστα να μην εμφανίζει στην Λιστα για επιλογή, όλους τους εργαζόμενους αλλά τους συγκεκριμένους που έχουν τα συγκεκριμένα κριτήρια στον Πίνακα εργαζομένων δηλ. ΝΑΙ και ΠΛΑΣΤΙΚΑ και για το φύλλο ΒΑΡΔΙΕΣ Β τα κριτήρια είναι ΝΑΙ και ΑΝΑΨΥΚΤΙΚΑ.

Τέλος τα φύλλα ΒΑΡΔΙΕΣ θα ενοποηθούν στην ΕΝΟΠΟΙΗΣΗ όπως το είχες υλοποιήσει πριν προσθέσω την στήλη Ονοματεπώνυμο το οποίο όμως δεν θέλω να εμφανίζεται στην Ενοποίηση γιατί θα έχει Επώνυμο και ονομα σε διαφορετικές στήλες .

[ChrisGT7]

Σωτήρη,

Κάνε τους ελέγχους σου στο συνημμένο αρχείο ώστε να δούμε αν όλα βαίνουν καλώς.

Στο φύλλο Ergazomenoi υπάρχουν οι βοηθητικές στήλες I και J που φιλτράρουν τους εργαζόμενους που χρειάζεσαι.

Επίσης, υπάρχουν δύο εύρη με ονόματα ΒΑΡΔΙΕΣ_Α και ΒΑΡΔΙΕΣ_Β, τα οποία χρησιμοποιούνται στα αντίστοιχα φύλλα στην επικύρωση τιμών της στήλης Ονοματεπώνυμο.

[LEO]

Χρήστο ,
Σε ευχαριστώ και πάλι .

Το αρχείο είναι σωστό, μόνο στο φύλλο ενοποίησης στις Επικεφαλίδες φέρνει
Ονοματεπώνυμο - Επώνυμο αντι Επώνυμο - Ονομα .
Τα Data από κατω είναι σωστά .

[ChrisGT7]

Ουπς ναι, ξέχασα τη νέα στήλη...

Στον κώδικα αντικατέστησε την 6η γραμμή από το τέλος:

Sht.[A1:C1].Value = S1.[D4:F4].Value

με αυτή:

Sht.[A1:C1].Value = Array("Κωδ.", "Επώνυμο", "Όνομα")