Notifications
Clear all

Formulário VBA Invertendo datas

5 Posts
4 Usuários
0 Reactions
832 Visualizações
(@brunoparis)
Posts: 0
New Member
Topic starter
 

Olá Gente
tenho um formulario para inscrição em provas de atletismo e no campo data, sempre que o mês for igual ou inferior a 12, a data é inserida na planilha invertendo o dia e o mês.
Ex: se eu inserir no formulário 12-01-2000, na planilha fica 01-12-2000

coloquei a planilha para facilitar a compreensão.

Obrigado desde já

https://www.dropbox.com/s/xryfu20n87fvf ... a.rar?dl=0

 
Postado : 07/07/2017 10:00 am
(@basole)
Posts: 487
Reputable Member
 

Experimente formatar a data com o mes invertido, exemplo:

VBA.Format(TextBox_Data, "mm/dd/yyyy")
 
Postado : 07/07/2017 10:52 am
(@osvaldomp)
Posts: 857
Prominent Member
 

E na sua primeira questão:
substitua esta linha

Set c = .Find(TextBox1.Value, LookIn:=xlValues)

por esta

Set c = .Find(TextBox1.Value, Lookat:=xlWhole)
 
Postado : 07/07/2017 10:58 am
(@leandroxtr)
Posts: 0
New Member
 

Boa tarde
Bastava colocar o valor da txt dentro da função Cdate.

Segue anexo a solução.

 
Postado : 07/07/2017 2:25 pm
(@brunoparis)
Posts: 0
New Member
Topic starter
 

Muito Obrigado aos que responderam, resolveram os meus problemas.

 
Postado : 07/07/2017 8:03 pm