Yazıyı Renklendir,

[Utekiner]

Merhaba;

Sheet1 ve Sheet2 de tüm sütun ve satırlarda yer alan HAM MADDE yazısını kırmızıya veya yeşil olarak renklendirmesini nasıl yapabilirim. (küçük veya büyük harflerle yazılı.)

 

[muygun]

Merhaba;
sayfanın kod bölümüne;

Sub kelimeyi_renklendir()
kelime = UCase("HAM MADDE")
Cells.Font.ColorIndex = xlAutomatic
With Range("a1:ıv65536")
Set c = .Find(UCase(kelime), Lookat:=xlPart)
If Not c Is Nothing Then
bul = c.Address
Do
c.Characters(Start:=InStr(UCase(c.Value), UCase(kelime)), Length:=Len(kelime)).Font.ColorIndex = 3 '10=yeşil ,3=kırmızı
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While Not c Is Nothing And c.Address <> bul
End If
End With
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[Tevfik_Kursun]

Merhaba,
Renklendirme işleminin yazarken, ya da değişiklik yaparken olmasını istiyorsanız;

Sub kelimeyi_renklendir()

satırını

Private Sub Worksheet_Change(ByVal Target As Range)

ile değiştiriniz.
İyi çalışmalar