O método Find permite encontrar a primeira ocorrência de uma informação específica em uma linha. Objetivamente, esse método permite buscar em uma planilha ou parte de uma planilha Excel, uma informação, dado ou parte dele.
O Excel possui uma ferramenta de busca embarcada. Para abri-la, acesse o arquivo e vá em Localizar e selecionar > Localizar:
Digite o valor a ser pesquisado, defina as opções e clique em Avançar.
O gravador de macro nos dá o seguinte código (termo de busca: "Valor"):
Option Explicit
Sub Cherche()
\'Declaração de variáveis:
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
\'********* A ser adaptado ***********
\ Atribuir valores às variáveis:
\'Procura-se a palavra "Encontre"
Valor_procurado = "Encontre"
\'Na primeira coluna da planilha ativa
Set PlageDeRecherche = ActiveSheet.Columns(1)
\'*******************************
\ Method find, aqui se procura o valor exato (LookAt: = xlWhole)
Set Encontre=
PlageDeRecherche.Cells.Find Localizar (o: = lookup_value, LookAt: = xlWhole)
\ Processamento \ erro possível: Se não há nada: If Trouve Is Nothing Then
\ Aqui, o tratamento para os casos em que o valor não for encontrado
endereço encontrado=valor_procura & está presente no" & PlageDeRecherche.Address
Outro
\ Aqui, o tratamento para os casos em que o valor é encontrado
AdresseTrouvee = Trouve.Address
End If
MsgBox AdresseTrouvee
>
Observação: se tivéssemos tentado o número em vez da palavra Encontre 1024, deveria ter sido declarado
lookup_value As Integer
. O que está mudando é que você pode procurar qualquer tipo de dados do Excel, ou o tempo que você quer especificar, na declaração da variável.
Os FindNext e FindPrevious podem repetir a pesquisa. Quando a pesquisa chega ao final do intervalo de pesquisa especificada, ele retorna para o início. Para interromper uma pesquisa quando ela retorna ao ponto de partida, salve o endereço da primeira célula encontrada e, em seguida, compare o endereço de cada célula encontrado mais tarde com o endereço registrado.
Foto: © Dzmitry Kliapitski - 123RF.com