Método Range.FindPrevious (Excel)
Continúa una búsqueda iniciada con el método Find . Busca la celda anterior que cumple las mismas condiciones y devuelve un objeto Range que la representa. No afecta a la selección ni a la celda activa.
Sintaxis
expresión. FindPrevious (Antes)
expresión Variable que representa un objeto Range.
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Before | Opcional | Variant | Celda antes de la cual se desea buscar. Se corresponde a la posición de la celda activa cuando se realiza una búsqueda desde la interfaz de usuario. Tenga en cuenta que Before debe ser una sola celda del intervalo. Recuerde que la búsqueda comienza antes de esta celda; no se busca en la celda especificada hasta que el método se ajuste a esta celda. Si no se especifica este argumento, la búsqueda se inicia antes de la celda superior izquierda del rango. |
Valor devuelto
Rango
Comentarios
Cuando la búsqueda alcance el principio del rango de búsqueda especificado, regresará al final del rango. Para detener una búsqueda cuando se produzca esta situación, guarde la dirección de la primera celda que se encuentre y, después, pruebe la dirección de cada celda sucesiva que se haya encontrado con esta dirección guardada.
Ejemplo:
En este ejemplo se muestra cómo se usa el método FindPrevious con los métodos Find y FindNext. Antes de ejecutar este ejemplo, asegúrese de que Sheet1 contiene al menos dos apariciones de la palabra Phoenix en la columna 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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.