Rakamları değerlerine göre renklendirme

[kadird]

Merhaba

Rakamları değerlerine göre renklendiren bir çalışma yapmak istiyorum. Koşullu biçimlendirme ile en fazla 3 farklı seçenek yapılabiliyor.

Örn. 0 = renksiz
0,01 ile 5 arası = Açıkyeşil
5,1 ile 10 arası = Biraz daha yeşil
10 dan büyük ise = En Yeşil

-0,01 ile -5 arası = uçuk kırmızı
-5,1 ile -10 arası = biraz daha kırmızı
- 10 dan küçük ise = En Kırmızı gibi

Şimdiden teşekkür ederim.

Saygılar.

 

[Orion1]

Dosyanız ekte.
Kodlar çalışma sayfasının kod bölümünde.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = xlNone
If IsNumeric(Target.Value) Then
    If Target.Value < -10 Then Target.Interior.ColorIndex = 3
    If Target.Value >= -10 And Target.Value <= -5 Then Target.Interior.ColorIndex = 44
    If Target.Value >= -5 And Target.Value <= -1 Then Target.Interior.ColorIndex = 40
    If Target.Value = 0 Then Target.Interior.ColorIndex = xlNone
    If Target.Value >= 1 And Target.Value <= 5 Then Target.Interior.ColorIndex = 35
    If Target.Value >= 6 And Target.Value <= 10 Then Target.Interior.ColorIndex = 43
    If Target.Value > 10 Then Target.Interior.ColorIndex = 4
End If
End Sub

 

[uzmanamele]

merhaba

bende bişeyler yapmıştım, boşa gitmesin.

12. satıra değer girerek deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Rows("12")) Is Nothing Then Exit Sub
    If Target.Value >= -20 And Target.Value < -10 Then
Target.Cells.Interior.ColorIndex = 3
Else
    If Target.Value >= -10 And Target.Value < -5 Then
Target.Cells.Interior.ColorIndex = 44
Else
    If Target.Value >= -5 And Target.Value < 0 Then
Target.Cells.Interior.ColorIndex = 40
Else
    If Target = 0 Then
Target.Cells.Interior.ColorIndex = xlNone
Else
    If Target >= 1 And Target.Value < 6 Then
Target.Cells.Interior.ColorIndex = 35
Else
    If Target.Value >= 6 And Target.Value < 11 Then
Target.Cells.Interior.ColorIndex = 12
Else
    If Target.Value >= 11 And Target.Value <= 20 Then
Target.Cells.Interior.ColorIndex = 4
Else
    If Target.Value > 21 Or Target.Value < -21 Then
Target.Cells.Interior.ColorIndex = 0
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

 

[kadird]

Sn.Evren Gizlen Sn.Uzmanamele teşekkür ederim. Sağolun varolun..

 

[Orion1]

Sn.Evren Gizlen Sn.Uzmanamele teşekkür ederim. Sağolun varolun..

Rica ederim.
İyi çalışmalar.