Variables into autofilters

[Zippy]

I know I can input an autofilter such as:

AutoFilterMode = False
.Range("A11").AutoFilter
.Range("A11").AutoFilter Field:=2, Criteria1:=">=35", _
Operator:=xlAnd, Criteria2:="<=45"

But how do I get the two criteria to be read from variables whose values are
input by the user such as a Start_date and an End_date?

TIA.

Zippy.

 

[Ron de Bruin]

Hi Zippy

Tip from this page
http://www.rondebruin.nl/copy5.htm

Or use two cells on your worksheet with the dates
rng.AutoFilter Field:=4, Criteria1:=">=" & CLng(Range("B1").Value), _
Operator:=xlAnd, Criteria2:="<=" & CLng(Range("C1").Value)

 

[Tom Ogilvy]

AutoFilterMode = False
.Range("A11").AutoFilter
.Range("A11").AutoFilter Field:=2, _
Criteria1:=">=" & StartDate, _
Operator:=xlAnd, Criteria2:="<=" & EndDate

 

[Bill Renaud]

Use an InputBox to prompt the user for the start and end dates, then
simply concantenate them into the criteria expressions (the returned
result from the InputBox is a string), like so (using a UserForm would
entail a lot more work, but you could get both values, do checking on
them together, etc.):

Dim strStartDate As String
Dim strEndDate As String

strStartDate = InputBox("Enter the start date:", "AutoFilter this
List")
strEndDate = InputBox("Enter the end date:", "AutoFilter this List")

.Range("A11").AutoFilter Field:=2, _
Criteria1:=">=" & strStartDate, _
Operator:=xlAnd, _
Criteria2:="<=" & strEndDate

You might want to check the values in the above code before calling the
AutoFilter method (valid dates, etc.). Also, I don't think you need the
following lines in your code, but you can test to be sure:

AutoFilterMode = False
.Range("A11").AutoFilter

 

[Zippy]

That worked a treat. Thanks guys.

Zippy