Hücredeki değere göre hücreyi renklendirmek

[yenilik025]

Yukarıda vermiş olduğum koddaki rank fonksiyonu hatalı çalışyordu bu sebeple Sn Ali beyin uyarısı ve önerisi doğrultusunda kodu aşağıdaki gibi revize ettim, bu şekilde gayet güzel çalışıyor, Ali beyede önerisi için teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:e]) Is Nothing Then Exit Sub
satir = Target.Row
For a = 1 To 5
adr = Cells(satir, a).Address
deg = Evaluate("=SUMPRODUCT((" & adr & "<A" & satir & ":E" & satir & ")/COUNTIF(A" & satir & ":E" & satir & ",A" & satir & ":E" & satir & "&""""))+1")
Cells(satir, a).Interior.ColorIndex = Cells(deg, "h").Interior.ColorIndex
If Cells(satir, a) = "" Then Cells(satir, a).Interior.ColorIndex = xlNone
Next
End Sub
 
[B][COLOR=green]1-Hata durumunda kodun &#231;al&#305;&#351;maya devam etmesini sa&#287;lar.[/COLOR][/B]
[B][COLOR=#008000]2-kodun A:E aral&#305;&#287;&#305;nda &#231;al&#305;&#351;mas&#305; sa&#287;lan&#305;r.[/COLOR][/B]
[B][COLOR=#008000]3-satir de&#287;i&#351;kenine veri girilen h&#252;crenin sat&#305;r nosu atan&#305;r.[/COLOR][/B]
[B][COLOR=#008000]4-A-E aral&#305;&#287;&#305;ndaki sadece say&#305;sal h&#252;creler i&#231;in d&#246;ng&#252; olu&#351;turur.[/COLOR][/B]
[B][COLOR=#008000]5-deg de&#287;i&#351;kenine h&#252;credeki say&#305;n&#305;n A:E aral&#305;&#287;&#305;ndaki s&#305;ra de&#287;erini hesaplar ve atar.[/COLOR][/B]
[B][COLOR=#008000]6-T&#252;m h&#252;creleri s&#305;ras&#305;na g&#246;re renklendirir.[/COLOR][/B]
[B][COLOR=#008000]7-E&#287;er h&#252;cre silinirse renklendirme kald&#305;r&#305;l&#305;r.[/COLOR][/B]
[B][COLOR=#008000]8-d&#246;ng&#252; bitimi[/COLOR][/B]

İNCELEDİM ELLERİNİZE SAĞLIKİ BENİM KULLANDIĞIM PUANTAJDA DA BUNA BENZER BİR UYGULAMA VAR.
BENİM İSTEĞİM HÜCRE RENKLE DOLMASI DEĞİL
ÖRNEK X YAZMIŞSAM SİYAH , H YAZMIŞSAM KIRMIZI GİBİ YAZMASI. ŞİMDİDEN TEŞEKKÜR EDERİM.

Edit : Lütfen kelimelerinizi yazarken tamamını BÜYÜK HARF kullanarak yazmayın. Başlığınız tarafımdan bu bölüme taşınmıştır. (COST_CONTROL)

 

[Korhan Ayhan]

Selamlar,

Eğer renklendirme şartınız 3 adet ile sınırlı ise KOŞULLU BİÇİMLENDİRME kullanılabilir. Eğer şartınız 3 adetten fazla ise bu durumda kod ile çözüm uygun olacaktır. Örnek bir dosya eklerseniz çözüm almanız kolaylaşacaktır.