problema con macro Pivot

[mirmidone21]

buongiorno a tutti

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

[Anthony47]

Questa non l'ho capita...
Su XL2010 il comportamento e' regolare (fatti alcuni adattamenti alla sintassi del codice), ma su XL2013 l' utilizzo del campo "Causale" nell'area DATI/VALORI rimuove lo stesso campo dall'area RIGHE
Perche' funzioni e' necessario prima inserire il campo nell'area DATI e poi nell'area RIGHE:

Codice: Seleziona tutto

    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
    ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
        "Tabella_pivot1").PivotFields("Causale"), "Conteggio di Causale", xlCount
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Causale")
        .Orientation = xlRowField
        .Position = 1
    End With


Ciao

[mirmidone21]

infatti, è strano, forse è un bug di excel 2013 ???
cmq con la tua modifica funziona tutto bene.
grazie e alla prossima