ola amigo,alguem pode me ajudar, minha pesquisa deu um erro mas achei o poque porem nao sei como resolver o codigo a baixo só consigo pesquisar o "código"
com maximo 5 numeros e eu tiver codigo com 6 numero ele da erro na linha codigo = txtcodfor voce pode me ajudar?
------------------------------------------------
Private Sub txtcodfor_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim Codigo As Integer
Dim mensagem
Codigo = txtcodfor Sheets("fornecedor").Select
Set intervalo = Range("A2:B4")
On Error GoTo Erro
pesquisa = Application.WorksheetFunction.VLookup(Codigo, intervalo, 2, False)
txtfornecedor = pesquisa
Exit Sub
Erro: texto = "Não foi localizado nenhum valor correspondente ao código..." mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
