Página 1 de 1

Erro ao usar o código FIND quando não localiza o valor procurado

Enviado: 28 Jul 2021 às 19:05
por marcoenz
Prezados, boa noite

eu estou utilizando o código abaixo, quando o produto faz parte da lista, tudo ok, o problema é tentar localizar um produto que não faz parte da lista, aparece um erro

a variavel do objeto ou a variavel do bloco with não foi definida

e quando eu abro o editor de código do vba, a linha
Código: Selecionar todos
Range("C3:C10").Find(PROCURAR).Select
fica grifada de amarelo e o código para de rodar.

tem como alterar isso. por exemplo colocar uma condição onde se não achar o texto procurado o vba exibir uma mensagem dizendo, o texto tal... não foi localizado na lista, se o texto for localizado então o vba realiza outra coisa, tipo uma condição IF

eu estou anexando a planilha para facilitar o entendimento, desde já agradeço pela atenção de todos.

código utilizado na planilha
Código: Selecionar todos
Sub LOCALIZAR()

Dim PROCURAR

PROCURAR = InputBox("QUAL O PRODUTO A SER LOCALIZADO")

Range("C3:C10").Find(PROCURAR).Select

End Sub

Re: Erro ao usar o código FIND quando não localiza o valor procurado

Enviado: 29 Jul 2021 às 08:10
por Foxtri
Bom dia
Veja se desta forma serve.

Sub LOCALIZAR()
Dim PROCURAR
Dim Rng As Range
PROCURAR = InputBox("QUAL O PRODUTO A SER LOCALIZADO")
With Range("C3:C10")
Set Rng = .Find(PROCURAR, LookIn:=xlValues)
If Not (Rng Is Nothing) Then
Rng.Select
Else
MsgBox "Item não Encontrado", vbInformation, "Atenção"
End If
End With
End Sub

Até
Foxtri