Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per Pivot dinamica...

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

Macro per Pivot dinamica...

Postdi Bruno_81 » 07/11/14 12:29

Ciao a tutti,
ho registrato una Macro per fare una tabella Pivot
Questo il risultato

Sheets("Chat").Select
Range("A1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Chat!R1C1:R11C3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Chat!R2C15", TableName:="Tabella_pivot1", _
DefaultVersion:=xlPivotTableVersion12

Ora nel codice mi appare SourceData:= "Chat!R1C1:R11C3" mentre in realtà questo intervallo sarà diverso ogni volta..
Come faccio a mettere nel codice l'intervallo attivo invece dei riferimenti fissi?

Grazie
Bruno_81
Utente Junior
 
Post: 10
Iscritto il: 24/10/14 16:26

Sponsor
 

Re: Macro per Pivot dinamica...

Postdi Bruno_81 » 07/11/14 12:47

Dovrei aver risolto con

SourceData:= ActiveCell.CurrentRegion
Bruno_81
Utente Junior
 
Post: 10
Iscritto il: 24/10/14 16:26

Re: Macro per Pivot dinamica...

Postdi ricky53 » 07/11/14 15:25

Ciao,
non è detto che "ActiveCell.CurrentRegion" ti dia sempre il valore esatto, per esempio prova a posizionarti nella cella "AA1000" e poi esegui la tua macro, adesso controlla l'intervallo dei dati della Pivot: cosa contiene?

Io ti suggerisco di utilizzare questo metodo
Codice: Seleziona tutto
    UR = Range("C" & Rows.Count).End(xlUp).Row
    SourceData:= "Chat!R1C1:R" & UR & "C3"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Macro per Pivot dinamica...":


Chi c’è in linea

Visitano il forum: Nessuno e 18 ospiti