Ir ao conteúdo
  • Cadastre-se
Michele Dias

Visual Basic Consultar pelo TextBox VBA

Recommended Posts

Gostaria de uma ajuda criei uma consulta atraves de um textbox no formulario no Excel e minha consulta esta funcionando apenas se o campo tiver 4 digitos, alguem pode me ajudar

Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim Matrícula As Integer
Dim pequisa
Dim mensagem

Matrícula = TextBox1.Text
Sheets("Luvas").Select
Set intervalo = Range("A2:E200")

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 5, False)

TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox1.SetFocus

Exit Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×