Koşullu Biçimlendirme ile yapılabilir mi?

[meleklerim]

Arkadaşlar Merhaba
Elimde (ekteki dosyadan da görüleceği gibi) alt alta sıralanmış isimler bulunan
veri var.
Bu veri içerinden örneğin içeriğinde "met" olan verilerdeki "met" kelimesinin ayrı bir renkle renklenmesini istiyorum.
Bunun için makro, formül ya da koşullu biçimlendirme yoluyla yapılabilir mi?
Örnek
Ahmet
Mehmet
Metin
İnmeter

örnek dosya
http://dosya.co/mbs3h1xj9f0u/koşullubiçimlendirme.xlsx.html

 

[Asri]

Aşağıdaki kodu sayfa1 in kod bölümüne ekleyiniz.
A1 de bir değişim olduğunda kod devreye girecektir.

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10000")) Is Nothing Then Exit Sub
      sonsat = Range("A" & Rows.Count).End(xlUp).Row
      Set Aln = Range("A3:A" & sonsat)
      deg = Cells(1, 1).Value
      For Each hcr In Aln
        renk = InStr(renk + 1, hcr.Text, deg)
        Do
            If renk > 0 Then
                hcr.Characters(Start:=renk, Length:=Len(deg)).Font.ColorIndex = 3
            End If
            renk = InStr(renk + 1, hcr.Text, deg)
        Loop While renk > 0
      Next hcr
    
 End Sub

 

[Merhum İdris SERDAR]

.

Buradaki dosyaları inceleyin.

http://www.excelgurusu.com/google-gibi-arama/


.

 

[meleklerim]

sorunun çözümüne yardım ettiğiniz için teşekkür ederim arkadaşlar,
Her iki çözüm de kullanılabilir