excel vba sort by date

hi everyone,

i'm trying to sort table by Date.
the code is simple but i don'd get the required result:

Sub Macro1()
Dim D1 As Date
D1 = InputBox("Insert date in format dd/mm/yy") 
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$F$7").AutoFilter Field:=1, Criteria1:="<D1", Operator:=xlOr, Criteria1:="=D1"

'D1 = 01/08/2017
'the table:
header
01/07/2018
01/12/2017
01/08/2017
01/05/2017
01/04/2017
01/01/2017

what i'm doing worng?
thanks.

1. Do not give variables names that look like cell addresses

Inputboxes return character strings to variables, not dates (numbers); so, lookup the CDate function:

Dim dte As Date
dte = CDate(InputBox("Insert date in format dd/mm/yy"))

For the future, code tags are required for all code you post.

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

Try using CLNG vba function instead ..
If it doesn't work please upload sample of your workbook

Try this code

Sub Test()
    Dim myDate As Date
    myDate = InputBox("Insert Date In Format dd/mm/yyyy")
    myDate = CDate(DateSerial(Year(myDate), Month(myDate), Day(myDate)))
    
    With ActiveSheet
        .AutoFilterMode = False
        .Range("A1:F7").AutoFilter Field:=1, Criteria1:="=" & myDate, Operator:=xlAnd
    End With
End Sub

You're welcome Niss. Glad I can offer some help for you
Please mark the thread as solved
Regards

Check your VBA references on the machine that works and then make sure that they are the same for the machine that does not work.