Thread: AutoFilter
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Debra Dalgleish Debra Dalgleish is offline
external usenet poster
 
Posts: 2,979
Default AutoFilter

You can use input boxes for the start and end dates:

'=================
Dim strA As String
Dim strB As String
strA = Application.InputBox("Start Date")
strB = Application.InputBox("End Date")

Selection.AutoFilter Field:=3, Criteria1:="=" & strA, _
Operator:=xlAnd, Criteria2:="<=" & strB
'==============================

Or, create dropdown list of dates on the worksheet using data validation:

http://www.contextures.com/xlDataVal01.html

Format these dates the same as the dates in column C.

The user will select a start and end date from the dropdown lists, then
run the AutoFilter macro:

'==================================
Selection.AutoFilter Field:=1, Criteria1:="=" & Range("K1").Value, _
Operator:=xlAnd, Criteria2:="<=" & Range("L1").Value
'==================================

longbow wrote:
Hello,

Could someone please advise on how I can accomplish the following
task:

I wish to create a macro that asks the user for two dates.

For example: The user may wish to AutoFilter all the records in the
spreadsheet that have a dates between 01 Jul 2003 and 31 Jul 2003.

Selection.AutoFilter Field:=3, Criteria1:="=01JUL03", Operator:=xlAnd,
_
Criteria2:="<=31JUL03"

I do not know how to get user input into the above VBA code.

I'd like two input boxes, one for the start date and one for the end
date.

Column 3 of the spreadsheet has a heading called Date Demanded.

Any help with this would be greatly appreciated.

Thanks,

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