macro crea pivot su tabella dati variabile

[matzap]

Ciao, ho registrato questa macro, ma funziona solo se la tabella ha le stesse dimensioni
se invece la tabella inizia ad esempio sempre dalla cella R9C1, ma l'ultima cella piena varia sia di riga che di colonna, nel caso specifico come la inserisco?

ciao

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Report Presenze!R9C1:R555C43", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="Foglio2!R3C1", TableName:= _
"Tabella_pivot6", DefaultVersion:=xlPivotTableVersion10

[Flash30005]

Puoi mettere delle variabile che conteggiano righe e colonne e poi inserire queste variabili alla tua macro
es.:

Codice: Seleziona tutto

UR = Worksheets("Report_Presenze").Range("A" & Rows.Count).End(xlUp).Row
UC = Worksheets("Report_Presenze").Cells(1, Columns.Count).End(xlToLeft).Column
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Report_Presenze!R9C1:R" & UR & "C" & UC).CreatePivotTable TableDestination:= _
        "Foglio2!R1C1", TableName:="Tabella_pivot1", DefaultVersion:=xlPivotTableVersion10


Attenzione ho modificato il nome foglio inserendo un underscore al posto dello spazio (Report_Presenze invece di Report Presenze)

ciao

[peppo55]

Ciao matzap

seleziona una cella qualsiasi della tabella. Dalla Scheda "Inserisci" > Tabella (con intestazioni).
Il nome Tabella Sarà Tabella1 ma puoi assegnare un nome a tuo piacere.
Ogni riga o colonna che aggiungi la tabella si ridimensiona.
Nerlla macro sostituisci con : SourceData:="Tabella1"

[matzap]

grazie, ero riuscito a indicare le variabili ma mi mancava questa sintassi: R" & UR & "C" & UC).