Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Alterar Cor Fonte Se For Letra
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Alterar Cor Fonte Se For Letra
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
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 205 vezes
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Alterar Cor Fonte Se For Letra
Colega, alterei o valor de 14 para 01 e adicionei uma macro.
Adapte ele para sua necessidade.
Atenciosamente
Tov Shau
Adapte ele para sua necessidade.
Atenciosamente
Tov Shau
- Anexos
-
- Alterar cor da letra - wagner.rar
- (21.33 KiB) Baixado 204 vezes
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Re: Alterar Cor Fonte Se For Letra
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?
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?
-
- 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]
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
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
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: Alterar Cor Fonte Se For Letra
Pedro
Os créditos são todos seus colega, parabéns por conseguir resolver o problema.
Grato
Tov Elen Shau
Os créditos são todos seus colega, parabéns por conseguir resolver o problema.
Grato
Tov Elen Shau