Ocultar filas y columnas mediante macros

Muchos de los internautas que aterrizan en este blog, lo hacen buscando unas pequeñas líneas de código, o un macro, que le permitan ocultar filas o columnas para completar algún procedimiento que tienen entre manos. Como es mi interés dar respuesta a sus inquietudes, vamos a tratar hoy este tema.

Si lo que deseamos es ocultar la fila activa, es decir, la fila donde estamos situados, nos bastará copiar el presente código en un módulo VBA (ya sabéis, Alt+F11, para entrar en modo VBA):

Sub Ocultar_fila() 'Nos fijamos en la celda 'donde estamos situados celda = ActiveCell.Address 'Seleccionamos la fila a la 'que pertenece la celda activa ActiveCell.EntireRow.Select 'Ocultamos la fila Selection.EntireRow.Hidden = True 'Nos situamos en la fila anterior, 'siempre que no estemos ya en la primera If ActiveCell.Row <> 1 Then 'vamos a la fila anterior Range(celda).Offset(-1, 0).Select Else 'vamos a la fila siguiente Range(celda).Offset(1, 0).Select End If End Sub

Si lo que deseamos es ocultar la columna de la celda activa, nos bastará con modificar ligeramente el código anterior, para dejarlo de la siguiente forma:

Sub Ocultar_columna() 'Nos fijamos en la celda 'donde estamos situados celda = ActiveCell.Address 'Seleccionamos la columna a la 'que pertenece la celda activa ActiveCell.EntireColumn.Select 'Ocultamos la columna Selection.EntireColumn.Hidden = True 'Nos situamos en la columna anterior, 'siempre que no estemos ya en la primera If ActiveCell.Column <> 1 Then 'vamos a la columna anterior Range(celda).Offset(0, -1).Select Else 'vamos a la columna de la derecha Range(celda).Offset(0, 1).Select End If End Sub

Pero quizás deseéis ocultar varias filas de golpe. En este caso, informaremos dentro del propio código, de las filas a ocultar. En el caso del ejemplo que os pongo a continuación, ocultaremos desde la fila 5 a la fila 20:

Sub Ocultar_varias_filas() 'Seleccionamos las filas a ocultar Rows("5:20").Select 'Las ocultamos Selection.EntireRow.Hidden = True 'Nos situamos en A1 Range("A1").Select End Sub

Si por el contrario, queremos ocultar un grupo de columnas, nos bastará con informar de ello en el macro, a la vez que modificamos el código anterior para hacer referencia a las columnas (columns), en lugar de a las filas (rows):

Sub Ocultar_varias_columnas() 'Seleccionamos las columnas a ocultar Columns("F:M").Select 'Las ocultamos Selection.EntireColumn.Hidden = True 'Nos situamos en A1 Range("A1").Select End Sub