Alterar cor da fonte conforme valor da célula  [Resolvido]

Formatação condicional

Alterar cor da fonte conforme valor da célula

Mensagempor OLDRIVG » Qua Jul 03, 2019 11:37 am

Prezados do Fórum, bom dia.

Na planilha em anexo, há como inserir uma Formatação Condicional que muda a cor da fonte célula K12 se a data digitada na mesma célula for maior do que a data digitada na célula j12? Tentei fazer com as formatações sugeridas no próprio Excel, mas não funcionou para várias células.
Segue link planilha e nesta uma informação do que preciso, informando que a formatação será utilizada para várias células na mesma planilha.

https://www.sendspace.com/file/g3xah4

Caso alguém tenha alguma sugestão, fico grato.
Att
OLDRIVG
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Jun 28, 2019 11:24 am
Has thanked: 8 times
Have thanks: 0 time

{ SO_SELECT }

Re: Alterar cor da fonte conforme valor da célula

Mensagempor deciog » Qua Jul 03, 2019 1:03 pm

OLDRIVG

Confere se é desta forma que desejas, sobre msg explica melhor e qual msg

Se foi útil, clique na mãozinha é uma forma de agradecimento

Senhores vamos usar este site é free não tem foto porno e outros,

Link http://ge.tt/7HiUBuw2

Decio
Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi

For this post the author deciog thanked:
OLDRIVG (Qua Jul 03, 2019 2:29 pm)
deciog
Membro
Membro
 
Mensagens: 858
Registrado em: Sex Out 02, 2015 2:31 pm
Has thanked: 122 times
Have thanks: 420 times

Re: Alterar cor da fonte conforme valor da célula

Mensagempor OLDRIVG » Qua Jul 03, 2019 2:29 pm

Prezado Deciog, boa tarde!

Agradeço-lhe pela a atenção.

É isto mesmo que estava querendo. Funcionou perfeitamente.

Quanto a msg, seria algo como a mudança de cor. Ou seja, quando fosse inserida uma data na célula k12 não permitida (maior que a data da célula J12), fosse exibida uma frase/msg do tipo "Não Permitido". No Access, seria uma MsgBox, no Excel sou leigo e nem sei se há como fazer.

De todo modo, a sua sugestão fica valendo. A frase/msg seria mais explicativa.
Obrigado
OLDRIVG
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Jun 28, 2019 11:24 am
Has thanked: 8 times
Have thanks: 0 time

Re: Alterar cor da fonte conforme valor da célula

Mensagempor wagner » Qua Jul 03, 2019 3:53 pm

OLLDRIVG,

Boa tarde!

Segue minha sugestão com VBA. Ao inserir uma data na coluna K, a partir da linha 12, maior que a data correspondente da coluna J, autenticamente surgirá a mensagem e a cor da fonte mudará para vermelha.
Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
   
    If Target.Count > 1 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
   
    If Target.Column = 11 And Target.Row >= 12 Then
        Target.Font.ColorIndex = 3
        MsgBox "Data Não Permitida! Insrira uma data menor ou igual a célula J" & Target.Row, vbCritical, "DATA MAIOR"
    End If
   
    Application.ScreenUpdating = True
End Sub
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
OLDRIVG (Qui Jul 04, 2019 7:59 am)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5501
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 100 times
Have thanks: 2331 times

Re: Alterar cor da fonte conforme valor da célula

Mensagempor deciog » Qui Jul 04, 2019 6:42 am

OLDRIVG

Segue alteração quando digitar data maior avisa do erro, esta em validação Personalizada

Se foi útil, clique na mãozinha é uma forma de agradecimento

Senhores vamos usar este site é free não tem foto porno e outros,

Link
http://ge.tt/8p2awuw2

Decio
Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi

For this post the author deciog thanked:
OLDRIVG (Qui Jul 04, 2019 7:59 am)
deciog
Membro
Membro
 
Mensagens: 858
Registrado em: Sex Out 02, 2015 2:31 pm
Has thanked: 122 times
Have thanks: 420 times

Re: Alterar cor da fonte conforme valor da célula

Mensagempor OLDRIVG » Qui Jul 04, 2019 7:57 am

Prezados Wagner e Deciog, bons dia.
Agradeço-lhes a atenção.

Wagner,

Perfeito. Isto mesmo que eu pretendo implementar na planilha.

Aproveitando a sua prestabilidade, para fins de didática, pergunto-lhe:
1 - existe algum código que faça o usuário permanecer na célula até que seja digitada uma data que permitida?
2 - na exibição da MsgBox, é exibida também o número da célula onde está a data não permitida. Eu acrescentei a palavra "LINHA" antes do número que é exibido. Pergunto, há alguma forma de colocar a frase "LINHA X" entre parênteses?

No link abaixo está uma cópia da planilha já com o código implementado. Caso tenha tempo, peço-lhe a gentileza de "provocar um erro" e verificar a msg que é exibida. No final do aviso aparece a palavra LINHA e o numero da célula. Aí que, se for possível, queria colocar os parênteses.

https://www.sendspace.com/file/uc9u2f

Deciog,

Tal qual a sua sugestão do Wagner, também me serve, pois ambas me atendem. Com a sua sugestão, acrescentei mais uma função do Excel ao meu conhecimento, da qual eu não sabia da existência.

Com a aquiescência de ambos os Mestres, vou estar efetuando alguns testes práticos com ambas sugestões.

Agradecido a ambos.
OLDRIVG
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Jun 28, 2019 11:24 am
Has thanked: 8 times
Have thanks: 0 time

Re: Alterar cor da fonte conforme valor da célula

Mensagempor deciog » Qui Jul 04, 2019 9:15 am

OLDRIVG

Eu não sei programas em Macro

Decio
Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi
deciog
Membro
Membro
 
Mensagens: 858
Registrado em: Sex Out 02, 2015 2:31 pm
Has thanked: 122 times
Have thanks: 420 times

Re: Alterar cor da fonte conforme valor da célula

Mensagempor wagner » Qui Jul 04, 2019 1:52 pm

OLDRIVG,

Boa tarde!

Segue código que faz o que você pediu:
Código: Selecionar todos
Option Explicit
Dim CelulaAnterior As String
Dim CelulaAtiva As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
   
    If Target.Count > 1 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
   
   
    If Target.Column = 11 And Target.Row >= 12 Then
        CelulaAtiva = Target.Address(False, False)
        CelulaAnterior = Cells(Target.Row, Target.Column - 1).Address(False, False)
        If Range(CelulaAtiva).Value > Range(CelulaAnterior).Value Then
            Target.Font.ColorIndex = 3
            MsgBox "Data Não Permitida! Insrira uma data menor ou igual a célula J, (LINHA " & Target.Row & ")", vbCritical, "DATA MAIOR"
            Target.Select
        End If
    End If
   
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
   
    If Target.Count > 1 Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
   
    If CelulaAtiva = "" Or CelulaAnterior = "" Then Exit Sub
   
    If Range(CelulaAtiva).Value > Range(CelulaAnterior).Value Then
        Range(CelulaAtiva).Select
    End If
   
    Application.ScreenUpdating = True
End Sub
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5501
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 100 times
Have thanks: 2331 times

Re: Alterar cor da fonte conforme valor da célula

Mensagempor OLDRIVG » Sex Jul 05, 2019 6:59 am

Prezado Wagner, bom dia.

Agradeço-lhe pela atenção.

Entretanto, o código sugerido por você não funcionou. Ou então eu não soube implementá-lo. Qualquer data que se digita (maior, menor ou igual) retorna msg de data inválida.

No link abaixo, está a planilha na qual fiz a implementação. Por gentileza, há como você verificar onde eu errei? Fico-lhe grato.

https://www.sendspace.com/file/rx0tmc

Obrigado
OLDRIVG
Membro
Membro
 
Mensagens: 16
Registrado em: Sex Jun 28, 2019 11:24 am
Has thanked: 8 times
Have thanks: 0 time

Re: Alterar cor da fonte conforme valor da célula

Mensagempor wagner » Dom Jul 07, 2019 4:56 pm

Basta corrigir o ano em F12 que está errado.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5501
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 100 times
Have thanks: 2331 times

Próximo

Voltar para Formatação Condicional

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes