[lucausa75]

Salve ragazzi,

ci sono riuscito ed eccovi il codice semmai possa essere di aiuto a qualcuno:

Sub ApplicaFiltroDate()
    Dim MyArray(1 To 6) As Variant
    Dim MyValue As Variant
    Dim i As Integer
    
    'MyArray = Array(2, "5/5/2014", 2, "5/9/2014", 2, "5/15/2014")
    For i = 1 To 6
        If i Mod 2 = 0 Then
            Select Case i
                Case 2
                    MyValue = "5/5/2014"
                Case 4
                    MyValue = "5/9/2014"
                Case 6
                    MyValue = "5/15/2014"
            End Select
        Else
            MyValue = 2
        End If
        MyArray(i) = MyValue
    Next i
    
    ActiveSheet.Range("$A$1:$H$1612").AutoFilter Field:=6, Operator:=xlFilterValues, Criteria2:=MyArray
End Sub