Tomás Vásquez Fórum

Pessoal,
Na Coluna "O" possuo como resultado diferença entre datas.
Exemplo: 1a4m20d
Gostaria de destacar, em Vermelho, as letras, ficando assim: 1a4m20d

Obs: Conforme planilha anexa, Não está funcionando pois a coluna "O" recebe Fórmula.

Grato,
Pedro

Colega, alterei o valor de 14 para 01 e adicionei uma macro.

Adapte ele para sua necessidade.

Atenciosamente

Tov Shau

Tov,
Grato pela atenção.
A sua função está sobrepondo as fórmulas na coluna.
Ocorre que eu preciso dessas fórmulas pra calcular a diferença de datas.
É possível colorir a fonte e manter as fórmulas?

Funcionou bem assim:

Sub CopiarEcolorirLetras()
Planilha9.Select
Dim Nlin As Double: Nlin = Range("A1012").End(xlUp).Row
Dim j As Long
Dim i As Long

For j = 14 To Nlin
If Cells(j, 1).Value <> Empty Then
Cells(j, 37).Value = Cells(j, 38).Value
Cells(j, 15).Value = Cells(j, 37).Value
End If
Next j
If Nlin < 0 Then Nlin = 14
For i = 14 To Nlin
For j = 1 To Len(Range("O" & i).Value)
If Not IsNumeric(Mid(Range("O" & i).Value, j, 1)) Then
Range("O" & i).Characters(j, 1).Font.Color = -16776961
End If
Next
Next
End Sub

Obrigado Tov Elen Shau

Pedro

Os créditos são todos seus colega, parabéns por conseguir resolver o problema.

Grato

Tov Elen Shau