VBA - Fazer pesquisa de Datas !!!

[Dirceu Seregatti Soares]

Olá Pessoal.

Possuo em uma planilha varias informações, a maior parte delas são datas.
Já tentei criar um UserForm de pesquisa para me retornar as datas no formulario.
Cheguei a utilizar algumas rotinas que encontrei na internet, elas funcionam para busca outras informações,
mais para retonar a data no UserForm não.
Toda vez que faço a pesquisa das datas, em vez de aparece no UserForm a data como 11/01/2016 parace como 42380.
O que estou fazendo de errado para as datas não aparecem corretamente no UserForm ?

Desde já agradeço a atenção e ajuda de todos !!!

Obrigado.

Private Sub Txt_Comunicado_AfterUpdate()
Dim intervalo As Range
Dim texto As String

Dim codigo As Double
Dim pesquisa
Dim mensagem

codigo = Txt_Comunicado.Text
Sheets("teste").Select
Set intervalo = Range("A3:N7000")

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
pesq5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False)
pesq6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False)
pesq7 = Application.WorksheetFunction.VLookup(codigo, intervalo, 9, False)
pesq8 = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False)
pesq9 = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False)
pesq10 = Application.WorksheetFunction.VLookup(codigo, intervalo, 12, False)
pesq11 = Application.WorksheetFunction.VLookup(codigo, intervalo, 13, False)


Txt_manut.Text = pesquisa
Txt_nota.Text = pesq1
Txt_dtimtbf.Text = pesq2
Txt_dtfmtbf.Text = pesq3
Txt_dtimttr.Text = pesq4
Txt_dtfmttr.Text = pesq5
Txt_hrimtbf.Text = pesq6
Txt_hrfmtbf.Text = pesq7
Txt_hrimttr.Text = pesq8
Txt_hrfmttr.Text = pesq9
MTTR.Caption = pesq10
MTBF.Caption = pesq11


Txt_hrimtbf = Format(Txt_hrimtbf, "hh:mm")
Txt_hrfmtbf = Format(Txt_hrfmtbf, "hh:mm")
Txt_hrimttr = Format(Txt_hrimttr, "hh:mm")
Txt_hrfmttr = Format(Txt_hrfmttr, "hh:mm")

MTTR.Caption = Format(MTTR.Caption, "###0.00")
MTBF.Caption = Format(MTBF.Caption, "###0.00")



Txt_Comunicado.SetFocus

Exit Sub
trataErro:
   texto = "Comunicado não Localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub

 

[Basole]

Tente inserir o valor nas TextBox com formatacao de data ex.: 

 

Txt_nota.Text = Format(pesq1, "dd/mm/yyyy")

 

[Dirceu Seregatti Soares]

22 minutos atrás, Basole disse:

Tente inserir o valor nas TextBox com formatacao de data ex.: 

 

Txt_nota.Text = Format(pesq1, "dd/mm/yyyy")

 

 

Basole, tentei a sua dica aqui.

 

Ao testar o programa agora ele não retorna nada, o campo fica em branco.

 

Obrigado pela ajuda, e disposição em ajudar.

[Basole]

Pode ser que  a macro nao esteja encontrando o dado. 

Apareceu tb a msg  "Comunicado não Localizado!" ?

Acho que seria bom se compartilhasse seu arquivo ou um exemplo

[Dirceu Seregatti Soares]

Boa Tarde !!!

 

Correto apareceu sim a mensagem.

 

Segue em anexo, o arquivo.

 

Ele vai abrir o Userform para Digitar as informações, para fechar o mesmo e entrar no excel é só usar ALT + F4

 

No VBA o UserForm está com o nome Pesquisa.

 

Mais uma vez agradeço a ajuda !!!

 

Obrigado

Ocorrencias_Dez_15 (Salvo automaticamente).rar

[Basole]

Respondido no seu outro topico: 

 

Verificar dado repetidos ao sair da textbox !!