How to loop collect data with month/year condition

[oshi1998]

Hello everyone, Sorry, My English isn't that good. I'm still practicing.
I'm beginner, i need help. i need source code this.

Step 1 : Condition for collect is from black box in picture. user will input date here.
Step 2 : Click Button
Step 3 : Collect data with condition and show only data month/year equal and less than condition but still in same year(condition)

Example : If i input condition = "18/03/2021" , Form below will show data like this.

Name Lastname Date Dept ID
Pajaree Intichai 18/01/2021 KK 880593
Kajai Thong 11/03/2021 KK 880081
Em pama 14/03/2021 KK 880955

Help me please. Thank for help. ?

 

[ER_Neha]

Hello , can You please share, whether the black box is simply a cell?
secondly, your raw data is in sheet1 and you want the data to be collected according to your condition from sheet1 and show in sheet2 or different workbook?

 

[oshi1998]

Hello , can You please share, whether the black box is simply a cell?
secondly, your raw data is in sheet1 and you want the data to be collected according to your condition from sheet1 and show in sheet2 or different workbook?

Sorry for late reply. Yes sir,it's just a cell.
I want results 2 styles
I would like to study and see that how source code work... 2 styles

style 1 , show in current sheet.
style 2, show in new sheet.

All are in current workbook.
Thank for help. ?

 

[ER_Neha]

Please give it a try

Sub mycode()
Dim v As Date
Dim startrow As Byte
Dim lastrow As Byte
Dim i As Byte
Dim j As Byte
j = 4
Application.CutCopyMode = True


startrow = 4
lastrow = Range("c" & Rows.Count).End(xlUp).Row
v = Range("d1").Value
For i = startrow To lastrow
If VBA.Month(v) = VBA.Month(Range("c" & i).Value) Then
    Range("a" & i, "e" & i).Copy
    Range("h" & j).PasteSpecial xlPasteColumnWidths
    Range("h" & j).PasteSpecial xlPasteValuesAndNumberFormats
   
    j = j + 1
End If
Next i
Application.CutCopyMode = False

End Sub