ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 61
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Alterar Cor Fonte Se For Letra

Mensagem por pedrobb » Ter Ago 22, 2017 11:17 am

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 49 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: 156
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Alterar Cor Fonte Se For Letra

Mensagem por Tov Elen Shau » Ter Ago 22, 2017 2:36 pm

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 57 vezes



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

Re: Alterar Cor Fonte Se For Letra

Mensagem por pedrobb » Qua Ago 23, 2017 11:19 am

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: 61
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 » Sáb Set 02, 2017 2:28 pm

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: 156
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: Alterar Cor Fonte Se For Letra

Mensagem por Tov Elen Shau » Seg Set 04, 2017 7:39 am

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