Filter Date

[billandrew]

Trying to filter worksheet on date less than 6/5/2018 using the below code. Perplexed....


Thank you for any help.

Sub DateLessThan()Dim Lastrow As Long, i As Long
Dim ws As Worksheet
Set ws = ActiveSheet
Dim sdate As String
sdate = 6 / 5 / 2018
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
If ws.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
ws.Range("A1:E1").AutoFilter field:=1, Criteria1:="<=" & sdate




End Sub

 

[billandrew]

Thank You Mr Marcelo - This does work - however I'd like to not utilize the worksheet for the desired dates.

 

[Marcelo Branco]

Thank You Mr Marcelo - This does work - however I'd like to not utilize the worksheet for the desired dates.

This worked for me

Sub FilterArrDates()
    Dim ws As Worksheet, v As Variant
    
    v = Array(DateSerial(2018, 6, 5), DateSerial(2018, 6, 14), DateSerial(2018, 5, 5))
    Set ws = ActiveSheet
    With ws
        .AutoFilterMode = False
        .Range("A1:E1").AutoFilter Field:=1, Criteria1:=v, Operator:=xlFilterValues
    End With
End Sub

M.

 

[billandrew]

worked perfectly for me as well.

Thank You very much!