Excel Só permitir uma data, nada mais que isso na célula, Excel 2007

[Bikke]

Boa tarde

 

Venho solicitar ajuda para uma situação, sff.

 

Pretendo que, na célula J8, só seja permitido colocar uma data, exemplo: 10-02-2024, não quero que coloquem texto ou mesmo fórmulas, como por exemplo: =HOJE().

 

Eu sei que =HOJE() pertence ao Excel, mas não quero que isso seja permitido.

 

Já fui em Dados/Validação de Dados/Definições/etc/etc, conforme está na imagem abaixo

 

 

 

Mas deixa colocar fórmulas na célula J8, e eu não quero que isso seja possível.

 

É possível fazer isso em VBA e que só seja permitido colocar uma data e nada mais??

 

Se for possível fazer isto em VBA, pretendia também que, se não colocarem uma data, que apareça uma mensagem a dizer: "Dados inseridos não permitidos, favor de colocar uma data válida. Obrigado."

 

E após isso que limpe os dados inseridos na célula J8.

 

Obrigado desde já.

 

Bom fim de semana

 

Cumps

Lançamento.de.Horas.xls

[Patropi]

Boas Bikke

 

Eu fiz um teste aqui com validação de dados com fórmula e com macro, mas se digitar a função hoje() ele aceita.

Vamos ver se algum colega sabe algo que contorne essa situação.

 

Bom fim de semana

[Bikke]

Boa noite

 

Consegui resolver

 

E como tal, coloco aqui a solução.

 

 

Em Q1 e Q2, coloquei as fórmulas a não serem permitdas. ( podem ser colocadas mais fórmulas a não serem permitas, e alarga-se nas células Q )

E na Validação de dados, coloquei a seguinte fórmula: =SE(SE.ERRO(PROCV(J8;$Q$1:$Q3;1;0);"")="";VERDADEIRO;FALSO)

 

Se o mesmo for possível fazer em VBA, agradecia.

 

Obrigado

 

P.S. - Segue em anexo a planilha

 

Lançamento.de.Horas.xls

[OreiaG]

Veja se este código no módulo da planilha atende.

A célula J8 não deve estar mesclada.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$J$8" Then Exit Sub
 If Target.Value = "" Then Exit Sub
 If IsDate(Target.Value) = False Or Target.HasFormula Then Target.Value = "": MsgBox "COLOQUE UMA DATA VÁLIDA"
End Sub

 

[DJunqueira]

A fórmula na validação tb poderia ser:

 

=SE((J8=HOJE())+(J8=AGORA());0;1)

 

[Bikke]

14 horas atrás, DJunqueira disse:

A fórmula na validação tb poderia ser:

 

=SE((J8=HOJE())+(J8=AGORA());0;1)

 

Boa noite DJunqueira

 

Sim, fui testar e funciona sim.

 

Obrigado

 

Cumps

 

..............................................................................................................xxx..........................................................................................

 

Boa noite OreiaG

 

É exactamente isso que pretendia.

 

Obrigado

 

Cumps