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.
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].
Att.
André Arruda
Postado : 14/05/2018 2:47 pm