Εμφάνιση ενός μόνο μηνύματος
  #7  
Παλιά 11-07-13, 17:42
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλησπέρα!

Παναγιώτη,
στο αρχείο *.xlsm που επισυνάπτω υπάρχει μια λύση που πιστεύω ότι θα σε βοηθήσει να συνεχίσεις.

Αρχικά, επειδή χρησιμοποιείται κώδικας VBA θα πρέπει το επίπεδο ασφαλείας μακροεντολών της εφαρμογής να επιτρέπει την εκτέλεση του.

Κάνε τα εξής:

Άνοιξε το αρχείο και πάτησε αρχικά το κουμπίπου βρίσκεται στο κελί F1 για να επιλέξεις το φάκελο όπου βρίσκονται τα αρχεία *.xls προς εισαγωγή.

Στις γραμμές 2 και 3 συμπληρώνεις τα ονόματα των απομακρυσμένων φύλλων και τις διευθύνσεις των κελιών προς εισαγωγή (εξηγείται και στο αρχείο).

Στη γραμμή 4 συμπλήρωσε τις κεφαλίδες του συγκεντρωτικού σου πίνακα

Πάτησε το κουμπί Εισαγωγή ονομάτων βιβλίων εργασίας.
Τα ονόματα των αρχείων του φακέλου που έχεις επιλέξει θα εισαχθούν στη στήλη Β.
Μπορείς να το χρησιμοποιείς κάθε φορά που προστίθενται νέα αρχεία στο φάκελο.
Θα εισαχθούν μόνο αυτά που δεν υπάρχουν στη στήλη Β.

Κατόπιν πάτησε το κουμπί Εισαγωγή δεδομένων.
Θα εισαχθούν δεδομένα από τα βιβλία εκείνα που τα ονόματα τους υπάρχουν στη λίστα (στήλη Β) .
Μετά από επιτυχή εισαγωγή στη στήλη Α περνιέται αυτόματα ένα "τικ" που αποτρέπει τον κώδικα να ανοίξει το ίδιο αρχείο μόνο την δεύτερη φορά.

Ο κώδικας στο συνημμένο παράδειγμα έχει στηθεί με βάση τα παραδειγματικά αρχεία που ανέβασες.

Καλή συνέχεια!

Με εκτίμηση

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm INVENTORY CATALOGE.xlsm (41,2 KB, 210 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 12-07-13 στις 10:36.
Απάντηση με παράθεση