ho creato una macro col registatore di excel che dovrebbe generare una tabella pivot.
il problema è che quando trascino il campo nel riquadro RIGHE e voglio anche trascinarlo nel riquadro CONTEGGIO, me lo cancella dalle righe.
come mai, che dovrei fare?
questa è la macro
- Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"FoglioZ!R1C1:R13115C9", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Foglio1!R3C1", TableName:="Tabella_pivot1", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Foglio1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Causale")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
"Tabella_pivot1").PivotFields("Causale"), "Conteggio di Causale", xlCount
End Sub
vi allego anche un file di esempio
https://drive.google.com/file/d/0B2rmVFc8x3cUbUtvZmhKZkVPNzQ/view?usp=sharing
grazie a tutti