¿Cómo filtrar todas las celdas de fecha antes o después de hoy en Excel?

En este artículo, hablaré sobre cómo filtrar todas las celdas de fecha que sean anteriores o posteriores a hoy en una hoja de cálculo de Excel.

Filtrar todas las celdas de fecha antes o después de hoy con la función Filtro

Filtrar todas las celdas de fecha antes o después de hoy con código VBA

Filtrar todas las celdas de fecha antes o después de hoy con la función Filtro

De hecho, la función Filtro en Excel puede ayudarte a resolver esta tarea tan rápido como desees, por favor sigue estos pasos:

1. Selecciona la columna de fechas que deseas filtrar y luego haz clic en Datos > Filtro, ver captura de pantalla:

2. Luego haz clic en la flecha desplegable y elige Filtros de Fecha > Antes / Después según lo necesites, ver captura de pantalla:

3. En el AutoFiltro Personalizado cuadro de diálogo, haz clic en Selector de Fechas botón, y luego haz clic en Hoy botón en el calendario del selector de fechas, ver captura de pantalla:

4. Luego haz clic en Aceptar para cerrar el cuadro de diálogo, y todas las fechas antes o después de hoy se habrán filtrado como se muestra en la siguiente captura de pantalla:

Filtrar todas las celdas de fecha antes o después de hoy con código VBA

El siguiente código VBA también puede ayudarte a filtrar todas las fechas antes o después del día actual en una hoja de trabajo. Por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega uno de los siguientes códigos en la Ventana de Módulo.

Código VBA: Filtrar todas las celdas de fecha antes de hoy:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

Código VBA: Filtrar todas las celdas de fecha después de hoy:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3. Después de copiar y pegar uno de los códigos anteriores, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de mensaje que te recordará seleccionar la columna de fechas que deseas filtrar, ver captura de pantalla:

4. Y luego haz clic en el botón Aceptar, todas las celdas de fecha que sean antes o después de hoy se filtrarán inmediatamente.