
Sub Ricerca()
If Worksheets("Case").FilterMode = True Then
Worksheets("Case").ShowAllData
End If
Dim Crituno
Dim Critdue
Crituno = Range("G2")
If Crituno = "" Then Exit Sub
Critdue = Range("G5")
If Critdue = "" Then Exit Sub
Range("A7").Select
Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(Crituno, "mm/dd/yy"), Operator:= _
xlAnd, Criteria2:="<=" & Format(Critdue, "mm/dd/yy")
End Sub |
