Date parameter search function

Hi macquhele:

This is set up for dates in Column A And Output on sheet 1 in the same book:

Sub SoldbyDate(BDate As Date, EDate As Date)
Dim SDate As Date, D As Range, r As Long
r = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).row
For Each D In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).row)
SDate = D
If SDate >= BDate And SDate <= EDate Then

D.EntireRow.Copy Worksheets("Sheet1").Range("A" & r): r = r + 1
End If: Next:End Sub

And you invoke it like this:

Call SoldbyDate(#6/15/2012#, #10/15/2012#)

Hi macquhele,

I couldn't get it to work by clicking the Rectangle - although i think I've done it before. This version will run after you change the entry in H13! See if it will do for you:Biscuits().xlsm

You're welcome!