Método Range.FindPrevious (Excel)

Continua uma pesquisa iniciada com o método Find . Localiza a célula anterior que coincida com as mesmas condições e retorna um objeto Range representando essa célula. Não afeta a seleção ou a célula ativa.

Sintaxe

expressão. FindPrevious (antes)

expressão Uma variável que representa um objeto de Intervalo.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Before	Opcional	Variantes	A célula antes da qual você deseja pesquisar. Isso corresponde à posição da célula ativa quando uma pesquisa é feita desde a interface do usuário. Observe que Antes deve ser uma única célula no intervalo. Lembre-se de que a pesquisa começa antes dessa célula; a célula especificada não é pesquisada até que o método seja encapsulado novamente para essa célula. Se esse argumento não for especificado, a pesquisa será iniciada antes da célula superior esquerda no intervalo.

Valor de retorno

Intervalo

Comentários

Quando a pesquisa chega ao início do intervalo de pesquisa especificado, ela continua a partir do final 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.

Exemplo

Este exemplo mostra como o método FindPrevious é usado com os métodos Find e FindNext. Antes de executar este exemplo, verifique se o Sheet1 contém pelo menos duas ocorrências da palavra Phoenix na coluna B.

Sub FindTest() 
 Dim fc As Range 
 Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix") 
 MsgBox "The first occurrence is in cell " & fc.Address 
 Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc) 
 MsgBox "The next occurrence is in cell " & fc.Address 
 Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc) 
 MsgBox "The previous occurrence is in cell " & fc.Address 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.