Hücre içindeki belirli bir kelimeyi renklendirme

[feti_]

Merhaba, hücre içerisinde yalnızca belirli bir kelimenin (hücre rengi değişmeyecek şekilde) renklendirilmesi mümkün müdür?

 

[Murat OSMA]

Merhaba,

A1 hücresinde aranacak olan veriyi arar, eğer varsa; aranacak veriyi, o hücre içerisinde fontunu kırmızı yapar.

[SIZE="2"]Sub Emre()
    Dim [COLOR="Blue"]aranacak[/COLOR]$, [COLOR="DarkOrange"]baslangic[/COLOR]%

    [COLOR="Blue"]aranacak[/COLOR] = "[COLOR="Red"]aranacak veriyi buraya yazın[/COLOR]"
    [COLOR="DarkOrange"]baslangic [/COLOR]= InStr(1, Range("A1").Value, [COLOR="blue"]aranacak[/COLOR], 1)
    Range("A1").Characters([COLOR="darkorange"]baslangic[/COLOR], Len([COLOR="blue"]aranacak[/COLOR])).Font.ColorIndex = 3

    [COLOR="Blue"]aranacak [/COLOR]= vbNullString: [COLOR="DarkOrange"]baslangic [/COLOR]= Empty
End Sub[/SIZE]

 

[feti_]

Murat bey cevabınız için teşekkür ederim, A sütununun tümünde aynı şeyi yapmak mümkün mü? Örneğin A sütununda yer alan bütün "Feti" kelimelerinin kırmızı olarak değişmesi

 

[Murat OSMA]

Daha sonra isteğiniz değişmeyecekse yanıt vereyim.​

 

[feti_]

Kusura bakmayın ilk mesajımda ne istediğimi tam olarak anlatamadım sanırım.

 

[Haluk]

Daha sonra isteğiniz değişmeyecekse yanıt vereyim.​

:biggrin: :mrgreen: :biggrin:


.

 

[Murat OSMA]

Kodları bu şekilde değiştirebilirsiniz..

[SIZE="2"]Sub Emre()
    Dim [COLOR="Red"]aranacak[/COLOR]$, [COLOR="Blue"]baslangic[/COLOR]%, [COLOR="DarkOrange"]i[/COLOR]&

    [COLOR="red"]aranacak [/COLOR]= "[COLOR="SeaGreen"]aranacak veriyi buraya yazın[/COLOR]"
    For [COLOR="darkorange"]i [/COLOR]= 1 To Cells(Rows.Count, "[COLOR="Magenta"][B]A[/B][/COLOR]").End(3).Row
        [COLOR="blue"]baslangic [/COLOR]= InStr(1, Range("[COLOR="Magenta"][B]A[/B][/COLOR]" & [COLOR="darkorange"]i[/COLOR]).Value, [COLOR="red"]aranacak[/COLOR], 1)
        If [COLOR="Blue"]baslangic[/COLOR] > 0 Then Range("[B][COLOR="magenta"]A[/COLOR][/B]" & [COLOR="darkorange"]i[/COLOR]).Characters([COLOR="blue"]baslangic[/COLOR], Len([COLOR="red"]aranacak[/COLOR])).Font.ColorIndex = 3
    Next [COLOR="darkorange"]i[/COLOR]
    
    [COLOR="red"]aranacak [/COLOR]= vbNullString: [COLOR="blue"]baslangic[/COLOR] = Empty: [COLOR="darkorange"]i [/COLOR]= Empty
End Sub[/SIZE]

 

[feti_]

Teşekkür ederim.

 

[tipitipim]

Merhaba,

Sub Emre()
Dim aranacak$, baslangic%, i&

aranacak = "PgM"
For i = 1 To Cells(Rows.Count, "D").End(3).Row
baslangic = InStr(1, Range("D" & i).Value, aranacak, 1)
If baslangic > 0 Then Range("D" & i).Characters(baslangic, Len(aranacak)).Font.ColorIndex = 5
If baslangic > 0 Then Range("D" & i).Characters(baslangic, Len(aranacak)).Font.Bold = True

Next i
aranacak1 = vbNullString: baslangic1 = Empty: ii = Empty

End Sub

Hücre içerisinde Alt+Enter ile alt alta birden fazla Pgm yazıyor ama bunları renklendiremedim sadece 1 tanesini renklendiriyor. Hücre içeriside aranacak kelime kaç tane olursa olsun hepsini nasıl renklendiririm.

Şimdiden teşekkürler.