9 farklı değer için koşullu biçimlendirme

[ahmetozbey]

a1 hücresine 1...9 arası rakam girdiğimde her rakam için dolgu renginin farklı olmasını istiyorum. yani 1 rakamını girdiğimde dolgu rengi siyah, 2 rakamını girdiğimde sarı .......
koşullu biçimlendirmede 3 ten fazla yapamadığım için makrolarla yapmak mümkün mü yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. A1 hücresine yazdığınız sayı renk indexi olarak kabul edilmiştir.

[vb:1:5a7865270b]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or IsNumeric(Target) = False Then Exit Sub
Target.Interior.ColorIndex = Target
End Sub
[/vb:1:5a7865270b]

 

[Merhum İdris SERDAR]

Ekteki örneğe bakın.

 

[ahmetozbey]

sağolun arkadaşlar ellerinize sağlık

 

[ahmetozbey]

soruyu rakam yazdığımda karşılığı olan rengi istemiştim. bir problemim daha çıktı şimdide yazı ile örnek olarak "sarı" yazdığımda sarı renk görünebilmesi için ne yapmam gerekir. şimdiden teşekkürler

 

[Ali]

Sn yurttaş bununla ilgili dosya eklemiş

http://www.excel.web.tr/viewtopic.php?t=16401

 

[Merhum İdris SERDAR]

Case Is = "sarı": .Interior.ColorIndex = 6
Case Is = "kırmızı": .Interior.ColorIndex = 3
Case Is = "mavi": .Interior.ColorIndex = 5

Kodları bu şekilde yapmanız gerekir.

Aşağıdaki linke bakın.
http://www.excel.web.tr/download.php?id=14026

 

[ahmetozbey]

yukarıdaki örneğe göre rakamlar yerine harflerle yazdım ama olmadı

 

[Merhum İdris SERDAR]

Örnek dosya ekleyin. Bir bakalım.

 

[ahmetozbey]

örnek ekdedir

 

[Merhum İdris SERDAR]

Dosyanız ekte. Kodların içine yazılacak sözcükleri küçük harfle yazın.

 

[ahmetozbey]

sağolasın yurttaş