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.
Merhaba,
Aşağıdaki kodlar ile dener misiniz?
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