Aprende ha ocultar y esconder columnas, celdas y filas con macros en excel y adicionalmente mostrar, ver o desocultar columnas, celdas y filas ocultas con macros en excel.
¿Como ocultar o mostrar columnas, celdas y filas con macros en Excel?
Con esta macro nos va permitir en general ocultar y esconder columnas, celdas y filas con macros en excel y adicionalmente mostrar, ver o desocultar columnas, celdas y filas ocultas con macros en excel y en términos específicos en realizar lo siguiente:
- Ocultar una fila o una columna
- Ocultar rangos de filas y columnas continuos
- Ocultar filas y columnas que no son continuos ejemplo ocultar la fila 6 y la 9
- Mostrar una fila o una columna
- Mostrar rangos de filas y columnas continuos
- Mostrar filas y columnas que no son continuos ejemplo ocultar la fila 6 y la 9.
Revisa los dos videos para que aprendas a utilizar cada macro y en la parte inferior se encuentra las macros para que la puedas descargar.
Importante que para utilizar la macro debemos de tener habilitados el menú de programador o desarrollador. En este CORTO VIDEO te explico como lo puedes HABILITAR
Después de que tengas habilitado las macros debemos de insertar un botón.
y arrastramos con el mouse el tamaño del botón.
Hacemos lo mismo para realizar dos botones como se muestra en la imagen
Luego nos ubicamos en el primer boton y presionamos clic derecho asignar macro
le podemos asignar un nombre a la macro y le decimos nuevo
Luego copiamos la macro.
Se debe repetir el proceso anterior para el segundo boton
En el momento de ejecutar la macro te sale un primer cuadro donde debemos de escribir 1 o 2 dependiendo del caso si es para ocultar o mostrar filas y columnas
Luego aparecerá otro recuadro donde debemos de escribir la columna y fila que desean ocultar o mostrar guiándonos de los ejemplos que se muestran en el recuadro
La macro consiste en lo siguiente
Luego la variable Criterio le asignamos una caja de texto con su respectiva información.
Creamos una condición para saber si es para mostrar u ocultar columnas
If criterio = 1 Then
Le asignamos a la variable datos una caja de texto para escribir el rango que deseamos seleccionar
Luego la variable Criterio le asignamos una caja de texto con su respectiva información.
Creamos una condición para saber si es para mostrar u ocultar filas.
Le asignamos a la variable datos una caja de texto para escribir el rango que deseamos seleccionar.
Seleccionamos el rango que escribimos anteriormente y ocultamos la fila.
Macro para ocultar y mostrar columnas en excel
La macro para ocultar y mostrar las columnas en excel sería la siguiente.
''''''''' PARA OCULTAR Y MOSTRAR COLUMNAS ''''''''''''''''''''
Nombrar dos variables como texto (Criterio y Datos)
Dim criterio As String '
Dim datos As String
criterio = InputBox("Si deseas OCULTAR columnas escribe el número 1" & vbNewLine & "Si deseas MOSTRAR columnas escribir el número 2", "OCULTAR O MOSTRAR COLUMNAS")
datos = InputBox("Digitar las columnas que deseas ocultar teniendo encuenta lo siguiente:" & vbNewLine & "1) Si deseas ocultar una columna ejemplo la B escribir B:B" & vbNewLine & "2) Si deseas ocultar un rango continuo, ejemplo la columna D hasta la F, digitar D:F" & vbNewLine & "3) Si deseas ocultar varias columnas a la vez como ejemplo las columnas B,E y G escribir B:B,E:E,G:G", "OCULTAR FILAS")
Seleccionamos el rango que escribimos anteriormente y ocultamos la columna
Range(datos).Select
Selection.EntireColumn.Hidden = True
Else
Le asignamos a la variable datos una caja de texto para escribir el rango que deseamos seleccionar
datos = InputBox("Digitar las columnas que deseas mostrar teniendo encuenta lo siguiente:" & vbNewLine & "1)Si deseas mostrar una columna ejemplo la B escribir B:B" & vbNewLine & "2)Si deseas mostrar un rango continuo, ejemplo la columna D hasta la F, digitar D:F" & vbNewLine & "3)Si deseas mostrar varias columnas a la vez como ejemplo las columnas B,E y G escribir B:B,E:E,G:G", "MOSTRAR FILAS")
Seleccionamos el rango que escribimos anteriormente y mostramos la columna
Range(datos).Select
Selection.EntireColumn.Hidden = False
End If
Macro para ocultar y mostrar filas con macros en excel
La macro para ocultar y mostrar las columnas en excel sería la siguiente.
'''''''''''' PARA OCULTAR Y MOSTRAR FILAS ''''''''''''''''''''''''
Nombrar dos variables como texto (Criterio y Datos)
Dim criterio As String
Dim datos As String
criterio = InputBox("Si deseas OCULTAR Filas escribe el número 1," & vbNewLine & "Si deseas MOSTRAR filas escribir el número 2", "OCULTAR O MOSTRAR FILAS")
If criterio = 1 Then
datos = InputBox("Digitar las filas que deseas ocultar teniendo encuenta lo siguiente:" & vbNewLine & "1) Si deseas ocultar una fila ejemplo la fila 3 escribir 3:3" & vbNewLine & "2) Si deseas ocultar un rango continuo, ejemplo la fila 10 hasta la 15, digitar 10:15" & vbNewLine & "3) Si deseas ocultar varias filas a la vez como ejemplo las filas 5,10 y 13 escribir 5:5,10:10,13:13", "OCULTAR FILAS")
Range(datos).Select
Selection.EntireRow.Hidden = True
Else
Le asignamos a la variable datos una caja de texto para escribir el rango que deseamos seleccionar
datos = InputBox("Digitar las filas que deseas mostrar teniendo encuenta lo siguiente:" & vbNewLine & "1)Si deseas mostrar una fila ejemplo la fila 3 escribir 3:3" & vbNewLine & "2)Si deseas mostrar un rango continuo, ejemplo la fila 10 hasta la 15, digitar 10:15" & vbNewLine & "3)Si deseas mostrar varias filas a la vez como ejemplo las filas 5,10 y 13 escribir 5:5,10:10,13:13", "MOSTRAR FILAS")
Seleccionamos el rango que escribimos anteriormente y mostramos la fila
Range(datos).Select
Selection.EntireRow.Hidden = False
End If
En el siguiente ENLACE puedes DESCARGAR la macro para ocultar y mostrar filas y columnas Opción #1
En el siguiente ENLACE puedes DESCARGAR la opción #2
Seguramente quieres sabes más acerca de Excel, no te olvides darte una vuelta por las siguientes secciones disponibles para ti de manera gratuita:
Canal de YouTube
Comunidad Telegram
Instagram: Aprende y Enseña Excel
Facebook: Aprende Excel Fácil
Twitter: Aprende y Enseña Excel
Hasta una próxima y te deseo el mayor de los EXITOS.
