salve a tutti,
ecco il mio quesito: ho una pivot che ogni mese devo aggiornare con nuovi dati mensili. In pratica devo togliere gli elementi del mese precedente ed inserire gli elementi del nuovo mese nel campo VALORI.
Tolgo la produzione di febbraio 2016 ed inserisco quella di marzo 2016, tolgo il numero di pezzi di pezzi di febbraio 2016 ed inserisco marzo 2016 etc etc
esiste una macro per rendere questa procedura automatica?
ho registrato una macro ma ovviamente il mese prossimo non andrà bene perché dovrò inserire aprile e non marzo
purtroppo non posso condividere il file perché scrivo dall'ufficio e, con tutti gli antivirus attivi, non posso accedere al 90% dei siti (tra cui quelli di condivisione file)
'
ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot1").PivotFields("mar_2015"), "Conteggio di mar_2015", xlCount
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Somma di feb_2015"). _
Orientation = xlHidden
With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields( _
"Conteggio di mar_2015")
.Caption = "Somma di mar_2015"
.Function = xlSum
End With
ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot1").PivotFields("mar_2016"), "Conteggio di mar_2016", xlCount
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("feb_2016").Orientation _
= xlHidden
With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields( _
"Conteggio di mar_2016")
.Caption = "Somma di mar_2016"
.Function = xlSum
End With
End Sub