Movernos por un libro

En esta lección veremos algunas macros que nos permitirán mover por las celdas que contiene un libro. Es recomendable trabajar con libros que contengan datos para así poder ver el efecto que la macro hace sobre la hoja.

Buscar el final de una lista: podemos utilizar esta Macro para podernos situar al final de una lista de elementos. Interpretaremos que el final de la misma está en el momento en el que encontramos una celda vacía.

Sub Final()

While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Range("A1").Select

Wend

End Sub

Deberemos observar que con esta Macro siempre queda activada la primera celda que está en blanco después de toda la lista.

Buscar el final de una lista y situarnos en la última entrada: esta Macro es exactamente igual que la anterior pero con la única diferencia que la celda activada es la última entrada de la lista.

Sub FinalLista()

While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Range("A1").Select

Wend

ActiveCell.Offset(-1, 0).Range("A1").Select

End Sub

En esta Macro se realiza el bucle hasta que se encuentra la celda vacía y después subimos una posición para situarnos en la última entrada de la tabla.