vba impostare campo Pivot

[mirmidone21]

buongiorno a tutti
in una macro per creare una Pivot ho le seguenti due righe di codice che in sostanza selezionano lo stesso campo CREDITO_TOTALE nel riquadro dei Valori, solo che di default excel lo imposta come "Conteggio di CREDITO_TOTALE" e poi io devo reimpostarlo come "Somma di CREDITO_TOTALE" perchè mi serve così.
ora la mia domanda è: si può evitare di reimpostarlo due volte e scrivere tutto su una sola istruzione di codice?

grazie a tutti

Codice: Seleziona tutto

ActiveSheet.PivotTables("Tabella_pivot3").AddDataField ActiveSheet.PivotTables( _
        "Tabella_pivot3").PivotFields("CREDITO_TOTALE"), _
        "Conteggio di CREDITO_TOTALE", xlSum

Codice: Seleziona tutto

With ActiveSheet.PivotTables("Tabella_pivot3").PivotFields( _
        "Conteggio di CREDITO_TOTALE")
        .Caption = "Somma di CREDITO_TOTALE"
        .Function = xlSum

[mirmidone21]

ho risolto.
posto la mia soluzione sperando che possa essere utile ad altri.

ho modificato la riga d'istruzione in questo modo, è funge perfettamente, imposta direttamente a "SOMMA" e non più a "CONTEGGIO"

Codice: Seleziona tutto

ActiveSheet.PivotTables ("Tabella_pivot3")
    With ActiveSheet.PivotTables("Tabella_pivot3")
    .AddDataField ActiveSheet.PivotTables("Tabella_pivot3").PivotFields("CREDITO_TOTALE"), _
        "Somma di CREDITO_TOTALE", xlSum

saluti a tutti