Καλημέρα Μενέλαε,
Χαίρομαι που το προηγούμενο αρχείο σου φάνηκε χρήσιμο! Ελπίζω το συνημμένο να σε καλύψει ακόμα περισσότερο.
Ενώ στο προηγούμενο αρχείο μπορούσες να επιλέξεις μονάχα ένα αρχείο, πλέον μπορείς να ανοίγεις περισσότερα του ενός, αφού έγκειται στις ανάγκες της καθημερινότητας. Αν όμως κάποιο αρχείο δεν είναι σωστό, τότε η διαδικασία σταματάει και θα πρέπει να επιλέξεις από την αρχή τα σωστά αρχεία. Ως διαδικασία ελέγχου ορθών αρχείων θεωρώ πως το κελί A1 θα γράφει "Order No" και το J1 "Forwarding Code". Αν πιστεύεις πως πρέπει να προστεθεί κάτι επιπλέον στη διαδικασία, μου λες.
Ενώ στο προηγούμενο αρχείο η στήλη C (Spares Orders Fwded) καθαριζόταν κάθε φορά που έτρεχε ο κώδικας για να συμπληρωθούν όλες οι εντολές από την αρχή, τώρα ο κώδικας ελέγχει ποια κελιά αυτής της στήλης είναι κενά και συμπληρώνει μονάχα αυτά, αφήνοντας άθικτα τα ήδη συμπληρωμένα. Ο λόγος που προτίμησα αυτήν την μέθοδο και όχι αυτή με την επιλογή γραμμής είναι λόγω του παρακάτω παραδείγματος:
Έστω ότι ο στόλος αποτελείται από 70 πλοία, δηλαδή 70 φύλλα εργασίας (δε μας ενδιαφέρει το πλήθος των αρχείων στην προκειμένη περίπτωση). Βάζοντας γραμμή έναρξης αναγκαστικά για κάθε πλοίο, για να γλιτώσεις χρόνο θα πρέπει να έχεις το συγκεκριμένο πλοίο σε ένα αρχείο και να ανοίξεις μονάχα αυτό. Ειδάλλως, κάθε φορά που ο κώδικας θα διαβάζει ένα φύλλο εργασίας, θα σου ζητάει να βάζεις τη γραμμή έναρξης. Δε νομίζω ότι είσαι διατεθειμένος να το κάνεις αυτό 70 φορές μέχρι το πέρας της διαδικασίας!
Για να αντιγράψεις τον κώδικα σε ένα νέο αρχείο, κάνεις τα εξής:
1. Ανοίγεις το επισυναπτόμενο αρχείο και πατάς ALT+F11.
2. Στο νέο παράθυρο και αριστερά, κάνε διπλό κλικ στο Module1.
3. Κάνε κλικ κάπου μέσα στον κώδικα, πάτα Ctrl+A για να επιλεγούν τα πάντα και τέλος, δεξί κλικ πάνω στο επιλεγμένο κείμενο και Αντιγραφή.
4. Άνοιξε το νέο σου αρχείο και πάτα πάλι ALT+F11.
5. Στο παράθυρο Project-VBAProject και κάτω από τη δενδροειδή μορφή, πάτα δεξί κλικ > Εισαγωγή > Module.
6. Στο κενό παράθυρο κάνε επικόλληση τον κώδικα από πριν και κλείσε το παράθυρο της
VBA.
7. Κάνε εισαγωγή ένα νέο σχήμα για να λειτουργεί ως κουμπί εκτέλεσης της μακροεντολής.
8. Δεξί κλικ πάνω του, Αντιστοίχιση μακροεντολής, επέλεξε ForwardedOrders και ΟΚ.
9. Δημιούργησε ένα νέο φύλλο με όνομα ΠΡΟΧΕΙΡΟ και πρόσθεσε τις επικεφαλίδες Forwarding Code (στήλη A), Ship (στήλη B), Order No (στήλη C).
10. Για να λειτουργήσει ο κώδικας πρέπει να αποθηκεύσεις το αρχείο σε μορφή .xlsm.
Αν η παραπάνω διαδικασία φαίνεται δύσκολη, τότε θα σου πρότεινα τα εξής:
1. Άνοιξε ταυτόχρονα το επισυναπτόμενο και το δικό σου αρχείο, το οποίο πρέπει να έχει τις ίδιες ακριβώς στήλες με το επισυναπτόμενο.
2. Στο επισυναπτόμενο διέγραψε όλα τα δεδομένα στις στήλες Α:Ο.
3. Αντέγραψε τις ίδιες στήλες από το αρχείο σου και επικόλλησέ τες στο καθαρό πλέον επισυναπτόμενο αρχείο.
4. Κλείσε το δικό σου και αποθήκευσε το επισυναπτόμενο αρχείο με τα νέα δεδομένα.