formulario vba invertendo data

[LIKCZ]

Pessoa, boa tarde. Alguém pode me ajudar?

Eu fiz um formulário vba (meu primeiro formulario), mas a data está vindo invertida (americana) "mm/dd/yyyy" e queria que fosse brasileira (dd/mm/yyyy".

Segue abaixo o codigo da macro inserir = salvar

 

Sub Inserir()

bloqueado = True
Dim tabela As ListObject
Dim n As Integer, id As Integer

Set tabela = Planilha1.ListObjects(1)
id = Range("ID").Value

n = tabela.Range.Rows.Count
tabela.Range(n, 1).Value = id
tabela.Range(n, 2).Value = UserForm1.cbbdentista.Value
tabela.Range(n, 3).Value = UserForm1.txtpaciente.Value
tabela.Range(n, 4).Value = UserForm1.txtdata.Value
tabela.Range(n, 5).Value = UserForm1.cbbprocedimento.Value

UserForm1.ListBox1.RowSource = ""
tabela.ListRows.Add
Range("ID").Value = id + 1

Call Atualizar_ListBox
Call LimparCampos
MsgBox "Ocorrência registrada com sucesso!", vbInformation, "Informação"
bloqueado = False

End Sub

[Victor Comparini]

Olá, @LIKCZ.

 

É Difícil dizer exatamente como você vai aplicar, sendo que não vi sua planilha, apenas o código da macro do formulário. Aliás, parabéns pelo primeiro formulário, VBA é uma linguagem muito boa para aprender Lógica de programação e uma ferramenta bem poderosa para automatizar planilhas e tarefas.

 

Quanto a sua dúvida, no lugar que a data deve aparecer formatada em "dd/mm/yyyy", o princípio dessa formatação é:

 

Range("C5").Value = Format(UserForm1.txtdata.Value, "dd/mm/yyyy")

 

Espero que consiga implementar e que eu tenha resolvido sua dúvida!