Contar hojas de un libro mediante VBA

Contar hojas en VBA puede sernos útil en un momento dado. Para ello, no tenemos más que guardar en una variable el resultado y arrojarlo de la manera en que nos sea más útil.

Sintaxis contar hojas en VBA

Como ya hemos explicado anteriormente, una hoja es un elemento de la jerarquía de Excel y como tal, puede haber varias hojas en un mismo libro. Para contar elementos en Excel se usa el método count este método nos permite contar hojas, gráficos, etc…

El código para contar las hojas de un libro será:

MiVariable=Sheets.Count

donde MiVariable es la variable donde se almacenará el número entero de hojas que hay en el libro.

Si queremos conocer en qué posición se encuentra una determinada hoja escribiremos:

MiVariable=Sheets("Nombre hoja buscada").Index

Y tendremos en la variable MiVariable la posición (en número entero) de la hoja que hemos señalado.

Ejemplo contar hojas en VBA

En el siguiente ejemplo vamos a ver una utilidad de contar hojas en VBA. Consiste en recorrer todas las hojas de un libro para poner el zoom de cada hoja al 75% y que la celda activa que encontremos al abrir nuestro libro sea siempre A1.

Sub Homogeneizar_hojas()

    For i = 1 To Sheets.Count
        Sheets(i).Activate
        ActiveWindow.Zoom = 75
        Range("A1").Activate
    Next
    
    Sheets(1).Activate

End Sub
Quique es un fanático del Excel desde que empezó a trabajar con ello hace unos pocos años. Adquirió su conocimiento a través de Google y de infinitas pruebas y más pruebas. Además, Quique es un entusiasta de su familia (mujer e hijos), del deporte y de la cerveza… no dudes en contactar con él para cualquier duda que tengas.

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información ACEPTAR

Shares
Share This

Comparte este post

Comparte si te resulta útil la información.