Extracting data based on Date.

[fluxcapacitr609]

Im trying to to extract data and push it to another sheet based on date. The code I have works but only does column A and B when C and D has information in it also. Any help would be greatly appreciated thank you.

Sub extractDataBasedOnDate()
Dim lastrow As Long
Dim erow As Long
Dim i As Long


lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Sheet2.Select
Range("A1").Select


For i = 2 To lastrow


mydate = Cells(i, 1)
If mydate >= "2018-02-01" And mydate <= "2018-02-29" Then
erow = Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Range(Cells(i, 1), Cells(i, 2)).Copy Destination:=Sheet4.Cells(erow, 1)
End If

Next i



End Sub

 

[Fluff]

Hi & welcome to MrExcel
If you want to copy cols A:D then try

Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=Sheet4.Cells(erow, 1)

 

[fluxcapacitr609]

That was it!!! I was trying (Cells(i, 1), cells(i, 2), cells (i, 3), cells(i , 4)) So happy!! Thank You!!

 

[Fluff]

Glad to help & thanks for the feedback

 

[fluxcapacitr609]

Everything is working great, I was wondering how to change the destination to "E1" or any other cells in the worksheet.

 

[Fluff]

To copy to E1 use

Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=Sheet4.Range("E1")

 

[fluxcapacitr609]

I did try it and it works. It starts at "E1", but it only copies one row instead of all of them.

 

[Fluff]

It's actually copying all the rows, just overwriting them.
Try

Range(Cells(i, 1), Cells(i, 4)).Copy Destination:=Sheet4.Range("E"&erow)

 

[fluxcapacitr609]

Hmmmm Same results.

 

[Fluff]

Step through the code using F8 & check that the value of erow is changing