[VBA] - Criterio per Array in filtro

[lucausa75]

Ciao ragazzi,

questo a seguire

ActiveSheet.ListObjects("MiaTabella").Range.AutoFilter Field:=17, Operator:=xlFilterValues, Criteria2:=Array(2, "2/1/2018", 2, "2/5/2018", 2, "2/7/2018")

è il codice all'interno di un file excel tramite il quale applico il filtro alla colonna DataChiusura relativamente alle seguenti date "2/1/2018", "2/5/2018", "2/7/2018" che appaiono regolarmente selezionate all'interno del filtro di excel:


Desideravo capire come posso fare per passare il contenuto dell'array

2, "2/1/2018", 2, "2/5/2018", 2, "2/7/2018"

sotto forma di una variabile dinamica in modo da avere ancora le stesse caselline del filtro selezionate

Grazie

[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