Koşula göre yazı rengini otomatik atma

[omalkoc]

Günaydın
ek tabloda isteğimi açıklamaya çalıştım.
Kısaca isteğim şu : Bir satırda birden fazla rakam var.Bu rakamları küçükten büyüğe göre her biri için ayrı ayrı renklendirmesi.
Yardımlarınızı bekliyorum.

 

[mehmett]

Siz altı koşula göre renklendirme yapılmasını istemişsiniz. Ama yerleşik fonksiyonlarla en fazla üç koşula göre Koşullu Biçimlendirme yapılabilir.

 

[hamitcan]

Aşağıdaki kodu sayfanın kod kısmına ekleyin. Kod ilgili aralıklarda küçükten büyüğe göre renklendirme yapıyor. Renge göre toplama işlemini ise sitede arama yaparak bulabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For t = 4 To 14
aralik = "b" & t & ":g" & t
For Each hucre In Range(aralik)
Select Case hucre
Case WorksheetFunction.Small(Range(aralik), 1): hucre.Font.ColorIndex = 5
Case WorksheetFunction.Small(Range(aralik), 2): hucre.Font.ColorIndex = 4
Case WorksheetFunction.Small(Range(aralik), 3): hucre.Font.ColorIndex = 15
Case WorksheetFunction.Small(Range(aralik), 4): hucre.Font.ColorIndex = 7
Case WorksheetFunction.Small(Range(aralik), 5): hucre.Font.ColorIndex = 1
Case WorksheetFunction.Small(Range(aralik), 6): hucre.Font.ColorIndex = 3
End Select
Next
Next
End Sub

 

[Necdet]

Sayın hamitcan'ın kodları ve renktoplayan fonksiyon ile birlikte dosyanız ekte

 

[Merhum İdris SERDAR]

Günaydın
ek tabloda isteğimi açıklamaya çalıştım.
Kısaca isteğim şu : Bir satırda birden fazla rakam var.Bu rakamları küçükten büyüğe göre her biri için ayrı ayrı renklendirmesi.
Yardımlarınızı bekliyorum.

Dosyanız ekte.