Hücrede değişiklik olduğunda hücre rengi de değişsin

[m.cay]

Merhaba,

Sayfadaki hücre değerlerinde değişiklik yapıldığında değişiklik olan hücre renginin de değişmesini istiyorum. Aşağıdaki kodu kullandım ancak değişiklik yapılan hücre yerine bir altındaki hücre rengi değişiyor. Kodu ne şekilde düzeltmem gerekir?

Private Sub Worksheet_Change(ByVal Target As Range)

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With

With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Böyle birşeymi.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 3
End Sub

 

[m.cay]

Evet, teşekkürler.