Haberler:

Excel Sitesi ve Forumu yayında. ;)

Mobil Ana Menü

kelime bulma ve boyamak hakk

Başlatan aaslan, May 08, 2022, 04:04 ÖS

« önceki - sonraki »

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

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?

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