Este fórum está sendo desativado

[Alexhp]

Boa tarde pessoal

Eu fiz meu procv no vba porem ele só retorna se o codigo for somente numeros, se tiver uma letra no meu código ele não busca os dados na base de dados.

Private Sub txt_codigo1_AfterUpdate()
Application.ScreenUpdating = False
If IsNumeric(txt_codigo1.Text) Then

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

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

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

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

On Error GoTo Erro

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


TextBox29 = Pesquisa1


Exit Sub

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

End If

Application.ScreenUpdating = True

End Sub

[gfranco]

Boa tarde.
Essa condição está estipulada já no ofício do seu código.
Veja que todo o bloco está cercado pela condicional:
If IsNumeric(txt_codigo1.Text) Then....
Ou seja, se o txt código não contiver um valor numérico, nada abaixo dessa instrução será executado...

[Alexhp]

eu tirei ai funcionou como texto porem ai parou de funcionar como numero , preciso que ele reconheça os dois

[mprudencio]

Pq nao faz um loop?