Salve a tutti
Purtroppo non ho molta dimestichezza con il codice delle macro.
il mio problema è questo:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'foglio1'!R1C1:R150C3").CreatePivotTable TableDestination:=Range("D1"), _
TableName:="Tabella_pivot1"

come posso inserire al posto di ("'foglio1'!R1C1:R150C3") dei riferimenti jolly, che non debba andare tutte le volte che eseguo la macro a cambiare i dati all’interno della stessa, in quanto il file è composto da sei fogli (da foglio 1 a foglio 6) e i riferimenti di cella variano da file a file.
Grazie a chiunque mi possa dare una mano.
Franco.

io opterei per delle inputbox da inserire
nella macro nelle quali inserirai il nome del foglio e il range di dati. Per facilitare le cose assegnerei al range di dati un nome per non dover descrivere l'intervallo . es. a1:c150 = nome1
alla prima richiesta della Inputbox indicherai il nome del foglio es. foglio2
alla seconda inputbox indicherai coem range:nome1
di seguito le modifiche necessarie da fare alla macro:

risposta = InputBox("foglio?", "indica nome foglio ")
risposta2 = InputBox("range", "indica range es. nome1")
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
risposta & "!" & risposta2).CreatePivotTable TableDestination:=Range("D1"), _
TableName:="Tabella_pivot1"

Edited by - a10n11 on 11/16/2004 16:51:54

---