Cümle içinde geçen bir kelimeyi renklendirme

[tuncismet]

İyi günler,
Bir çok hücrede bulunan ve cümle içinde geçen bir kelimeyi renklendirmek istiyorum.Şimdiden teşekkürler.

 

[janveljan]

Aşağıdaki kodları bir modüle kopyalayıp, çalıştırdığınızda işinizi görecektir sanırım. Çalışma şekli şöyle; önce değişiklik yapmak istediğiniz bölgeyi seçiyorsunuz, daha sonra makroyu çalıştırıyorsunuz, A1 hücresine yazdığınız kelimeyi belirlediniz alanlarda renklendiriyor.
kodlar aşağıda, dosya ekte.

Sub bulrenkle()
a = Cells(1, 1)
For Each k In Selection
s = InStr(1, k, a)
If s > 0 Then
    With k.Characters(Start:=s, Length:=Len(a)).Font
        .ColorIndex = 3
    End With
End If
Next
End Sub

 

[tuncismet]

Sayın janveljan ,
Verdiğiniz kod mükemmel çalıştı.Çok teşekkür ederim.