Macro para filtrar por fecha, hoy

Quisiera que me ayudaran por favor con el código para una macro, que filtre en un campo Fecha, siempre por el día de hoy. Es decir, para el ejemplo hoy es 02/08/2017, que la macro me filtre por esta fecha, y si la ejecuto mañana, me filtre por 03/08/2017, sin necesidad de actualizar la fecha.

¿Sera qué es posible?'

1 respuesta

Respuesta
2

Prueba con la siguiente macro

Sub Macro16()
'
' Por.Dante Amor
'
    'columna de fechas
    col = "D"
    num = Columns(col).Column
    '
    fec = Format(Date, "mm/dd/yyyy")
    '
    u = Range("D" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A1:G" & u).AutoFilter Field:=num, _
        Operator:=xlFilterValues, Criteria2:=Array(2, fec)
End Sub

Cambia en la macro la "D" por la columna donde tienes las fechas.

También cambia el rango "A1:G" por el rango de datos a filtrar

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

'S aludos. Dante Amor. Recuerda valorar 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas