Bom dia!
Use a pesquisa!!
Tente assim....
Assumindo que tem data em C5 e D5
Public Sub AleVBA_13855()
Dim lngStart As Long, lngEnd As Long
lngStart = Range("C5").Value
lngEnd = Range("D5").Value
Range("B6:O5000").Autofilter field:=1, _
Criteria1:=">=" & lngStart, _
Operator:=xlAnd, _
Criteria2:="<=" & lngEnd
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/12/2014 3:47 pm