hücre renklendirilmesi

[ilkeresen]

Merhaba,

birçok çeşitli soruya birçok olumlu cevap bulunabilen bir site yeni keşfettim ve çok beğendim yapanların ve de çözüm bulanların ellerine sağlık.

ekteki dosyamda yapmak istediğim hücrelere 0-9 arasındaki rakamları ilgili hücreye yazdığımda hücrenin o rakam için atadığım renge dönüşmesini istiyorum.

Yardımcı olursanız sevinirim. şimdiden teşekkürler.

Office 2003 ingilizce kullanıyorum.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Seyit Tiken]

Alternatif :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:J10]) Is Nothing Then Exit Sub
If Target = "" Then Target.Interior.ColorIndex = xlNone
If Target = 1 Then Target.Interior.ColorIndex = 1: Target.Font.ColorIndex = 2
If Target = 2 Then Target.Interior.ColorIndex = 2
If Target = 3 Then Target.Interior.ColorIndex = 3
If Target = 4 Then Target.Interior.ColorIndex = 4
End Sub