Σταύρο, αν πρόκειται για τους τύπους που υπήρχαν στο αρχικό συνημμένο του θέματος,
τότε στον κώδικα άλλαξε τη γραμμή:
Set f = rngSourceDates.Find(c)
με τη γραμμή:
Set f = rngSourceDates.Find(What:=c, LookIn:=xlValues).
Εναλλακτικά (αυτό που θα σου πρότεινα), αφού οι τύποι δεν υπολογίζουν αλλά απλά επιστρέφουν την τιμή του κελιού στο οποίο αναφέρονται, είναι ευκολότερο και αποδοτικότερο να
εισάγεις δεδομένα με τη μέθοδο
Εισαγωγής εξωτερικών δεδομένων από το
αρχείο-πηγή
(Access, Excel, αρχείο κειμένου κ.ά.) και να τα ανανεώνεις όποτε θέλεις από το τελικό αρχείο.
Τα πλεονεκτήματα πολλά και ευεργετικά ειδικά σε μεγάλο όγκο δεδομένων.
Στο μενού "Δεδομένα > Εισαγωγή εξωτερικών δεδομένων" κάνε κλικ στην επιλογή "Εισαγωγή δεδομένων".
Στο διάλογο που θα εμφανιστεί επέλεξε το αρχείο από όπου θα αντλείς τα δεδομένα (VILLAS 2011-καθάρισμα.xls).
Στον επόμενο διάλογο που θα εμφανιστεί επιλέγεις το φύλλο που περιέχει τα δεδομένα προς εισαγωγή.
Στον επόμενο διάλογο που θα εμφανιστεί κάνε κλικ στην επιλογή "Ιδιότητες" και κάνε τις ρυθμίσεις όπως δείχνει η εικόνα:
και κλείσε τους 2 διαλόγους μς OK.
Σου επισυνάπτω 2 συνημμένα για να το δεις σε λειτουργία:
- Το VILLAS 2011-καθάρισμα.xls που θα πρέπει να το μεταφέρεις στη διαδρομή C:\,
- Το ΚΑΘΑΡΙΣΜΑΤΑ.xls που παίρνει τα δεδομένα του από το C:\VILLAS 2011-καθάρισμα.xls.
Καλή συνέχεια!
Τάσος