[VBA] Find distinct values

[jockey17]

Καλησπέρα στην παρέα του φόρουμ.

Σε ένα αρχείο (Find Distinct Values.xlsm) υπάρχει ο κώδικας για να ανοίξει το δεύτερο αρχείο (ItemsPerWeek.xlsx) στο οποίο η στήλη B περιέχει τον αριθμό εβδομάδας και η στήλη C την ημερομηνία πώλησης και εντοπίζει τις μοναδικές τιμές που προκύπτουν από τον συνδυασμό των δύο παραπάνω στηλών (εντός μίας εβδομάδας υπάρχουν παραπάνω από μία ημερομηνία πώλησης), αυτές καταγράφονται στο φύλλο του πρώτου αρχείου, όπου στη συνέχεια θα χρησιμοποιηθούν ως τιμές επιλογής εβδομάδας σε ένα combobox μίας φόρμας.

Το παραπάνω (κομμάτι από ένα project) έχει δημιουργηθεί σε pc win7/excel office7 και λειτουργούσε άψογα καθώς και συνεχίζει να λειτουργεί άψογα σε όλα τα pc στο χώρο εργασίας που έχουν winxp / excel office7. Στο pc στο οποίο το δημιούργησα (στο σπίτι) εγκατέστησα office13 και εντελώς συμπτωματικά διαπίστωσα, ότι δεν λειτουργεί σωστά. Αναμένοντας περισσότερο από 20 λεπτά έχει διανύσει μόνο περί τις 1000 γραμμές του πρώτου αρχείου. Δοκιμάζοντας το σε ένα δεύτερο pc (στο σπίτι) με winxp / excel office7 λειτουργεί κανονικά.
Στο αρχείο που ανεβάζω έχω αφαιρέσει στήλες από το γνήσιο, το οποίο έχει στο σύνολο 52 στήλες, και έχω αφήσει μόνο αυτές που εμπεριέχουν τις ζητούμενες τιμές καθώς και ένα δύο ακόμα. Με αυτό το αρχείο η όλη διαδικασία ολοκληρώνεται στο excel office7 σε 40'', ενώ στο excel office13 καταφέρνει με αυτό το σχήμα χωρίς τις άλλες στήλες να ολοκληρωθεί σε 1' και 25''.
Γνωρίζει κανείς που μπορεί να οφείλεται αυτή η συμπεριφορά ή μήπως έχει συναντήσει κανείς τέτοιου είδους θέματα με το excel 13;
Ευχαριστώ εκ των προτέρων.

Φιλικά
Δημήτρης

[jockey17]

Ξέχασα να επισυνάψω τα αρχεία:

[jockey17]

Καλησπέρα στο φόρουμ.
Θέλω να γνωστοποιήσω στο φόρουμ το εξής: Μας έγινε γνωστό ενδοεταιρικά (από τη μητρική εταιρεία) ότι έχουν παρατηρηθεί περίεργες συμπεριφορές στο Excel 2013 σε αρχεία που εμπεριέχουν σύνθετους τύπους και ιδίως VBA δημιουργημένα σε Excel 2007. Μία απ’ αυτές τις «περίεργες» συμπεριφορές είναι ότι δεν ανοίγουν τα αρχεία σε εύλογο χρονικό διάστημα καθώς και ότι δεν εκτελείται ο κώδικας σε εύλογο χρονικό διάστημα. Η μητρική εταιρεία έχει στείλει ticket στη Microsoft για την εύρεση λύσης. Όταν μας γνωστοποιηθεί η λύση θα το κοινοποιήσω στο φόρουμ.

Φιλικά
Δημήτρης