
23-06-24, 21:37
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
| |
Καλησπέρα Νίκο,
Δοκίμασε το συνημμένο αρχείο αν σε καλύπτει. Τροποποίησα κάπως τον κώδικα και τον συμμάζεψα λίγο.
Μην υποτιμάς τη χρήση του Option Explicit. Ελέγχει τον κώδικα αν τυχόν υπάρχουν μεταβλητές που δεν έχεις δηλώσει και σε υποχρεώνει να τις δηλώσεις.
Στην εύρεση του Α/Α δε χρειάζεται πιστεύω να ελέγχεις και τις 2000 γραμμές για να βρεις μια γραμμή. Ο Α/Α είναι μοναδικός στη στήλη Β οπότε αν τον βρει, ενημερώνει τη γραμμή και τελειώνει η αναζήτηση. Χρησιμοποιώ τη μέθοδο Find για να βρω τη γραμμή και εμφανίζεται μήνυμα αν δε βρεθεί ο Α/Α που δηλώνει ο χρήστης.
__________________ Your Curiosity Will Be The Death Of You! |