Michele Dias

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