Renkli yazı tipi

[magnesia]

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case " ": Target.Interior.ColorIndex = 15
Case "1": Target.Interior.ColorIndex = 3
Case "2": Target.Interior.ColorIndex = 7
Case "3": Target.Interior.ColorIndex = 36
Case "4": Target.Interior.ColorIndex = 50
Case "5": Target.Interior.ColorIndex = 4
Case Else: Target.Interior.ColorIndex = xlNone
End Select
End Sub


Arkadaşlar selam.
Yukarıdaki kodlarla hücrelere girdiğimiz rakama göre o hücreyi renklendiriyorum.
İsteğim şu :

Case 4'deki yazı tipi renginin beyaz olması için hangi satırı eklemeliyim?
Şimdiden teşekkürler.

 

[Ömer BARAN]

Aşağıdaki ilavelerden birini yapın.

Case "4": Target.Interior.ColorIndex = 50 : Target.Font.Color=vbWhite
Case "4": Target.Interior.ColorIndex = 50 : Target.Font.ColorIndex = 2

 

[Orion1]

Buyurun.

Case "4": Target.Interior.Color = vbWhite

 

[magnesia]

Arkadaşlar.
Öncelikle ilginize ve emeğinize teşekkür ederim..
İkisini de uyguladım ama sonuç alamadım.

 

[Ömer BARAN]

Dosya ekte.
Sayfanın kod bölümüne bakınız.
.Interior.Color => arkaplan rengi
.Font.Color => yazı rengi

 

[magnesia]

Ben yanlış yapmışım..
Önceki satırı silmeden sizin verdiğinizi alta yazmışım..
Sorun halloldu.
İlginize, bilginize,emeğinize teşekkürler.
Sevgiyle kalın...

 

[Ömer BARAN]

.
Kolay gelsin.
.