[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:
https://s9.postimg.org/3qfbsejxb/2018-02-28_14_02_14-.png (https://postimages.org/)

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