Este fórum está sendo desativado

[Alexhp]

Boa noite

Meu procv não funciona quando eu busco codigo com numero.

Exemplo

Funciona - Codigo : Casa , ai o procv me retorna a condição = telhado.
Não funciona - Codigo: 2254 , ai o procv não me retorna a condição = telhado.

Private Sub txt_problemas1_AfterUpdate()
Application.ScreenUpdating = False

Dim Intervalo As Range
Dim texto As String
Dim codigo
Dim Pesquisa1
Dim pesquisa2
Dim mensagem

codigo = txt_problemas1
'O comando para re-exibir é:
Sheets("Base-Qualidade").Visible = True

Sheets("Base-Qualidade").Select
Set Intervalo = Range("A2:C1000")

'Para ocultar é:
Sheets("Base-Qualidade").Visible = False

On Error GoTo Erro

Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, Intervalo, 2, False)


txt_descrição1 = Pesquisa1


Exit Sub

Erro:
texto = "CODIGO NÃO ENCONTRADO"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)

Application.ScreenUpdating = True

End Sub

[mprudencio]

Sem a planilha e o formulario meio complicado ajudar.