Ajuda TextBox para introduzir Data

[DjDaga]

Boas,

estou com um problema com uma TextBox onde devo introduzir uma data.

Tenho duas subs para me validarem a data:

Private Sub DataEntradaTxt_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsDate(DataEntradaTxt) And DataEntradaTxt <> "" Then 'valida Data

    MsgBox "Data Inválida"

    DataEntradaTxt = ""

    Cancel = True

End If

End Sub

Private Sub DataEntradaTxt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

DataEntradaTxt.MaxLength = 10 'Permite digitar no máximo 10 caracteres

Select Case KeyAscii

Case 8 'Aceita o BACK SPACE

Case 13: SendKeys "{TAB}" 'Emula o TAB

Case 48 To 57

If DataEntradaTxt.SelStart = 2 Then DataEntradaTxt.SelText = "-" 'insere barra ao digitar dia

If DataEntradaTxt.SelStart = 5 Then DataEntradaTxt.SelText = "-" 'insere barra ao digitar mes

Case Else: KeyAscii = 0 'Ignora os outros caracteres

End Select

End Sub

Mas quando introduzo a data de 06-07-2021 ele retoma-me a data de 07-06-2021 que não quero, já tentei formatar com format e "dd-mm-yyy" quando gravo a data na folha do excel, no entanto o problema continua.

O que posso fazer para resolver o problema?

[Basole]

O excel tem dessas coisas, tente inverter a formatação para o formato americano: 

 

DataEntradaTxt = VBA.Format(DataEntradaTxt, "mm/dd/yyyy")

Ao invés de validar a data, o ideal é um calendario para usuário selecionar a data evitando erros inesperáveis, segue exemplo: 

 https://drive.google.com/file/d/1tYAzuKe3xHVwUntJujHPTcwIeyV4kowU/view?usp=sharing

[Basole]

Em 13/04/2022 em 12:00, DjDaga disse:

Usei uma combinação do calendário com a validação, adaptando-os para o meu caso específico.

Usar o calendário com a validação, é chover no molhado.

Em 13/04/2022 em 12:00, DjDaga disse:

Estou agora à volta de uma rotina para imprimir em que faço o print preview e dá-me a folha toda escura, assim que redimensiono a janela do print preview lá me aparece o que eu quero imprimir 🙂

Não entendi a sua dúvida (?)

[DjDaga]

Obrigado pela resposta, mais logo vou experimentar o calendário uma vez que aqui no serviço não tenho permissões para aceder ao google drive.

[DjDaga]

Mais uma vez obrigado.

Usei uma combinação do calendário com a validação, adaptando-os para o meu caso específico.

É estranho o format(DataEntradaTxt, "dd-mm-yyyy") directamente não dar.

Já me apercebi que o Excel tem assim uns bugs engraçados, acho eu de que...

Estou agora à volta de uma rotina para imprimir em que faço o print preview e dá-me a folha toda escura, assim que redimensiono a janela do print preview lá me aparece o que eu quero imprimir 🙂

Não entendo.

Editado Abril 13, 2022 por DjDaga

[DjDaga]

On 4/16/2022 at 7:56 PM, Basole said:

Usar o calendário com a validação, é chover no molhado.

 

Já me apercebi, obrigado...

On 4/16/2022 at 7:56 PM, Basole said:

 

Não entendi a sua dúvida (?)

Desculpe, já consegui resolver o problema.

 

Obrigado.