
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range([A1], [A10]), Target) Is Nothing Then Exit Sub
'If Intersect(Range("A1, C5, D8, F7"), Target) Is Nothing Then Exit Sub ' con questa istruzione definisci le singole celle
' dove vuoi che compaia il colore rosso.
If Target.Value <= 0 Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub |
