filter through command button using textbox values

Hello experts!!!!!!

I am new to vba and I want to try out filtering data.

I have columm which contains almost 40000 rows. basically it has Dates and months.

I want two TextBox and three command Buttons to filter my data. 1st to filter according to month and then 2nd to filter according to date. 3rd button to get all data back.


I can do it by using filter but i want to that by command.

I have tried to filter according to month but wasn't sucessful.

the code I used :

Private Sub CommandButton21_Click()

' filter data
'

'
Dim i As Date
i = TextBox21.Value
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFilter
Range("A5").Select
ActiveSheet.Range("$A$5:$A$35041").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "i")
End Sub


Please help me out!!!!!

here is a sample file

first of all thanks for respponding.

I have a data for all 365 days at interval of 15 min time. So at first I want to get data for a particular month and then from that month I want data for any date. As you can see in file there are many entries with similar date. it is just a sample sir as I can not share full data. I hope this clarify your query.

no Problem sir!!!!
Bis später

thank you very much sir!!!!!

It was a great help.