Risultati da 1 a 21 di 21

Discussione: Aggiornamento automatico Pivot



  1. #1
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Aggiornamento automatico Pivot

    Buongiorno a tutti,
    ho la necessità di aggiornare all'interno di uno stesso file diverse pivot.
    Nell'aggiornare le pivot, ogni mese devo cambiare il rif. del mese nel filtro rapporto.
    Ho provato con qualche comando copiato qua e la (o con il registratore di macro) ma poi ho desistito perchè non sempre funzionava: alcune volte inseriva lui la data altre dovevo cmq forzare la cosa e farlo a mano non dandomi la certezza empirica della cosa.
    Qualcuno ha qualche consiglio da darmi o il comando certo?
    Vorrei poter inserire un pulsante e comandare quindi le pivot prendendo la data da una certa cella (p.es. A1).
    grazie come sempre.
    ciao
    ale

  2. #2
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Ciao gentilmente potresti postare un fil senza dati sensibili con il risultato che vorresti ottenere così si riesce a capire meglio dove arrivare ....

    Grazie

  3. #3
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    ciao,
    vorrei con un pulsante (o al variare di F1) che le cinque pivot prendessero la data F1, senza dover ogni volta andare su ogni singola pivot e modificare ogni singolo filtro rapporto inserendoci la data.
    ciao
    ale
    File Allegati File Allegati

  4. #4
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2026
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    256
    Mi Piace dati
    39

    Re: Aggiornamento automatico Pivot

    Ciao Alessandro

    Premetto che di tabelle pivot non ne capisco nulla.

    La prima cosa che farei è registrare una macro ricreando una tabella pivot identica ad una delle tue.

    Dal codice generato non dovrebbe essere difficile capire qual è la parte che fa riferimento alla cella F1 che dovrebbe essere riportata come valore statico.

    A quel punto sostituirei in quella parte il valore statico con uno dinamico del tipo

    Codice: 
    Range("F1").Value
    e poi con un ciclo farei il refresh di tutte le pivot

    Il codice dovrebbe essere un qualcosa del genere

    Codice: 
    Dim pvttbl As PivotTable
    For Each pvttbl In ActiveSheet
           .....codice
           pvttbl.Refresh
    Next pvttbl
    Prova a registrare una macro (se sapessi creare una pivot lo farei io) e prova a postare il codice qua.

    Perdona se ho detto cavolate sperando che possa intervenire qualcun'altro più esperto.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  5. #5
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    ciao alfredo,
    e grazie per l'intervento.
    ho provato con il registratore ma temo non sia stato fortunato...
    questo quello che è uscito
    Codice: 
    Sub Macro26()   
        ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("data").CurrentPage = _
            "29/02/2016"
        ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("data").CurrentPage = _
            "29/02/2016"
        ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("data").CurrentPage = _
            "29/02/2016"
        ActiveSheet.PivotTables("Tabella_pivot4").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot4").PivotFields("data").CurrentPage = _
            "29/02/2016"
        ActiveSheet.PivotTables("Tabella_pivot5").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot5").PivotFields("data").CurrentPage = _
            "29/02/2016"
    
    
    Dim pvttbl As PivotTable
    For Each pvttbl In ActiveSheet
           pvttbl.Refresh
    Next pvttbl
        
    '    ActiveSheet.PivotTables("Tabella_pivot1").PivotCache.Refresh
    '    ActiveSheet.PivotTables("Tabella_pivot2").PivotCache.Refresh
    '    ActiveSheet.PivotTables("Tabella_pivot3").PivotCache.Refresh
    '    ActiveSheet.PivotTables("Tabella_pivot4").PivotCache.Refresh
    '    ActiveSheet.PivotTables("Tabella_pivot5").PivotCache.Refresh
    End Sub
    come vedi ho provato anche a sostituire il mio refresh con il tuo for...ma mi si blocca a monte con il msg
    "Errore definito dall'applicazione o dall'oggetto" in
    Codice: 
        ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("data").CurrentPage = _
            "29/02/2016"
    Allego cmq il file.
    ciao
    ale
    File Allegati File Allegati

  6. #6
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2026
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    256
    Mi Piace dati
    39

    Re: Aggiornamento automatico Pivot

    Alessandro mi spiace ma sto provando e riprovando non ne vengo fuori (probabilmente a causa della mia totale ignoranza sulle pivot e del loro vba).

    La cosa strana è che ho provato a registrare una macro cambiando la data su una pivot ed è venuto fuori questo codice

    Codice: 
    Sub Macro1()
        ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("data").CurrentPage = _
            "2/29/2016"
    End Sub
    A parte il fatto che mi chiedo per quale motivo mi ha invertito il mese con il giorno ma soprattutto se vado a rieseguire la stessa macro mi dà il medesimo errore che ricevi tu.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  7. #7
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Alessandro mi spiace ma sto provando e riprovando non ne vengo fuori (probabilmente a causa della mia totale ignoranza sulle pivot e del loro vba).

    La cosa strana è che ho provato a registrare una macro cambiando la data su una pivot ed è venuto fuori questo codice

    Codice: 
    Sub Macro1()
        ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("data").ClearAllFilters
        ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("data").CurrentPage = _
            "2/29/2016"
    End Sub
    A parte il fatto che mi chiedo per quale motivo mi ha invertito il mese con il giorno ma soprattutto se vado a rieseguire la stessa macro mi dà il medesimo errore che ricevi tu.
    vabè dai faccio altre prove...aspettiamo magari qualcuno che ci è già passato.
    grazie cmq.
    ciao
    ale

  8. #8
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    buongiorno a tutti
    incuriosito dall'argomento ho provato a cercare

    ecco il risultato preciso che l'ho trovato su un altro forum

    l'imput principale era di un inglese poi la versione italiana e di Canapone ....

    filtra in I1
    File Allegati File Allegati
    Ultima modifica fatta da:mb63; 07/10/16 alle 12:25 Motivo: precisazione

  9. #9
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    2026
    Versione Office
    2007 - 2013
    Mi Piace ricevuti
    256
    Mi Piace dati
    39

    Re: Aggiornamento automatico Pivot

    Ciao mb63

    Non mi pare che la tua macro faccia quello che ha chiesto Alessandro

    Lui chiedeva l'aggiornamento delle pivot che sono sul foglio1 e non l'aggiunta di un altro foglio.

    Poi per far funzionare la macro occorre prima eliminare il foglio2 e lanciarla ma in questo caso non mi pare abbia preso il riferimento della data specifica.

    Se provo a rilanciare nuovamente la macro va in debug.

    Me è meglio che sul tutto intervenga Alessandro.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"
    Cit. Berna11: "Se ti piace la risposta di qualcuno, oltre a ringraziarlo, puoi cliccare su "Mi Piace" in basso a sinistra del loro messaggio."

  10. #10
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Ciao adesso non sono in ufficio
    Leggendo il post 3 avevo capito che desiderasse cambiare la data del filtro in una pivot e questa si aggiornare in tutta quelle presenti nel foglio
    Aspettiamo nessuno

  11. #11
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    Eccomi...
    il post di mb63 non è poi così male...a me non va in errore.
    C'è quel foglio2 che cmq se si toglie non inficia...
    Ho tolto anche la macro e ho fatto lavorare solo Workbook_SheetPivotTableUpdate e va...
    Da quel che ho capito basta cambiare la data su una qualunque delle pivot e tutte le altre acquisiscono l'input.
    E vi devo dire che non è niente male...
    ora provo ad adattare il tutto ad un file vero...ma per il momento è un'ottima soluzione.
    ciao
    ale

  12. #12
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    l'ho appena provata ma temo che sbaglio in qualcosa.
    Da quel che ho capito con quei for si "spazzola" tutti i fogli e in ogni foglio tutte le pivot che trova.
    Con quel currentpage lo si indirizza...e poi setta tutte le restanti pivot con la stessa discriminante.
    Solo che non mi aggiorna le altre pivot...forse devo settare anche altre cose...
    devo cambiare altro oltre quel .CurrentPage = "(h1)"?
    faccio altre prove.
    ciao
    ale

  13. #13
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Ciao Alessandro e ciao a Alfredo
    mi scuso co voi per avervi mandato il file senza togliere il modulo che stavo provando in precedenza e senza togliere il foglio2
    questa private sub lavora su tutte le pivot il rif H1 indica la parola Data che è il campo della tabella pivot dov'è applicato il filtro
    Alesandro se riesci fai altre prove per far funzionare la procedura solo sul foglio1

    buon pomeriggio

  14. #14
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    se servisse a qualcuno
    Codice: 
    Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) Dim ptTable As PivotTable, ptItem As PivotItem, vFields As Variant, boolMulti As Boolean, lngField As Long
     Dim ws As Worksheet
     On Error GoTo ExitPoint
     vFields = Array("data")
     Application.EnableEvents = False
     For Each ws In ThisWorkbook.Worksheets
     For Each ptTable In ws.PivotTables
     If ptTable <> Target Or ws.Name <> Sh.Name Then
     ptTable.ManualUpdate = True
     For lngField = LBound(vFields) To UBound(vFields) Step 1
     boolMulti = Target.PivotFields(vFields(lngField)).EnableMultiplePageItems
     With ptTable.PivotFields(vFields(lngField))
     .ClearAllFilters
     Select Case boolMulti
     Case False
     .CurrentPage = Target.PivotFields(vFields(lngField)).CurrentPage.Value
     Case True
     .CurrentPage = "(h1)"
     For Each ptItem In Target.PivotFields(vFields(lngField)).PivotItems
     .PivotItems(ptItem.Name).Visible = ptItem.Visible
     Next ptItem
     .EnableMultiplePageItems = boolMulti
     End Select
     End With
     Next lngField
     ptTable.ManualUpdate = False
     End If
     Next ptTable
     Next ws
    ExitPoint:
     Application.EnableEvents = True
     End Sub
    questa sub agisce su tutte le pivot di tutti i fogli

    Codice: 
     For Each ws In ThisWorkbook.Worksheets
    come indicato in questa riga

  15. #15
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Ho provato a vedere se con il mio vba maccheronico riuscivo a fare qualcosa


    Codice: 
    Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) Dim ptTable As PivotTable, ptItem As PivotItem, vFields As Variant, boolMulti As Boolean, lngField As Long
     Dim ws As Worksheet
     On Error GoTo ExitPoint
     vFields = Array("data")
     Application.EnableEvents = False
     Set ws = ActiveWorkbook.Sheets(1) 'aggiuntomb
     nome = ws.Name                    ' aggiunto mb
     Sheets(nome).Select               ' aggiunto mb
     'For Each ws In ThisWorkbook.Worksheets                     ' tolto per attivare solo su foglio1
     For Each ptTable In ws.PivotTables
     If ptTable <> Target Or ws.Name <> Sh.Name Then
     ptTable.ManualUpdate = True
     For lngField = LBound(vFields) To UBound(vFields) Step 1
     boolMulti = Target.PivotFields(vFields(lngField)).EnableMultiplePageItems
     With ptTable.PivotFields(vFields(lngField))
     .ClearAllFilters
     Select Case boolMulti
     Case False
     .CurrentPage = Target.PivotFields(vFields(lngField)).CurrentPage.Value
     Case True
     .CurrentPage = "(h1)"
     For Each ptItem In Target.PivotFields(vFields(lngField)).PivotItems
     .PivotItems(ptItem.Name).Visible = ptItem.Visible
     Next ptItem
     .EnableMultiplePageItems = boolMulti
     End Select
     End With
     Next lngField
     ptTable.ManualUpdate = False
     End If
     Next ptTable
     'Next ws   ' tolto perchè la sub deve solo lavorare sul 1 foglio
    ExitPoint:
     Application.EnableEvents = True
     Set we = Nothing  ' aggiunto per chiudere il set
     End Sub
    Per favore provate e correggete pure le stupidaggini che ho scritto

    in questo caso aggiorna solo le pivot nel foglio1 (o almeno così mi sembra che funzioni )
    grazie
    File Allegati File Allegati

  16. #16
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    Ciao mb63,
    ho appena provato questa tua ultima v3 ma forse sbaglio io in qualcosa...
    il tuo file va...ma se provo a testarlo sul mio...niente
    ho modificato solo
    Codice: 
    .CurrentPage = "(d7)"
    e ho anche provato cambiando il nome foglio in foglio1...ma niente...

  17. #17
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Partendo dal presupposto che non sono un grande esperto se per te non è un problema puoi postare il file che usi

    Ciao

  18. #18
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    Citazione Originariamente Scritto da mb63 Visualizza Messaggio
    Partendo dal presupposto che non sono un grande esperto se per te non è un problema puoi postare il file che usi

    Ciao
    tutto tuo...spero di aver tolto tutto...
    File Allegati File Allegati

  19. #19
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Ciao ho fatto un cambio "al volo" prima di riprendere la mia attività

    cambia

    Codice: 
    vFields = Array("data")
    con
    Codice: 
    vFields = Array("mese")
    mi sembra che funzioni

    attenzione che la sub allegata faceva riferimento ad un solo filtro mentre vedo che tu ne usi 2 non so se questo crea problemi

    ciao

  20. #20
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    44
    Messaggi
    485
    Versione Office
    2010 64 bit
    Mi Piace ricevuti
    72
    Mi Piace dati
    37

    Re: Aggiornamento automatico Pivot

    Citazione Originariamente Scritto da mb63 Visualizza Messaggio
    Ciao ho fatto un cambio "al volo" prima di riprendere la mia attività

    cambia

    Codice: 
    vFields = Array("data")
    con
    Codice: 
    vFields = Array("mese")
    mi sembra che funzioni

    attenzione che la sub allegata faceva riferimento ad un solo filtro mentre vedo che tu ne usi 2 non so se questo crea problemi

    ciao
    e invece è perfetta...e non da alcun errore la presenza di altri filtri.
    grazie grazie davvero.
    ciao
    ale

  21. #21
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    53
    Messaggi
    241
    Versione Office
    2007/10/13
    Mi Piace ricevuti
    7
    Mi Piace dati
    44

    Re: Aggiornamento automatico Pivot

    Ciao Alessandro

    io ringrazio Te e tutti i Guru del forum perchè attraverso le richieste e le soluzioni proposte imparo a fare cose molto utili che fino a qualche anno fa non sapevo neanche da dove cominciare

    Diciamo che per essere migliori dovrei impegnarmi a "studiare" un pò di più ma dovrei anche avere molto tempo ......

    Se non hai altre esigenze segnalalo così i gestori del forum inseriranno rilsolto

    Alla prossima

Discussioni Simili

  1. [Risolto] Aggiornamento dati da tabella Pivot
    Di march91 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 07/10/16, 19:06
  2. problemi aggiornamento pivot
    Di ROBYVMG nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 17/09/16, 16:03
  3. Aggiornamento tabella pivot
    Di jonathan nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 25/08/16, 10:36
  4. Problema aggiornamento tabella pivot
    Di Brando nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 01/06/16, 00:45
  5. aggiornamento tabella pivot
    Di Stefano nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 07/11/15, 13:39

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •