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

Katılım
11 Ekim 2006
Mesajlar
56
Excel Vers. ve Dili
Excel 2010
Altın Üyelik Bitiş Tarihi
23/02/2022
İyi günler,
Bir çok hücrede bulunan ve cümle içinde geçen bir kelimeyi renklendirmek istiyorum.Şimdiden teşekkürler.
 

Ekli dosyalar

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
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.
Kod:
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
 

Ekli dosyalar

Katılım
11 Ekim 2006
Mesajlar
56
Excel Vers. ve Dili
Excel 2010
Altın Üyelik Bitiş Tarihi
23/02/2022
Sayın janveljan ,
Verdiğiniz kod mükemmel çalıştı.Çok teşekkür ederim.
 
Üst