Retorno de dados no formato de Data

Question

Bom dia à todos!

Galera, estou 2 dúvidas são as seguintes: 

Estou desenvolvendo um formulário de uma simples pesquisa, porém ao retornar a data da minha planilha de excel, o formulário não importa a formatação do tipo data.

A outra dúvida é na questão dos valores, gostaria que ele importasse como está na tabela, exemplo: R$ 1.233,23 ao invés de apenas: 1233,23

Desde já, obrigado pela atenção.

Segue o código abaixo:

Private Sub txtProposta_AfterUpdate()

Dim intervalo As Range
Dim texto As String
Dim codigo As String
Dim pequisa
Dim mensagem

codigo = txtProposta.Text
Sheets("Lista").Select
Set intervalo = Range("A:F")

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)

txtCliente.Text = pesquisa
txtServico.Text = pesq1
txtData.Text = pesq2
txtValor.Text = pesq3
txtStatus.Text = pesq4
txtProposta.SetFocus

Exit Sub

trataErro:
   texto = "Produto não localizado, verifique novamente o número da proposta!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

 

Answer 1

Olá Bruno!

Experimente fazer estas duas modificações neste trecho do seu código:

txtData.Text = Cdate(pesq2)
txtValor.Text = Format(pesq3, "R$ #,###.00")

---

Rafael Kamimura

Answer 2

Eu gosto de resolver esse problema da seguinte forma:

Formate a coluna que recebe valores de datas no formato de data desejado. Em seguida, altere a linha de código para o mostrado abaixo:

txtData.Text = CLng(CDate(pesq2))

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 3

Obrigado Rafael, realizei a alteração e funcionou normalmente.

Bom dia.

Answer 4

Obrigado Felipe, também funcionou seu modo de formatação do código.

Bom dia