Mostrar y ocultar las hojas deseadas con botones en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2019Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

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

Mostrar y ocultar las hojas deseadas con botones en Excel
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. 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
  1. Ir a: Hoja Indice.

  2. Mostrar la pestaña de desarrollador en la cinta de opciones (ver proceso).

  3. 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.

    Ventana asignar macro Excel
  4. Pulsar sobre la macro ENERO / Pulsar el botón Aceptar. Cierra la ventana e inserta el botón con la macro.

  5. 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.

    Hoja Excel con botón Enero
  6. Repetir el proceso para insertar los botones para cada macro.

    Hoja Excel con los 6 botones con macro asignada
  7. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  8. En la hoja INDICE al pulsar sobre el mes deseado mostrará la hoja y ocultará el resto.

Proceso de cambio de hojas desde la hoja índice
Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.