Ciao Robi ed Anthony,
purtroppo in questo periodo sono impegnato in altri progetti (oltre a lavoro e famiglia) e quindi il mio apporto va a rilento.
La soluzione di Anthony, corretta, non si adatta al progetto di Robi, in quanto nelle medesime celle c'è un'altra condizione che, se vera, non va a verificare se la cella contiene P, M, ecc., per modificarne il colore di Font.
Ho proposto la seguente soluzione (che ho già inviato via mail, solo ora ho visto questa discussione), da inserire nel foglio tramite VBA:
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Cells(Target.Row, Target.Column)
Case "N", "SN"
Cells(Target.Row, Target.Column).Font.ColorIndex = 50 ' blu
Case "P", "PM", "SP"
Cells(Target.Row, Target.Column).Font.ColorIndex = 3 ' rosso
Case "M", "SM", "MM"
Cells(Target.Row, Target.Column).Font.ColorIndex = 5 ' verde
Case Else
Cells(Target.Row, Target.Column).Font.ColorIndex = 0 ' automatico
End Select
End Sub
da adattare e modificare secondo le proprie esigenze.
Ciao
Tribuno