14-05-14, 22:34
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλησπέρα
Ο κώδικας έχει κατ' αρχήν 2 γραμμές που δεν χρειάζονται στην ενέργεια Find & Replace
που ζητάμε.
Πιθανόν ο συγκεκριμένος να είναι τμήμα ενός άλλου μεγαλύτερου κώδικα.(???)
Αυτές είναι οι γραμμές και πρέπει να διαγραφούν
Dim rngFalse As Range
Set rngFalse = Range("L3:L4535")
Τώρα ο κώδικας τι κάνει:
Βρίσκει οτιδήποτε περιέχει "Αγαπη" και το διαγράφει
Οτιδήποτε μοιάζει με το "Αγαπη" δηλαδή χωρίς τονισμό και με τους ίδιους χαρακτήρες.
Αν θέλεις να διαγράφει την λέξη "Αγάπη" θα πρέπει να γράψεις αυτό ακριβώς.
Αλλά δεν φτάνει μόνο αυτό για να είμαστε 100% σωστοί...
Πες μας τι θέλεις να πετύχεις (αποτέλεσμα) για να δώσουμε τον σωστό κώδικα
ΣΗΜΕΙΩΣΗ:
Την λέξη Αγαπήνωνρ ή Αγαπήνωρ δεν την πειράζει ο κώδικας
Αν όμως υπάρξει λέξη "Αγαπητός" Ναι θα την πειράξει
Τελευταία επεξεργασία από το χρήστη Spirosgr : 14-05-14 στις 22:54.
|