[kapetang]

Καλησπέρα

Τάσο δες το συνημμένο.

Αν το αποσυμπιέσεις θα πάρεις το πρότυπο και το αρχείο ListFiles.

Στον κώδικα:

1) Θα πρέπει να ορίσεις τη σωστή θέση του ListFiles.xls

2) Αν προσθέσεις και άλλα φύλλα στο ListFiles.xls, πιθανόν να χρειαστεί προσαρμογή η γραμμή:

Set rng = wb.Worksheets(1).Range("j2").Resize(10000) '<= 1ο φύλλο.

3) Άλλαξα τα ονόματα των φύλλων στο περιβάλλον του κώδικα σε MultiIns και Ergo.

Αν σε άλλα σημεία του κώδικα χρησιμοποιούνται τα παλιά ονόματα (φύλλο4, φύλλο2) θα πρέπει να αντικατασταθούν με τα νέα.

Τάσο, έχω την εντύπωση ότι δουλεύεις ανορθόδοξα.

Από ότι κατάλαβα η εφαρμογή σου έπρεπε να αναπτυχθεί στην Access.

Αλλά και στο Excel, θα έπρεπε να έχει παρόμοια δομή.

Τέλος επειδή, μάλλον δεν έχεις καταλήξει στο τι ακριβώς θέλεις, γυροφέρνουμε στο ίδιο θέμα (αποθήκευση του αρχείου).