
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A11:A509")) Is Nothing Then
Select Case Target
Case 1
icolor = 15
Case 2
icolor = 5
Case 3
icolor = 10
Case 4
icolor = 6
Case 5
icolor = 8
Case 6
icolor = 7
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub |
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A11:A509")) Is Nothing Then
Select Case Target
Case "1c" 'scrivi tra virgolette quello che ti serve'
icolor = 15
Case 2
icolor = 5
Case 3
icolor = 10
Case 4
icolor = 6
Case 5
icolor = 8
Case 6
icolor = 7
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub
|
