mi è capitata questa macro
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CL As Object
For Each CL In Range("A1:F100") 'per ogni cella in A1:F100
If CL.Value = "A" Then 'se il valore della cella è uguale ad A
CL.Font.ColorIndex = 3 'mi metti il colore del carattere uguale a rosso
ElseIf CL.Value = "B" Then 'se invece il valore è uguale a B ecc.ecc
CL.Font.ColorIndex = 4
ElseIf CL.Value = "C" Then
CL.Font.ColorIndex = 8
ElseIf CL.Value = "D" Then
CL.Font.ColorIndex = 9
ElseIf CL.Value = "E" Then
CL.Font.ColorIndex = 5
ElseIf CL.Value = "F" Then
CL.Font.ColorIndex = 7
End If
Next
End Sub
"super pippo"
come sempre ringrazio per l'aiuto.
ciao
bianco