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.
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
-
- Colaborador
- Mensagens: 61
- 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 89 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 92 vezes
-
- Colaborador
- Mensagens: 61
- 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: 61
- 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