Macro para efetuar a Validação de data

[jorge rafael_758594]

Boa tarde!

 

Estou montando uma planilha para utilizar na  retenção de impostos e estou enfrentando um certa dificuldade, Uma das funções da planilha funciona da seguinte forma ao digitar o CNPJ da empresa o Procv busca os dados da mesma em um tabela e auto preenche as informações; tenho um campo com data que é alimentado utilizando o Procv.

 

O que desejo é que o macro visualize a data que foi preenchida na planilha e caso tenha se passado + 30 dias em relação data atual exiba uma Msgbox informando que a data expirou.

 

È possível fazer isto? alguém pode me dar uma dica de por onde começar? 

 

 

 

 

[David.sps]

Boa tarde Jorge!

Não poderia ser algo mais simples, do tipo: =se(CélulaComAData>HOJE()+30;"EXPIRADO";"") ?

[diego_janjao]

Boa tarde Jorge!

Não poderia ser algo mais simples, do tipo: =se(CélulaComAData>HOJE()+30;"EXPIRADO";"") ?

Mas neste caso o Hoje iria sempre alterar, certo? e isso faria com que nunca expirassem

[David.sps]

Diego é verdade!

Me equivoquei!

penso que essa fórmula o ajude: =Se(CélulaComAData>hoje()-30;"";"expirado") certo?

[Wendell Menezes]

Jorge,

 

Supondo que a data que você queira checar esteja na célula A1, clique com o botão direito sobre a aba que deseja inserir a macro (como se fosse renomeá-la) e clique em Exibir Código.

 

Em seguida cole o código abaixo:

Private Sub Worksheet_Calculate()    If Range("A1") > Date - 30 Then MsgBox "A data expirou", vbExclamation, "#Atenção"End Sub

Abraço

[jorge rafael_758594]

Diego é verdade!

Me equivoquei!

penso que essa fórmula o ajude: =Se(CélulaComAData>hoje()-30;"";"expirado") certo?

Eu estava fazendo uso da função SE  no entanto estava "poluindo" muito a planilha por isto optei por tentar utilizar o vba e msg box.

 

Obrigado pela ajuda.

Jorge,

 

Supondo que a data que você queira checar esteja na célula A1, clique com o botão direito sobre a aba que deseja inserir a macro (como se fosse renomeá-la) e clique em Exibir Código.

 

Em seguida cole o código abaixo:

Private Sub Worksheet_Calculate()    If Range("A1") > Date - 30 Then MsgBox "A data expirou", vbExclamation, "#Atenção"End Sub

Abraço

Obrigado Wendell