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

 

[fluxcapacitr609]

If im doing it right it looks like erow=2 everytime

 

[fluxcapacitr609]

If I am doing it right, it looks like erow=2 everytime

 

[fluxcapacitr609]

Yes it starts at 0 then jumps to 2 and stays there.

 

[Fluff]

Because you're now copying to col E rather than A, there is nothing in col A, hence erow doesn't change try

erow = Sheet4.Cells(Rows.Count, [COLOR=#ff0000]5[/COLOR]).End(xlUp).Offset(1, 0).Row

 

[fluxcapacitr609]

Amazing, that was it! Thank you.

 

[Fluff]

Glad to help & thanks for the feedback