[jockey17]

Καλησπέρα Γιώργο,
Σε ευχαριστώ για την νέα λύση που έφτιαξες. Με βάζεις συνεχώς σε «βαθύτερα νερά», αφού αντιλαμβάνομαι τι κάνει η ρουτίνα, αλλά ακόμα τη μελετώ για να την κατανοήσω καλύτερα. Σαφώς είναι καλύτερη επειδή είναι γενικότερη και όσο τη δοκίμασα δεν διαπίστωσα κανένα πρόβλημα. Μάλιστα την χρησιμοποίησα live σε αρχείο στη δουλειά, του οποίου ένα μικρό απόσπασμα αντέγραψα στο «Sheet2». Το φύλλο το κλείδωσα (χωρίς κωδικό), όπως είναι κλειδωμένο και στο αρχείο στη δουλειά. Σε αυτό το φύλλο γίνονται καταγραφές παραγγελιών, όπου σε κάποιες περιπτώσεις η απεικόνιση οφείλει να γίνεται «ποσότητα * κιβώτια». Όταν το συγκεκριμένο τμήμα ολοκληρώσει τις καταχωρήσεις του και έχει στείλει τις παραγγελίες στους προμηθευτές, πρέπει να στείλει το αρχείο στη μητρική εταιρεία, αλλά για κάποιο λόγο τους ενοχλούν οι εν λόγω καταχωρίσεις και καθόντουσαν να εντοπίσουν τα κελιά ένα-ένα και να αντικαταστήσουν με την τελική ποσότητα. Δεν μπορείς να φανταστείς τι κόπο γλυτώνουν. Εν προκειμένω τη ρουτίνα την καλούν κατά περίπτωση πριν την αποστολή του αρχείου. Σκέφτηκα αφού δεν μπορούμε να την ενσωματώσουμε μέσα στο ίδιο το αρχείο, δεν μένει άλλος τρόπος παρά να ανοίγουν και αυτό το .xlsm σαν βοηθητικό αρχείο και να υποδεικνύουν την περιοχή (ολόκληρη στήλη ή στήλες) όπου πρέπει να γίνει η αντικατάσταση. Εγώ στο σπίτι με Office 13 μπορώ στο InputBox να υποδείξω περιοχή από άλλο ανοικτό αρχείο. Στη δουλειά όμως με Office 7 δεν λειτούργησε. Κάπου διάβασα για συνδυασμό πλήκρων ctr + tab, αλλά και πάλι δεν έπαιξε. Έτσι σε ένα οποιοδήποτε κελί μετά το «=» υπέδειξα την στήλη με αποτέλεσμα να πάρω στο κελί τη διαδρομή και με αντιγραφή επικόλληση στο InputBox να λειτουργήσει. Φαντάζομαι δεν υπάρχει άλλος τρόπος. Αλλά κι έτσι μικρός ο κόπος για το τεράστιο όφελος.
Τέλος έκανα κάποιες προσθήκες στον κώδικα για να μη βγάζει σφάλμα εάν πατήσει ο χρήστης άκυρο καθώς και να αγνοεί τα κλειδωμένα κελιά. Δεν ξέρω εάν συμφωνείς με τον τρόπο που τα έγραψα.
Φιλικά
Δημήτρης