¿Cómo ocultar columnas automáticamente según la fecha en Excel?

Supongamos que tengo un rango de datos en una hoja de cálculo, y ahora quiero ocultar las columnas basándome en una fecha específica de forma automática. Por ejemplo, cuando ingreso la fecha 16/5/2016 en una celda, quiero ocultar inmediatamente las columnas cuya fecha sea menor que esta fecha específica, como se muestra en la siguiente captura de pantalla. Este artículo presentará algunos trucos para resolverlo.

Ocultar columnas automáticamente según una fecha específica con código VBA

Ocultar columnas según una fecha específica con Kutools para Excel

Ocultar columnas automáticamente según una fecha específica con código VBA

Para completar esta tarea, el siguiente código VBA puede ayudarte, por favor sigue los siguientes pasos:

1. Selecciona la pestaña de la hoja que deseas ocultar por fecha, haz clic derecho y elige Ver código desde el menú contextual para ir a la ventana Microsoft Visual Basic para Aplicaciones, luego copia y pega el siguiente código en el Módulo:

Código VBA: Ocultar columnas automáticamente según una fecha específica:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xCell As Range
    If Target.Address <> Range("K4").Address Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In Range("A1:I1")
        xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
    Next
    Application.ScreenUpdating = True
End Sub

2. Luego guarda y cierra este código, regresa a la hoja de cálculo, y ahora, cuando ingreses una fecha en la celda K4, las columnas con fechas anteriores a la fecha especificada se ocultarán automáticamente.

Nota: En el código anterior, K4 es la celda de fecha específica en la que deseas basar la ocultación de las columnas, A1:I1 son las celdas de la fila que contienen la fecha que utilizaste.

Ocultar columnas según una fecha específica con Kutools para Excel

Si no estás familiarizado con el código, aquí hay una herramienta práctica: Kutools para Excel, con su utilidad Seleccionar celdas específicas, puedes realizar esta tarea con facilidad.

Después de instalar Kutools para Excel, por favor sigue los siguientes pasos:

1. Selecciona los encabezados de fecha y haz clic en Kutools > Seleccionar > Seleccionar celdas específicas, ver captura de pantalla:

2. En el cuadro de diálogo emergente Seleccionar celdas específicas, selecciona Columna completa desde el tipo de selección, y luego elige el criterio, como Menor que desde la lista desplegable Especificar tipo, e ingresa la fecha en el cuadro de texto siguiente en el que deseas basar la ocultación de las columnas, ver captura de pantalla:

3. Luego haz clic en el botón Aceptar, las columnas específicas cuya fecha es menor que 16/5/2016 se seleccionan de inmediato, ver captura de pantalla:

4. Luego haz clic derecho en cualquiera de los encabezados de columna seleccionados y selecciona Ocultar para ocultar estas columnas seleccionadas según sea necesario. Ver captura de pantalla: