Este fórum está sendo desativado

[DaniTavares]

Bom dia,

Tenho uma macro de pesquisa onde digito o codigo e ele busca as outras informações referente a esse codigo digitado.
ocorre que tem alguns codigos que ele nao busca,
ex codigo28769 ele busca normal. 35986 da erro e nao busca. codigos maiores tambem nao busca. alguem pode me ajudar?

Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Integer
Dim pequisa
Dim mensagem

codigo = TextBox1.Text
Sheets("Estoque").Select
Set intervalo = Range("A2:E60000")

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)

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

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

[DaniTavares]

alguem sabe??

[Sandman]

boa noite, poste sua planilha para que possamos tentar ajudar

[Reinaldo]

Sua variável Codigo está definida como Integer ("Dim codigo As Integer"), assim está limitada a um valor numérico de -32768 até +32767; valores fora dessa range causam erro na execução da rotina.
Altere a definição para Long --> Dim codigo As Long, e teste