OK....Now I have it to copy ALL the data, but it's not filtering by date
yet. It looks like it copied the entire section A6:J500 and has kept it in
the clipboard. That's what it pastes in Print!A5 each time now....
Everything!

Suggestions?


"Tom Ogilvy" wrote in message
...
the criteria range should be as a minimun two contiguous cells in the same
column.

When I put the header name for the date column in E1 and ran this

Sub Advanced_Filter()
Range("A6:J500").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("E1:E2"), _
CopyToRange:=Range("Print!A5"), _
Unique:=False
Sheets("Print").Select
Range("A5").Select
End Sub

it worked for me.

--
Regards,
Tom Ogilvy


"Mark" wrote:

I am using the following code to use so when the user enters the filter
criteria (date) into cell E2 and clicks a Command Button, the macro
filters
the data in column A, per the criteria, and copies the corresponding rows
through Row J. It then pastes it into a new page where it can be
printed.

My problem is that column A contains dates from 6/30/07 to present (and
continuing). The code is not properly filtering the data based upon the
criteria in E2. It's copying almost all the data in column A and only
part
of the corresponding rows.

I'd also like it to only copy the cells that contain data, not ALL the
cells
up to 500.

I'm stuck. Can someone help me here? TIA...

Sub Advanced_Filter()
Range("A6:J500").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range("E2"), CopyToRange:=Range("Print!A5"), Unique:=False
Sheets("Print").Select
Range("A5").Select
End Sub