[Spirosgr]

Έχεις κάποιες παρατηρήσεις μέσα στο βιβλίο σου.
Θα σου πω για την πρώτη, γιατί στις υπόλοιπες συμφωνούμε...

1.
«Αν με το εύρεση αντικατάσταση απαλείψω το , και τα κενά που είναι ανάμεσα στίς καταχωρίσεις και αναζητήσω το LHO από το κελί D1
τότε ο κώδικας δεν λειτουργεί.»

Απάντηση:
Λάθος, ο κώδικας λειτουργεί, και θα μαρκάρει όλα τα κελιά που περιέχουν LHO

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

Εικόνες 1-3 λειτουργεί
Εικόνα 2, φυσικά και λειτουργεί, αλλά δεν βρίσκει «επαφή»

Μπορούμε να έχουμε και πληροφορία (msgbox) στον κώδικα για το τι βρήκε, αν βρήκε:

1
Βάζουμε μια μεταβλητή

Dim k           As Long

2
Ορίζουμε τη μεταβλητή ως μηδέν

k = 0

μετά το

rng.Interior.Color = xlNone

3
Μέσα στο loop και μέσα στο If, βάζουμε

k = k + 1

μετά το

c.Interior.Color = vbYellow

4
Τέλος μετά το

Next c

προσθέτουμε τις γραμμές

    If k = 0 Then
        MsgBox "Δεν βρέθηκαν τιμές"
     Else
        MsgBox "Βρέθηκαν " & k & " τιμές"
    End If