Por VBA
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Cells.Count = 1 Then
If Target.Offset.Value = "C" Then
Target.Offset(0, -1).Font.ColorIndex = 5
ElseIf Target.Value = "D" Then
Target.Offset(0, -1).Font.ColorIndex = 3
End If
End If
End Sub
Também pode ser feito por formatação condicional.
Postado : 14/05/2018 2:47 pm