Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

AutoFilter

4 views
Skip to first unread message

longbow

unread,
Nov 22, 2003, 6:08:47 AM11/22/03
to

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/

Don Guillett

unread,
Nov 22, 2003, 8:02:39 AM11/22/03
to
Easy. Why not just look at vbe help index for INPUT BOX
then try
x=inputbox(etc

>> Selection.AutoFilter Field:=3, Criteria1:=">=01JUL03", Operator:=xlAnd,
Selection.AutoFilter Field:=3, Criteria1:="">=" & x& "", Operator:=xlAnd,

--
Don Guillett
SalesAid Software
don...@281.com
"longbow" <longbo...@excelforum-nospam.com> wrote in message
news:longbo...@excelforum-nospam.com...

Debra Dalgleish

unread,
Nov 22, 2003, 9:14:17 AM11/22/03
to
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
'==================================


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

longbow

unread,
Nov 22, 2003, 5:38:40 PM11/22/03
to

Thankyou Don for you help, much appreciated.

Kind regards,

Don Guillett

unread,
Nov 22, 2003, 6:04:06 PM11/22/03
to
glad to help

--
Don Guillett
SalesAid Software
don...@281.com
"longbow" <longbo...@excelforum-nospam.com> wrote in message
news:longbo...@excelforum-nospam.com...
>

0 new messages