Cuando se habla de Hide Column en VBA, nos referimos a la acción de ocultar las columnas que deseemos y posteriormente mostrarlas.
Muchas veces recibimos grandes cantidades de datos con muchos campos, por lo que para tener una visión más completa de la hoja esta función resulta muy útil; posteriormente, con un pequeño cambio, se podrán mostrar las columnas ocultas.
Con el siguiente ejemplo podremos ocultar una sola columna:
La primera línea de texto (Columns("D:D").EntireColumn.Hidden = True) oculta la columna D.
Primero se selecciona dicha columna(columna entera), luego con .Hidden se puede o no ocultar la columna, en este caso como se escribe =True esto significa que SI se oculta la columna D; posteriormente con la segunda línea de texto(Columns("D:D").EntireColumn.Hidden = False) se puede volver a mostrar dicha columna.
Esta macro funciona para una columna especifica; para poder trabajar con un rango de columnas, la codificación sería la siguiente:
La lógica es la misma, solo que ahora trabajamos desde la columna A hasta la columna D:
Columns("A:D").
Finalmente, si después de ocultar muchas columnas de nuestro archivo y resulta tedioso mostrar una por una, lo que podemos hacer es seleccionar todas las columnas que contengan datos y mostrar todas las que se encuentran ocultas:
.Cells se encarga de seleccionar todas las columnas del archivo de Excel que estamos trabajando.
Estas macros se pueden utilizar en cualquier hoja activa.
Esta macro se puede modificar de acuerdo a la necesidad del usuario, como por ejemplo, se pueden eliminar las columnas que no contengan datos que se pudieran haber filtrado erróneamente en nuestra base de datos:
La siguiente macro nos podrá ayudar en esos casos:
Lo que quiere decir esta macro, es que cuenta desde la primera i=1 columna hasta el numero de columnas que tenga contenido el elemento; posteriormente la condición es que si se encuentra en blanco =0 entonces la columna total se ocultará.
En el archivo Excel adjunto, se podrán visualizar los ejemplos descritos: VBA Hide Columns
Por: Lucia de Jesús Melgarejo