



Podemos interactuar automáticamente mediante un panel para mostrar y ocultar las hojas deseadas con botones en Excel.

- CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.
Ir a: Barra de Menú
Insertar
Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro:
Sub Enero()
Sheets("Indice").Visible = True
Sheets("Enero").Visible = True
Sheets("Enero").Select
Range("A1").Select
Sheets("Febrero").Visible = False
Sheets("Marzo").Visible = False
Sheets("Abril").Visible = False
Sheets("Mayo").Visible = False
Sheets("Junio").Visible = False
End Sub
- Visible = True. Muestra la hoja.
- Visible = False. Oculta la hoja.
Sub Febrero()
Sheets("Indice").Visible = True
Sheets("Enero").Visible = False
Sheets("Febrero").Visible = True
Sheets("Febrero").Select
Range("A1").Select
Sheets("Marzo").Visible = False
Sheets("Abril").Visible = False
Sheets("Mayo").Visible = False
Sheets("Junio").Visible = False
End Sub
Sub Marzo()
Sheets("Indice").Visible = True
Sheets("Enero").Visible = False
Sheets("Febrero").Visible = False
Sheets("Marzo").Visible = True
Sheets("Marzo").Select
Range("A1").Select
Sheets("Abril").Visible = False
Sheets("Mayo").Visible = False
Sheets("Junio").Visible = False
End Sub
Sub Abril()
Sheets("Indice").Visible = True
Sheets("Enero").Visible = False
Sheets("Febrero").Visible = False
Sheets("Marzo").Visible = False
Sheets("Abril").Visible = True
Sheets("Abril").Select
Range("A1").Select
Sheets("Mayo").Visible = False
Sheets("Junio").Visible = False
End Sub
Sub Mayo()
Sheets("Indice").Visible = True
Sheets("Enero").Visible = False
Sheets("Febrero").Visible = False
Sheets("Marzo").Visible = False
Sheets("Abril").Visible = False
Sheets("Mayo").Visible = True
Sheets("Mayo").Select
Range("A1").Select
Sheets("Junio").Visible = False
End Sub
Sub Junio()
Sheets("Indice").Visible = True
Sheets("Enero").Visible = False
Sheets("Febrero").Visible = False
Sheets("Marzo").Visible = False
Sheets("Abril").Visible = False
Sheets("Mayo").Visible = False
Sheets("Junio").Visible = True
Sheets("Junio").Select
Range("A1").Select
End Sub
- HOJA INDICE
Ir a: Hoja Indice.
Mostrar la pestaña de desarrollador en la cinta de opciones (ver proceso).
Ir a: Cinta de opciones
Pestaña: Desarrollador
Grupo: Controles
Insertar
Controles de formulario: Botón
Clic sobre la hoja Excel. Mostrará la ventana asignar macro.
Pulsar sobre la macro ENERO
Pulsar el botón Aceptar. Cierra la ventana e inserta el botón con la macro.
Situar el cursor sobre el botón
Pulsar botón derecho del ratón
Modificar texto
Escribir: Enero. Como el texto para mostrar la hoja Enero.
Repetir el proceso para insertar los botones para cada macro.
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
En la hoja INDICE al pulsar sobre el mes deseado mostrará la hoja y ocultará el resto.

