formatação condicional por VBA

Quero que a cor da fonte seja vermelha ou preta dependendo do conteúdo da célula, que contem uma fórmula.

Se a primeira letra do código for Z a letra deve ser vermelha, caso contrário preta.

Tentei fazer por formatação condicional mas não consegui.

Exemplo:

1. fórmula da célula: SE('M9'!D191="";"";'M9'!D191)
2 Valor exibido na célula: ZABC ou 867 (dados de exemplo)
2. Se for Z letra na cor vermelha

Se for possível por formatação condicional também me resolve

Bom dia!!

Considerando que o código vai ficar na coluna A.

Código:

=SE(ESQUERDA($A2;1)="Z";1;0)

Att

Obrigado pela atenção.

Preciso usar VBA pois vou fazer um loop.

Preciso checar o conteúdo da célula para saber se a 1ª posição tem a letra Z mas não estou conseguindo fazer isso.

na instrução If Left(rangeplanilha.Value, 1) = "Z" Then na verdade estou checando o valor do conteúdo da variável rangeplanilha.

O que preciso é saber se o conteúdo da célula , cujo endereço está em rangeplanilha, contem Z na 1ª posição

Pode me ajudar ?

Código :

For intervalo = 229 To 1290


rangeplanilha = "B" & intervalo


Range(rangeplanilha).Select

' BRT


If Left(rangeplanilha.Value, 1) = "Z" Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = RGB(255, 0, 0)
.Size = 16
.Bold = True
End With

Else

' Não BRT

Range(rangeplanilha).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = RGB(0, 0, 0)
.Size = 14
.Bold = False
End With
End If
Next

Boa tarde!!

Seria tipo isso?

Código:

Option Explicit
Sub AleVBA_926()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
  If Left(c, 1) = "z" Or Left(c, 1) = "Z" Then c.Font.Color = vbRed
Next c
Application.ScreenUpdating = True
End Sub

O exemplo é se baseado na coluna A.

Att

Obrigado, meu amigo

Funcionou perfeitamente

Boa tarde!!

Eu fico feliz em ajuda.

Att