Arama ve sadece kelime renklendirme

[bolubeyi_07]

Merhaba Arkadaşlar,

Aşağıdaki kod ile arama yapıp, aradığım kelimenin olduğu sayfaya gidebiliyor ve bulduğunda otomatik olarak hücreyi renklendirebiliyorum.Ancak bana sadece hücre içerisinde aradığım kelimenin renklendirme işlemi gerekiyor.Acil yardımlarınız bekliyorum.Teşekkür ederim.

sat = 13: Range("P" & sat, "P" & Rows.Count).ClearContents
For i = 1 To Worksheets.Count
If Not Sheets(i).Name = "GİRİŞ" Then
With Sheets(i).Cells
Set c = .Find(Range("P10"), LookAt:=xlPart)
If Not c Is Nothing Then
Adr = c.Address
Do
c.Interior.ColorIndex = 4
adres = "'" & Sheets(i).Name & "'!" & c.Address
ActiveSheet.Hyperlinks.Add Cells(sat, "P"), "", adres, adres
'sat = sat
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
sat = sat + 1
End If

End With
End If

Next i

Set c = Nothing

End Sub

 

[PLİNT]

Merhaba
Kodlarınızın içindeki

c.Interior.ColorIndex = 4

bölümünün yerine şöyle deneyelim;

c.Characters(Start:=InStr(UCase(c.Value), UCase(Range("P10").Value)), Length:=Len(Range("P10").Value)).Font.ColorIndex = 4

 

[bolubeyi_07]

Çok çok teşekkür ederim.Çok işime yaradı.Allah sizden razı olsun.