Still need help with auto filter

Posted by Tyler Hart on August 23, 2001 6:33 AM

This is what I have and need a macro to do this:
A1 = Any start date inputed by operator
A2 = Any stop date inputed by operator

Then filter column "B" with the criteria:
>=Range("a1") &LT;=Range("a2")

Thanks

Posted by Barrie Davidson on August 23, 2001 11:45 AM

The following macro will filter a range named "Data_Table" where the first field in the table is >=A1 and &LT;=A2.

Sub Filter_Macro()
' Macro written by Barrie Davidson
Dim LowerCriteria As String
Dim UpperCriteria As String

LowerCriteria = ">=" & Format(Range("A1").Value, "mmm dd, yyyy")
UpperCriteria = "&LT;=" & Format(Range("A2").Value, "mmm dd, yyyy")
Range("Data_Table").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=LowerCriteria, Operator:= _
xlAnd, Criteria2:=UpperCriteria
End Sub

Hope this is what you need.

Barrie