S
Shpendi
Hello
I have values from 0 to 100 in Cells ("B20:N20").
e.g.
if the value of B20 is 4 then B21 should turn RED
if the value of C20 is 14 Then C21 sholud turn YELLOW
if the value of D20 is 24 Then D21 sholud turn GREEN
And so on until column N
Any ides
________________________CODE_________________________
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Range("B19:N19")) Is Nothing
Then
With Target
Select Case .Value
Case 0 To 5: Range
("B20:N20").Interior.ColorIndex = 3
Case 6 To 20: Range
("B20:N20").Interior.ColorIndex = 46
Case 21 To 30: Range
("B20:N20").Interior.ColorIndex = 6
Case 31 To 40: Range
("B20:N20").Interior.ColorIndex = 4
Case Is > 41: Range
("B620:N20").Interior.ColorIndex = 10
End Select
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
______________________END of CODE________________________
Thanks
Shpendi
I have values from 0 to 100 in Cells ("B20:N20").
e.g.
if the value of B20 is 4 then B21 should turn RED
if the value of C20 is 14 Then C21 sholud turn YELLOW
if the value of D20 is 24 Then D21 sholud turn GREEN
And so on until column N
Any ides
________________________CODE_________________________
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Range("B19:N19")) Is Nothing
Then
With Target
Select Case .Value
Case 0 To 5: Range
("B20:N20").Interior.ColorIndex = 3
Case 6 To 20: Range
("B20:N20").Interior.ColorIndex = 46
Case 21 To 30: Range
("B20:N20").Interior.ColorIndex = 6
Case 31 To 40: Range
("B20:N20").Interior.ColorIndex = 4
Case Is > 41: Range
("B620:N20").Interior.ColorIndex = 10
End Select
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
______________________END of CODE________________________
Thanks
Shpendi