Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Buon pomeriggio.
Con la seguente macro sono riuscito ad ottenere i filtri richiesti.
Il problema è che mi filtra solo l'anno 2022 e non gli altri indicati prima.
Sub Macro1()
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=1, Criteria1:= \_
Range("AH2").Value
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=18, Criteria1:=Array \_
("ST01", "ST02", "ST03"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=29, Criteria1:= \_
"2020"
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=30, Criteria1:=Array \_
("02", "03", "04", "05"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=29, Criteria1:= _
"2021"
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=30, Criteria1:=Array \_
("02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=29, Criteria1:= \_
"2022"
ActiveSheet.Range("$A$1:$AE$458941").AutoFilter Field:=30, Criteria1:=Array \_
("02", "03", "04", "05"), Operator:=xlFilterValues
End Sub
Come ottimizzare questa Macro per filtrare le annualità ed i mesi ivi riportati. ( sarebbe opportuno farlo tramite routine Vba più affidabile, magari prendendo i riferimenti dei filtri da determinate celle cosi come ho fatto con il valore di AH2.
Ciao, Nicola.