Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Mostrar las hojas

Como mostrar todas las hojas que esten ocultas

| 8 Comments

Durante el trabajo de bases de datos resulta sumamente útil ocultar algunas hojas del libro de Excel de manera que el movimiento a lo largo del trabajo resulta más ligero. Por ejemplo si la información concierne a las 24 provincias del Perú; a la información mensual, anual o cual fuese la frecuencia; información por sectores económicos; por empresa financiera por mencionar algunos de los casos más relevantes personalmente.

Para esto sencillamente se da clic en el menú Formato –> Hoja –> Ocultar . A la par logísticamente resulta tedioso y mecánico de mostrar, una vez terminado el trabajo, todas las hojas de vuelta puesto que ello implica hacer uso de la contraparte del menú Formato–>Hoja–>Mostrar hoja a hoja.

Para evitar dicha complicación Visual Basic provee una herramienta como el lenguaje de programación tal como se muestra a continuación:

most

Es así que se logra realizar el trabajo de manera más sencilla a través del uso de VBA.

Elaborado por: José Raunelli

8 Comments

  1. se que hay una forma de ver el listado de todas las hojas de calculo de un mismo libro y no tener que buscarla. se ve el listado en otra hoja verticalmente, se le hace clic en la que necesita y lo lleva a esta. como lo hago?.
    gracias

  2. Fantástico! Gracias! sirve a la perfección!
    Dejo el código para que no tengan que reescribirlo como yo:

    Sub macro_mostrar()

    Dim numero As Byte

    Dim i As Byte

    numero = Sheets.Count

    For i = 1 To numero

    Sheets(i).Visible = True

    Next

    End Sub

  3. Cuando ejecuto la rutina Mostrar hojas de calculo, me aparece un mensaje:
    Se ha producido el error ‘1004’ en tiempo de ejecución. No se puede asignar la propiedad visible de la clase worksheet.
    La macro no me muestra las 3 hojas ocultas.

    • Para que el proceso no se caíga debe ser así

      Sub mostrar()

      On Error Resume Next

      Dim numero As Byte
      Dim i As Byte

      numero = Sheets.Count
      For i = 1 To numero
      Sheets(i).Visible = True
      Next

      MsgBox “Todas visibles”

      End Sub

  4. Buenos días.
    Funciono a la perfección tal como lo escribió Clau dio. muchas gracias.
    Saludos

  5. Excelente herramienta, me ha sido de mucha utilidad, estaba des-ocultando
    todas las hojas del Prevalidador Exogena de la DIAN (Colombia) y son una gran cantidad que se me hacia la tarea muy dispendiosa.
    Muchas Gracias

  6. Estimados,

    Buenas tardes, tengo una inquietud referida a horarios de trabajo, en mi base de datos tengo 2 horarios:
    1. Cronológico de.
    00:00 a 12:00 – 12:00 a 00:00
    2. Horario operativo de.
    06:00am. a 06:00 pm – 06:00pm. a 06:00am.
    De la lista defunciones cual de estas puedo usar para. Transformar el criterio cronológico en criterio operativo y que procedimiento.
    Aguardo sus comentarios,
    Santos

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5