Excel Forum

Code: Select all

Public Sub MyFilter()
    Dim lngStart As Date, lngEnd As Date
    lngStart = Range("K2").Value
    lngEnd = Range("K3").Value
    Sheet12.Range("A1:A1000").AutoFilter field:=1, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
End Sub

Code: Select all

'Other...
    Sheet12.Range("Table_Fee_schdule").AutoFilter Field:=1, _
        Criteria1:=">=" & CDbl(lngStart), _
        Operator:=xlAnd, _
        Criteria2:="<=" & CDbl(lngEnd)
'Other...