[Excel07] Συγκέντρωση δεδομένων

[ChrisGT7]

Έστω ότι η Ε κατηγορία περιέχει 10 συναδέλφους σου. Καθένας τους θα πρέπει να στείλει το αρχείο συμπληρωμένο με το όνομά του και το χρόνο που ήταν στον κάθε πελάτη αφού γράψει τα στοιχεία αυτά στην 5η τριάδα κίτρινων στηλών;

Δηλαδή θα έχεις 10 αρχεία από την Ε κατηγορία για να συγκεντρώσεις τα στοιχεία σ' ένα αρχείο; Έτσι γίνεται και για τις υπόλοιπες κατηγορίες συναδέλφων;

[Flashgordon61]

Αρχική Δημοσίευση από ChrisGT7

Έστω ότι η Ε κατηγορία περιέχει 10 συναδέλφους σου. Καθένας τους θα πρέπει να στείλει το αρχείο συμπληρωμένο με το όνομά του και το χρόνο που ήταν στον κάθε πελάτη αφού γράψει τα στοιχεία αυτά στην 5η τριάδα κίτρινων στηλών;

Δηλαδή θα έχεις 10 αρχεία από την Ε κατηγορία για να συγκεντρώσεις τα στοιχεία σ' ένα αρχείο; Έτσι γίνεται και για τις υπόλοιπες κατηγορίες συναδέλφων;

Φίλε Χρήστο, είναι ακριβώς έτσι.

Τα 55 αρχεία που θα παραλάβω θα είναι όμοια εκτός από τις στήλες με την κίτρινη σκίαση.

Γιώργος

[Tasos]

Γεια σας!
Στο συνημμένο παράδειγμα ο χρήστης επιλέγει μέσα από παράθυρο διαλόγου τα αρχεία *.xls* προς εισαγωγή.

Τα δεδομένα του φύλλου "Database" του καθενός αρχείου θα συγκεντρωθούν στο φύλλο "AllData" του συνημμένου.

Καλή συνέχεια!

Τάσος

[Flashgordon61]

Τάσο , σ’ ευχαριστώ , αλλά αυτό δεν μου λύνει το πρόβλημα.
Αυτό ίσως συμβαίνει, από την μη σωστή διατύπωση του ζητούμενου από μέρους μου,
ίσως & και από λάθος στο τίτλο του θέματος (Ανανέωση & όχι Συγκέντρωση δεδομένων).
Το αρχείο που παίρνει κάθε συνάδελφος, έχει ήδη δεδομένα (παρελθόντος χρόνου) και καλείτε :
1) Να διαγράψει τα παλιά δεδομένα που το αφορούν.
2) Να καταγράψει τα νέα δεδομένα για τον εαυτό του (μόνο) , χωρίς να πειράξει τα δεδομένα των υπολοίπων.

Σημείωση: Ενδεχομένως κάποιοι συνάδελφοι να έχουν αλλάξει πελάτες.

Το αρχείο λοιπόν δεν θα έχει μόνα τα δικά του δεδομένα (διορθωμένα) αλλά & των υπολοίπων (του παρελθόντος χρόνου).
Το αρχείο στην στήλη Α έχει τον κωδικό του κάθε πελάτη.
Όπως ανέφερα οι κατηγορίες των συναδέλφων είναι έξι (6) και ο καθένας καταγράφει τα δεδομένα για τον εαυτό του αναλόγως στις στήλες με την κίτρινη σκίαση .
Επειδή ο κώδικας προτού αντιγράψει τα νέα δεδομένα, πρέπει να διαγράψει τα παλιά , πρόσθεσα μία γραμμή , που στην οποία , στα κελιά Β1 & D1 (πράσινη σκίαση) πρέπει να καταγράφεται η κατηγορία και το όνομα του καθενός .
Όπως το σκέφτομαι, το ζητούμενο είναι , κώδικας , που να διαγράφει τα παλιά δεδομένα με βάση τις τιμές των κελιών Β1 & D1 (πράσινη σκίαση) του κάθε αρχείου & 6 συνδυασμοί της συνάρτησης IF με κάποια συνάρτηση αναζήτησης & αναφοράς, σε VBA .
Αν αυτό δεν μπορεί να γίνει μαζικά (για όλα τα αρχεία), ίσως θα μπορούσε να γίνει με το κάθε αρχείο ξεχωριστά με λήψη εξωτερικών δεδομένων σε ένα νέο Φύλλο Εργασίας και κάνοντας τα παραπάνω.
Ελπίζοντας στην βοήθειά σου .
Και πάλι σ΄ευχαριστώ.

Γιώργος

[Tasos]

Καλησπέρα σε όλους!

Γιώργο, αν το ζητούμενο είναι μια διαδικασία που θα βρίσκει τη στήλη της κατηγορίας (πχ. Employee_B)
και θα διαγράφει τις γραμμές εκείνες που περιέχουν το όνομα του επιλεγμένου υπαλλήλου (κελί D1)
τότε πιστεύω ότι το συνημμένο παρακάτω θα σε βοηθήσει.

Καλή συνέχεια!

Φιλικά

Τάσος

[Flashgordon61]

Τάσο , χίλια ευχαριστώ!!!!!!!!!!!
Βέβαια ο κώδικας διαγράφει ολόκληρες τις γραμμές και το ζητούμενο είναι η απαλοιφή των δεδομένων, και μόνο για τα κελιά στην τριάδα των στηλών (Όνομα , Χρόνος , Συχνότητα ανά μήνα) για τον κάθε υπάλληλο αναλόγως , αλά αλλάζοντας στον κώδικα το

rng(i).EntireRow.Delete

με το

rng(i).ClearContents
rng(i, 2).ClearContents
rng(i, 3).ClearContents

επιτυγχάνεται το ποθούμενο.

Τώρα ως αναφορά το δεύτερο σκέλος του ζητούμενου (Εισαγωγή νέων δεδομένων) ,
με βάση τα αναφερόμενα στο προηγούμενο μήνυμά μου , περιμένω & πάλι την βοήθειά σου.

Συγνώμη για το φόρτωμα ………….

Καλή συνέχεια.

Γιώργος

[Tasos]

Γιώργο, για να διαγράψεις τα περιεχόμενα τα κελιά στην τριάδα των στηλών αρκεί:

rng(i).Resize(1, 3).ClearContents

Δεν κατάλαβα το β΄μέρος του ζητούμενου.

Μπορείς να με βοηθήσεις;

Τάσος