none
Retorno de dados no formato de Data RRS feed

  • Pergunta

  • 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

     

    segunda-feira, 1 de junho de 2015 12:36

Respostas

  • 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


    • Editado Rafael Kamimura segunda-feira, 1 de junho de 2015 12:55
    • Marcado como Resposta Bruno Breda segunda-feira, 1 de junho de 2015 13:18
    segunda-feira, 1 de junho de 2015 12:51
  • 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

    • Marcado como Resposta Bruno Breda segunda-feira, 1 de junho de 2015 13:19
    segunda-feira, 1 de junho de 2015 13:13
    Moderador

Todas as Respostas

  • 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


    • Editado Rafael Kamimura segunda-feira, 1 de junho de 2015 12:55
    • Marcado como Resposta Bruno Breda segunda-feira, 1 de junho de 2015 13:18
    segunda-feira, 1 de junho de 2015 12:51
  • 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

    • Marcado como Resposta Bruno Breda segunda-feira, 1 de junho de 2015 13:19
    segunda-feira, 1 de junho de 2015 13:13
    Moderador
  • Obrigado Rafael, realizei a alteração e funcionou normalmente.

    Bom dia.

    • Editado Bruno Breda segunda-feira, 1 de junho de 2015 13:20
    segunda-feira, 1 de junho de 2015 13:18
  • Obrigado Felipe, também funcionou seu modo de formatação do código.

    Bom dia

    segunda-feira, 1 de junho de 2015 13:20