Girilen Değerlere Göre Hücrelerin Renklendirilmesi

[hilmitaranci]

Merhabalar,

İki gündür koşullu biçimlendirme ve bulabildiğim makro kodlarıyla bir puantaj tablosunun renkledirilmesi üzerinde çalışıyorum. Fakat bir türlü istediğimi başaramadım. Ek'te de örneğini koyduğum tabloda hücre içine girilmesi planlamış verilere göre o hücrenin renklenmesi gerekiyor ama dediğim gibi koşullu biçimlendirme 3'den fazla çalışmıyor. Eğer bu konuyla iligili yardımcı olabilirseniz çok sevinirim.
Yardımlarınız için teşekkür ederim...

 

[Necdet]

Merhaba,

Ben biraz birşeyler yapmaya çalıştım, siz doğru değerleri yazarsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [M3:AB42]) Is Nothing Then Exit Sub
If Target.Value = "X" Then
        Target.Interior.ColorIndex = 3
ElseIf Target.Value = "DE" Then
        Target.Interior.ColorIndex = 4
ElseIf Target.Value = "Mİ" Then
        Target.Interior.ColorIndex = 5
ElseIf Target.Value = "DM" Then
        Target.Interior.ColorIndex = 6
ElseIf Target.Value = "X/2" Then
        Target.Interior.ColorIndex = 7
Else
        Target.Interior.ColorIndex = xlNone
End If
Son:
End Sub

 

[hilmitaranci]

Merhaba,

Ben biraz birşeyler yapmaya çalıştım, siz doğru değerleri yazarsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [M3:AB42]) Is Nothing Then Exit Sub
If Target.Value = "X" Then
        Target.Interior.ColorIndex = 3
ElseIf Target.Value = "DE" Then
        Target.Interior.ColorIndex = 4
ElseIf Target.Value = "Mİ" Then
        Target.Interior.ColorIndex = 5
ElseIf Target.Value = "DM" Then
        Target.Interior.ColorIndex = 6
ElseIf Target.Value = "X/2" Then
        Target.Interior.ColorIndex = 7
Else
        Target.Interior.ColorIndex = xlNone
End If
Son:
End Sub

Yardımınız için çok teşekkür ederim, formülleri çoğaltıp renleri tanımladım ve istediğim gibi oldu. Ancak Hücre içindeki veriyi sildiğim zaman hücre rengi orjinal (beyaz) rengine dönmüyor. Bunu nasıl yapabilirim...

 

[Necdet]

Ben denediğimde dönüyor.

 

[hilmitaranci]

Ben denediğimde dönüyor.

Ben biraz eksik anlattım, birden fazla hücre seçip DEL dediğim zaman, o hücreye hangi renk gelmişse kalıyor.

 

[Necdet]

Merhaba,

aşağıdaki kodları da ilgili sayfaya kopyalar mısınız?
Belki başka çözüm öneren arkadaşlarım çıkabilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Selection.Interior.ColorIndex = xlNone
End Sub

 

[hilmitaranci]

Merhaba,

aşağıdaki kodları da ilgili sayfaya kopyalar mısınız?
Belki başka çözüm öneren arkadaşlarım çıkabilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count > 1 Then Selection.Interior.ColorIndex = xlNone
End Sub

Yardımların için çok teşekkür ederim. Sayenizde kaç gündür uğraştığım dosyayı bitirebildim.

 

[Necdet]

Rica ederim. İyi günlerde kullanın.