Koşullu Renklendirme Problemi

[ozanolgac]

Merhabalar,

Aşağıda ne yanlış yaptığımı söyleyebilir misiniz...

Renklendirmedeki sorun; Rakamı yazdıktan sonra seçtiğim renge dönüştürmüyor, ancak ilgili hücreye ikinci kez tıkladığımda formül aktive oluyor?

şimdiden teşekkürler...



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M:N]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Satır = "A" & Target.Row & ":n" & Target.Row
Select Case Target
Case "1": Range(Satır).Interior.ColorIndex = 1
Case "2": Range(Satır).Interior.ColorIndex = 2
Case "3": Range(Satır).Interior.ColorIndex = 3
Case "4": Range(Satır).Interior.ColorIndex = 4
End Select
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Kodu bu prosüdürün içine yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
If Intersect(Target, [C:N]) Is Nothing Then Exit Sub
Satır = "A" & Target.Row & ":n" & Target.Row
Select Case Target
Case "1": Range(Satır).Interior.ColorIndex = 1
Case "2": Range(Satır).Interior.ColorIndex = 2
Case "3": Range(Satır).Interior.ColorIndex = 3
Case "4": Range(Satır).Interior.ColorIndex = 4
End Select
End Sub

 

[ozanolgac]

Özür dilerim, bu konudaki bilgim kısıtlı... Ben aynısını yapmış olduğumu görüyorum...

Tam olarak düzeltilmiş halini yapıştırabilir misiniz benim yaptığımın üzerine?

Teşekkür ederim...

 

[ozanolgac]

renklendirme ortadan kalktı

tek aralığa yazdım prosedürü ama bu sefer renklendirme tamamen ortadan kalktı... Örnek dosya ektedir...

 

[ozanolgac]

tamam sorunu düelttim ilginize teşekkür ederim

 

[ozanolgac]

color index

Bu arada konudan ilerde yardım alabilecek arkadaşlar için mesaja excel color index' i de ekliyorum...