Range.FindNext (Excel)

Continua uma pesquisa que foi iniciada com o método Find . Localiza a próxima célula que corresponde às mesmas condições e retorna um objeto Range que representa a célula. Isso não afeta a seleção ou a célula ativa.

Quando a pesquisa atingir o final do intervalo de pesquisa especificado, voltará ao início do intervalo. Para parar uma pesquisa quando isso acontecer, salve o endereço da primeira célula encontrada e então teste cada endereço de célula sucessivo encontrado em relação a esse endereço salvo.

FindNext (After)

After: A célula depois da qual você deseja pesquisar. Isso corresponde à posição da célula ativa quando uma pesquisa é concluída a partir da interface do usuário. Esteja ciente de que After deve ser uma única célula no intervalo. Lembre-se de que a pesquisa começa nessa célula; a célula especificada não será pesquisada até o método envolver novamente essa célula. Se você não especificar esse argumento, a pesquisa será iniciada após a célula no canto superior esquerdo do intervalo.

Dim rngFindNext As Range
Set rngFindNext = Worksheets("Sheet1").Range("A1:A10").FindNext()