[gr8styl]

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

Τα ζητούμενα 2
1ον)Πως πρέπει να δομηθεί ο κώδικας ούτως ώστε το αρχείο προέλευσης των δεδομένων που ανοίγει (Workbooks.Open FileArray(i)), μετά την διαδικασία αντιγραφής και επικόλλησης να σώζεται και να κλείνει.
2ον)Επειδή η αρχή της περιοχής των δεδομένων που αντιγράφονται από τα αρχεία προέλευσης δεν είναι πάντα η περιοχή A8:Q8 ζητείται τροποποίηση του κώδικα ούτως ώστε η αρχή αυτή να προσδιορίζεται ως η περιοχή μετά τις επικεφαλίδες (Δηλ. από το επόμενο κελί μετά το κελί που έχει τιμή (Πωλητής) της στήλης Α έως τη στήλη Q).

Γιώργο για το πρώτο ερώτημα χωρίς να ασχοληθούμε με την βελτιστοποίηση του κώδικα:

α) Πρόσθεσε στην Sub InsertMultiData() την δήλωση
Dim wbk As Workbook

β) Αντικατάστησε την Workbooks.Open FileArray(i) με την
Set wbk = Application.Workbooks.Open(FileArray(i))

γ) Πριν την Next i πρόσθεσε τις παρακάτω δύο γραμμές
Application.CutCopyMode = False
wbk.Close

Πες μας αν έγινε.

Για το δεύτερο ερώτημα, τα πράγματα είναι πιο σύνθετα το αφήνω λοιπόν στους ειδικούς
Θανάσης