Macro para busca de um valor contido em uma célula

Question

Bom dia!

Preciso fazer uma macro que localize as palavras contidas dentro de uma célula (por exemplo, se dentro da célula tiver escrito "casa amarela", deve encontrar se eu buscar somente com "amarela". Estava tentando usar o comando Cells.find, no entanto me deparei com um problema... Se o que eu pesquisar não estiver contido em nenhuma célula da planilha, a macro fica bugada... No caso se o que eu pesquisar não existir na planilha, gostaria que retornasse uma tela escrito "valor inexistente". Alguém consegue me ajudar?

Obrigada!

Answer 1

Olá, Thalitalto!

Esse é o código que precisa para executar o que deseja.

Para exibir a mensagem do "valor existente", usamos o "if ... is nothing" e o método MsgBox.

Sub procurar()

    Dim rng As Range

    Dim vprocurar As String

    vprocurar = InputBox("Valor: ")

    Set rng = Range("A:A").Find(What:=vprocurar, LookAt:=xlPart, MatchCase:=False)

    If rng Is Nothing Then

        MsgBox ("Valor inexistente")

    Else

        rng.Select

    End If

End Sub

Espero que ajude.