Φίλε Μανώλη,
θα σου πρότεινα όλα αυτά που κάνεις με
VBA στο "ΔΕΙΚΤΕΣ.xls" να τα αντικαταστήσεις με:
Εισαγωγή εξωτερικών δεδομένων και να χρησιμοποιήσεις ερώτημα σε βάση δεδομένων "Αρχείο DBase". Φυσικά ορίζεις το αρχείο σου stat.DBF σαν πηγή.
Έτσι μέσω του MS-Query θα κάνεις εισαγωγή μόνο των δεδομένων (στηλών) που σε ενδιαφέρουν (PP1,PP6 και PP7).
Στις ιδιότητες του ερωτήματος μπορείς να καθορίσεις να παίρνεις μοναδικές τιμές μόνο, οπότε έχεις απλά και καθαρά τα δεδομένα των ημερομηνιών που χρειάζονται.
Με την συνάρτηση =DATEDIF(Αρχή;Τέλος;"d") μπορείς να υπολογίσεις τις ημέρες που μεσολαβούν μεταξύ Αρχής και Τέλους.
Οι παράμετροι που θέλεις να υπολογίσεις από εκεί και πέρα είναι θέμα τύπων που έχεις ήδη.
Δες στο συνημμένο τι εννοώ όπου όπως θα διαπιστώσεις απέφυγα να σου δώσω ολοκληρωμένη λύση.
Μπορείς λοιπόν να το μελετήσεις και να το πας παραπέρα και όπου χρειαστεί εδώ είμαστε.
Έτσι θα έχεις και την ικανοποίηση του "Do It Yourself (DIY)"
Θανάσης
ΥΓ
Αν το αρχείο stat.DBF περιέχει τα δεδομένα για όλους τους μήνες μπορείς να υπολογίζεις όλους τους μήνες ταυτόχρονα (χωρίς VBA)