Condividi:        

AGGIORNAMENTO AUTOMATICO PIVOT

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

AGGIORNAMENTO AUTOMATICO PIVOT

Postdi gabally » 31/03/16 15:33

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
gabally
Utente Junior
 
Post: 10
Iscritto il: 25/11/15 17:17

Sponsor
 

Re: AGGIORNAMENTO AUTOMATICO PIVOT

Postdi Anthony47 » 02/04/16 19:01

Non ho capito la tua situazione di partenza...
Hai un file con in Foglio1 una tabella dati (es i dati di Marzo); in Foglio2 hai preparato una tabella pivot che "macina" i dati di Foglio1.
Oggi ricevi i dati di Aprile (che hanno lo stesso aspetto di quelli inseriti in Foglio1, vero?) e vuoi sapere come procedere per avere una tabella pivot aggiornata?

Il file del mese ha un nome che cambia (e come?), o ogni mese ricevi un file sempre con lo stesso nome (che semplificherebbe le cose)?

Ciao, ti aspettiamo con questi chiarimenti.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: AGGIORNAMENTO AUTOMATICO PIVOT

Postdi gabally » 05/04/16 14:18

chiedo scusa per la scarsa chiarezza ma senza file in allegato diventa difficile da spiegare, allora:

Ho un foglio (nominato DB) che utilizzo come DB (ma va?) e che all'inizio di ogni mese aggiorno con nuovi dati di produzione del mese appena trascorso.
Collegata a quel DB (in un altro foglio nominato PIVOT) c'è una pivot che "macina" i dati dal DB.

faccio un copia incolla della pivot:
Codice: Seleziona tutto
   Dati                    BARI                     BOLOGNA            MILANO 
Somma di mar_2016         5.708.892                8.082.397          14.234.258
Somma di mar_2015         5.063.446                7.693.595          13.384.010
Somma di tot_2016        14.930.709               23.122.769          40.444.614
Somma di parz_2015       15.160.084               19.692.818          33.548.473
Somma di T_12_M          53.674.036               83.866.930         139.081.852
Somma di tot_2015        53.903.411               80.436.979         132.185.710


i dati della tabella sono tutti nel campo Valori della pivot ed ogni mese devo togliere il mese vecchio (ed il suo equivalente dell'anno -1) e sostituirlo con il mese appena trascorso.

in pratica nel DB ci sono 12 colonne (una per ogni mese) per il 2016 e 12 per il 2015.
Aggiornando il DB una volta al mese, la colonna del mese corrispondente si "movimenta" e non è più vuota. Le colonne dei mesi futuri (ovviamente) rimangono vuote.

faccio un copia incolla di una parte del DB:
Codice: Seleziona tutto
gen_2016   feb_2016   mar_2016   apr_2016    mag_2016    giu_2016    lug_2016
                       10918,00            
24910,00
27656,10   9621,00     13640,98            
 1385,00    850,00
           1940,50     4950,00


io vorrei "macrare" la parte in cui tolgo febbraio dal campo valori della pivot ed inserisco marzo

Chiedo nuovamente scusa per la scarsa chiarezza espositiva.

PS utilizzo Excel 2010
gabally
Utente Junior
 
Post: 10
Iscritto il: 25/11/15 17:17

Re: AGGIORNAMENTO AUTOMATICO PIVOT

Postdi Anthony47 » 05/04/16 22:59

Non so se ho tradotto correttamente le tabelle che tu avevi inserito (vedi tuo messaggio precedente).

Comunque temo che senza un file con la struttura dati esatta e popolato un tot di record, e la tabella pivot con la sua esatta struttura, non si arrivera' a niente di concreto.

Mi posso limitare a suggerire:
1) con istruzioni come queste ti calcoli stringhe che hanno la stessa struttura di quelle presenti nella macro registrata, solo che sono basate sulla data corrente:
Codice: Seleziona tutto
meseM1_anno0 = Format(DateSerial(Year(Now), Month(Now) - 1, 1), "mmm_yyyy")   ' mar_2016
meseM2_anno0 = Format(DateSerial(Year(Now), Month(Now) - 2, 1), "mmm_yyyy")   ' feb_2016
meseM1_annoM1 = Format(DateSerial(Year(Now) - 1, Month(Now) - 1, 1), "mmm_yyyy") ' mar_2015
'altre variabili

2) Poi usi queste variabili al posto delle stringhe nella tua macro registrata; esempio
ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot1").PivotFields("mar_2015"), "Conteggio di mar_2015", xlCount
diventa
Codice: Seleziona tutto
ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot1").PivotFields(meseM1_annoM1), "Conteggio di " & meseM1_annoM1, xlCount

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: AGGIORNAMENTO AUTOMATICO PIVOT

Postdi gabally » 06/04/16 14:57

Grazie cmq

cercherò di trovare il modo di allegare il file (magari da casa) perché così non riesco a capirci molto
gabally
Utente Junior
 
Post: 10
Iscritto il: 25/11/15 17:17


Torna a Applicazioni Office Windows


Topic correlati a "AGGIORNAMENTO AUTOMATICO PIVOT":


Chi c’è in linea

Visitano il forum: Nessuno e 72 ospiti