kelime bulma ve boyamak hakk

[aaslan]

Merhaba,

Excelin a1 hücresinde ali, a2 hücresinde veli yazıyor olsun. B1 hücresinde "ali ve veli geldi", b2 hücresinde "ahmet gelmedi yazsın". Amacım a kolonunda yer alan kelimeler b kolonda yer alıyorsa sadece geçen kelimleri boyamak istiyorum. Hücre boyamak istemiyorum. Bunu yapan macro varsa da isimi görür.

[Bülent]

Merhaba,

Aşağıdaki kodlar ile dener misiniz?

Kod Seç Expand

Sub ExcelSitesi()
'https://excelsitesi.com/forum/index.php?topic=46.msg64;topicseen#msg64
Dim aranan, bulunan As Range
Dim konum

For Each aranan In Range("A1:A65530")
If aranan.Value = "" Then Exit For
 
    For Each bulunan In Range("B1:B65530")
        If bulunan.Value = "" Then Exit For
       
        konum = InStr(1, bulunan, aranan)
        If konum > 0 Then bulunan.Characters(konum, Len(aranan)).Font.Color = vbRed
       
    Next bulunan
Next aranan

MsgBox "Bitti", vbInformation, "ExcelSitesi.Com"
End Sub