renkli hücreler

[dide]

=EĞER(A1<=24;"ETKİSİZ";EĞER(A1<=44;"GEÇMEZ";EĞER(A1<=54;"GEÇER";EĞER(A1<=69;"ORTA";EĞER(A1<=84;"İYİ";EĞER(A1<=100;"PEKİYİ"))))))

Hücreye bu formülü yazıp değer değiştikçe farklı renkler almasını istiyorum.
ektisiz olunca mor ,geçmez olunca kırmızı, geçer olunca yeşil, orta olunca mavi iyi olunca pembe, pekiyi olunca eflatun olsun istiyorum. vb kodunu yazabilirseniz sevinirim. teşekkürler..

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "ETKİSİZ" Then [A1].Interior.ColorIndex = 20
If [A1] = "GEÇMEZ" Then [A1].Interior.ColorIndex = 10
End Sub

 

[kulomer46]

aşağıdaki kodları bir modüle eklerseniz hazır fonksiyon olarak kullanabilirsiniz..
Function renk(sayi)
If sayi < 0 Then
renk = "YANLIŞ"
ElseIf sayi <= 24 Then
renk = "ETKİSİZ"
ElseIf sayi <= 44 Then
renk = "GEÇMEZ"
ElseIf sayi <= 54 Then
renk = "GEÇER"
ElseIf sayi <= 69 Then
renk = "ORTA"
ElseIf sayi <= 84 Then
renk = "İYİ"
ElseIf sayi <= 100 Then
renk = "PEKİYİ"
Else
renk = "YANLIŞ"
End If
End Function

 

[dide]

Cevaplar İÇİn TeŞekkÜrler Ama Uygulayamadim Nasil Yapacam?

 

[Korhan Ayhan]

Selamlar,

Ektkeki örnek dosyayı incelermisiniz.