Macro para listar hojas ocultas y visibles en Excel





Macro para listar hojas ocultas y visibles en Excel: una sencilla rutina que nos permite obtener por nombre todas las hojas de un archivo excel asi algunas se encuentren ocultas, una excelene forma de saber que hojas estamos manejando y poder administrarlas eficientemente.

Para elaborar esta macro es necesario tener en cuenta ciertos conceptos como los bucle For Each … Next pero orientado a  objetos, lo que nos permite trabajar dentro de una coleción de datos, en nuestro caso dentro de todas las hojas y poder saber si estas se encuentran ocultas o visibles.

La siguiente macro escrita en vba nos permite obtener los nombres de cada hoja con una descripción que hace referencia a si esta visible u oculta. Espero lo pongan en práctica y analicen cada linea del código para que poco a poco aprendan a programar sus propias macros en Excel.

Sub listar_hojas()
'cons es simplemente una variable que me sirve para ubicar la celda
'donde inicia la lista de hojas.
cons = -1
'empezamos el bucle, para cada h(hojas) en todas las hojas
For Each h In Sheets
 
cons = cons + 1
 
If hojas.Visible = False Then
detalle = "oculta"
' si la hoja esta oculta entonces "detalle" tomará el valor "oculta"

Else
'en caso contrario "detalle" tomará el valor "visible"
detalle = "visible"
End If
'listamos todas las hojas apartir de la celda activa
Cells(ActiveCell.Row + cons, ActiveCell.Column) = h.Name " (" & detalle & ")"
 
Next h
'cerramos el bucle y listo.
End Sub


Deja tu comentario
Tu Comentario