search data between two dates by code

[abdelfattah]

hello
i do a simple code but it gives me error to search data betwwen dates the sheet1 contains data from a7:d and i would search into sheet2 first date = c2 end date= c3 and gives me data from sheet1 to sheet2 in this range (a2:d7) i hope anybody fixing my code i would the result in image 2

Sub test()
    Dim i As Long
    Dim Startdate As Date
    Dim Enddate As Date
    LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
    Startdate = SHEET2.Range("c2").Value
    Enddate = SHEET2.Range("c3").Value
    
    For i = 7 To LASTROW
      If sheet1.Range("A7:d" & i).Value >= Startdate And sheet1.Range("A7:d" & i).Value <= Enddate Then
        sheet1.Range("a7:d" & i + 1).Value = sheet1.Range("a7:d" & i).Value
      End If
    Next i
End Sub

 

[mse330]

How about the below code ?

Sub FilterData()

Dim startDate As Long, endDate As Long
startDate = Sheet2.Range("C2").Value
endDate = Sheet2.Range("C3").Value

With Sheet1.UsedRange
    .AutoFilter 1, ">=" & startDate, xlAnd, "<= " & endDate
    .SpecialCells(xlCellTypeVisible).Copy Sheet2.[A6]
    .AutoFilter
End With

End Sub

 

[mse330]

I think you need to add one more line before the "with" line to clear any data from previous filters used

Sheet2.Range("A6").CurrentRegion.Clear

 

[abdelfattah]

your code works meanwhile i was writing about the problem previous data it stays when i search a new data but it reached me your alert and you solve it post #3
thank you so much

 

[mse330]

You are most welcome … Stay safe