Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alterar Cor Fonte Se For Letra

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Alterar Cor Fonte Se For Letra

Mensagem por pedrobb »

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
Anexos
Alterar cor da letra.zip
(19.69 KiB) Baixado 195 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Alterar Cor Fonte Se For Letra

Mensagem por Tov Elen Shau »

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

Adapte ele para sua necessidade.

Atenciosamente

Tov Shau
Anexos
Alterar cor da letra - wagner.rar
(21.33 KiB) Baixado 194 vezes


pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Re: Alterar Cor Fonte Se For Letra

Mensagem por pedrobb »

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?


pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Re: Alterar Cor Fonte Se For Letra [Resolvido]

Mensagem por pedrobb »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Alterar Cor Fonte Se For Letra

Mensagem por Tov Elen Shau »

Pedro

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

Grato

Tov Elen Shau


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder