şartlı rakam renklendirmesi

[zero_cool]

mrb..çok baktım ama bulamadım..ben girdiğim rakamların belirli şartlara göre renkli olmasını istiyorum..örneğin 25 - 49 arasındaysa mavi,50 ve daha büyükse yeşil,0 -24 arasındaysa kırmızı olsun....ama renk bütün hücreye yayılmasın sadece rakam o renge sahip olsun ve ben bu durumu istediğim hücrelerde kullanabileyim..yardımcı olabilecek arkadaşa şimdiden teşekkür ederim.

 

[Merhum İdris SERDAR]

Ekteki dosyayı inceleyin.

 

[ileriexcel]

Sub test()
For Each renk In Range("a1:d20")
If renk.Value >= 25 And renk.Value <= 49 Then
renk.Font.ColorIndex = 5
Else
If renk.Value >= 0 And renk.Value <= 24 Then
renk.Font.ColorIndex = 3
Else
If renk.Value >= 50 Then
renk.Font.ColorIndex = 10
End If
End If
End If
Next
End Sub

 

[zero_cool]

teşekkür ederim arakdaşlar çok saolun..bazen bakmak yetmio görmek gerekio

 

[korkut31]

Sub test()
For Each renk In Range("a1:d20")
If renk.Value >= 25 And renk.Value <= 49 Then
renk.Font.ColorIndex = 5
Else
If renk.Value >= 0 And renk.Value <= 24 Then
renk.Font.ColorIndex = 3
Else
If renk.Value >= 50 Then
renk.Font.ColorIndex = 10
End If
End If
End If
Next
End Sub

sn. ileri excelin kodlarındaki Range("a1:d20") yi selection oalrak dğiştiriseniz tam olarak istediğinizi elde etmiş olucaksınız.
iyi çalışmalar