avrei bisogno di sapere come si può modificare questa macro che ho creato con il registratore per impostare come titolo delle colonne il dato riportato nel file dal quale prelevo i dati
- Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Foglio1!R1C1:R5C4", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Foglio5!R3C1", TableName:="Tabella_pivot2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Foglio5").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("nome")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabella_pivot2").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot2").PivotFields("alba"), "Conteggio di alba", xlCount
ActiveSheet.PivotTables("Tabella_pivot2").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot2").PivotFields("cuneo"), "Conteggio di cuneo", xlCount
With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("Conteggio di alba")
.Caption = "Somma di alba"
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("Conteggio di cuneo" _
)
.Caption = "Somma di cuneo"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = False
End Sub
inquesto caso la caption diventa somma di alba oppure somma di cuneo, come si può impostare la macro perchè si imposti in automatico il valore riportato nella cella c1 (alba) oppure d1(cuneo) presente nell'archivio dati?
mi auguro di aver reso comprensibile la mia esigenza
p.s come posso fare ad allegare eventulamente un file d'esempio
grazie