Hello,

Could someone please take a look at my VBA code and advise how to mak
it work correctly:

Sub PrintOutByMonth()
'
'PrintOutByMonth Macro
'
'
'
Dim FirstDate As Date
Dim LastDate As Date

Application.ScreenUpdating = False

MsgBox ("You will be prompted to enter in a First and Last Date."
Chr(10) & Chr(10) & "This program will print out all records betwee
the two dates including the two dates you enter." & Chr(10) & Chr(10)
"For example, if you want all the records for January 2003 you woul
enter First Date of 01 Jan 2003 and Last Date of 31 Jan 2003")

FirstDate = Application.InputBox("Please Enter the First Date in D
MMM YYYY format: ", "Enter First Date")

LastDate = Application.InputBox("Please Enter the Last Date in D
MMM YYYY format: ", "Enter Last Date")

Selection.AutoFilter Field:=5, Criteria1:="" = " & FirstDate &""
Operator:= xlAnd , Criteria2:="" <= " & LastDate & ""

End Sub

The last line starting with the word Selection is not workin
properly.

It filters all records instead of the records between the first an
last dates.

Any help would be greatly appreciated.

Kind regards,

Chris. :

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

I posted an example in response to your posting this morning:

http://groups.google.com/groups?&thr...resXSPA M.com

longbow wrote:
Hello,

Could someone please take a look at my VBA code and advise how to make
it work correctly:

Sub PrintOutByMonth()
'
'PrintOutByMonth Macro
'
'
'
Dim FirstDate As Date
Dim LastDate As Date

Application.ScreenUpdating = False

MsgBox ("You will be prompted to enter in a First and Last Date." &
Chr(10) & Chr(10) & "This program will print out all records between
the two dates including the two dates you enter." & Chr(10) & Chr(10) &
"For example, if you want all the records for January 2003 you would
enter First Date of 01 Jan 2003 and Last Date of 31 Jan 2003")

FirstDate = Application.InputBox("Please Enter the First Date in DD
MMM YYYY format: ", "Enter First Date")

LastDate = Application.InputBox("Please Enter the Last Date in DD
MMM YYYY format: ", "Enter Last Date")

Selection.AutoFilter Field:=5, Criteria1:="" = " & FirstDate &"",
Operator:= xlAnd , Criteria2:="" <= " & LastDate & ""

End Sub

The last line starting with the word Selection is not working
properly.

It filters all records instead of the records between the first and
last dates.

Any help would be greatly appreciated.

Kind regards,

Chris. :)


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html

Selection.AutoFilter Field:=1, Criteria1:="=" & FistDate
Operator:=xlAnd _
, Criteria2:="<=" & LastDat

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

Thankyou Mudraker for you VBA solution, it works a treat, muc
appreciated.

Cheers,

Chris. :

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com