Filter by XX days

[Burt_100]

Hi,
i am looking to filter date by user generated days, i.e an input box and they the number of + or - days so for example if today -10 was inputted the 29/12/16 would be filtered, I am currently using the below code; Can anyone help amend this?

Sub Another_Filter1()
Dim ws As Worksheet:    Set ws = Sheets("X47")
    
    Application.ScreenUpdating = False
    
    Application.Calculation = xlManual
    
    Application.EnableEvents = False
    
    Application.DisplayAlerts = False

With ws
    .AutoFilterMode = False
    .Range("A5:AO5000").AutoFilter Field:=1, Criteria1:=Date + 1
    .Range("$A$5:$BA$5000").AutoFilter Field:=24, Criteria1:="="
End With

    Application.ScreenUpdating = True
    
    Application.Calculation = xlAutomatic
    
    Application.EnableEvents = True
    
    Application.DisplayAlerts = True

End Sub

[Richard Buttrey]

Hi,

One way

Sub FilterDates()
    Dim lDt As Long, l As Long, ws As Worksheet
    Set ws = Sheets("X47")
    l = InputBox("Enter a number")
    If Not IsNumeric(l) Then
        MsgBox ("Please enter a number")
        Exit Sub
    End If

    lDt = DateSerial(Year(Date), Month(Date), Day(Date))
    ws.Range("$A$5:$AO$500").AutoFilter Field:=24, Criteria1:=">=" & lDt - l, Criteria2:="<=" & lDt + l

End Sub