renkli hücreler

Katılım
18 Aralık 2005
Mesajlar
13
=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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Aşağıdaki kodu kendinize uyarlayarak deneyiniz.
Kod:
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

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,513
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ektkeki örnek dosyayı incelermisiniz.
 
Üst