Snasui Excel Forum

Code: Select all

Public Sub Filter()
    Dim lngStart As Long, lngEnd As Long, lngname As String
    lngStart = Range("L1").Value
    lngEnd = Range("L2").Value 
    lngname = Range("M3").Value
    
    Range("datena").AutoFilter field:=1, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
        
End Sub