Menú de selección de hojas, seleccionar la penúltima hoja

En la entrega pasada complementamos el menú de selección de Hojas donde vimos como seleccionar la Última hoja del libro. En esta ocasión vamos a ver como seleccionar la Penúltima hoja del libro con el uso de la Propiedad Count:

Propiedad Count: Mediante el uso de esta Propiedad, podemos obtener el número de hojas que tenemos en el Libro de Excel:

En esta imagen, los nombres de las hojas son Control, Inventario, Facturas y las demás no se alcanzan a ver; mediante la aplicación de la Propiedad Count vamos a indicar a Visual Basic que nos “lleve” hasta la penúltima hoja (estando en la Última o cualquier otra Hoja). Para repasar un poco, en la entrega donde hicimos le menú de selección de hojas utilizamos la siguiente macro:

Sub SeleccionarHoja3()

Worksheets(3).Select

End Sub

En la Línea dos estamos utilizando el Objeto Worksheets donde indicamos entre paréntesis, un número que indica la posición en la que se encuentra la hoja que queremos seleccionar, en este caso, la Hoja3 se encuentra en la posición 3 dentro del Libro de Excel.

Para seleccionar la Penúltima hoja vamos al editor de Visual Basic, damos doble clic en la primera Hoja desde el explorador de Proyectos:


Y pegamos el siguiente código:

Sub SeleccionarPenultimaHoja()

Worksheets(Worksheets.Count - 1).Select

End Sub

Queda de la siguiente manera:

Veamos lo que significa cada código:

Linea 1, Sub SeleccionarUltimaHoja (): Indica el inicio de la macro

Linea 2, Worksheets(Worksheets.Count - 1).Select: con esta instrucción estamos activando el Objeto Worksheets en el cual indicamos entre paréntesis no un número de hoja (Como en la aplicación de entregas pasadas de creación de menú), en lugar de ello estamos invocando de nuevo el Objeto Worksheets pero esta vez aplicando la Propiedad Count con la cual obtenemos la cantidad de Hojas que contiene el libro y dicho número corresponde también a la última hoja del libro para finalmente restarle 1, y con esto obtendremos el indice de la penúltima hoja

Linea 3, End Sub: indica el final de la macro

Probemos ejecutando esta macro con F5 y veremos que nos lleva a la última hoja del libro.

Descargar archivo.

Contenido relacionado:
Compartirlo
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Déjenos su opinión

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.