databodyrange

[matzap]

Ciao,
ho una pivot così fatta:
nome (Tutto)

Somma di Totali
Tipo Totale
ASRE 5.5
C.MA 159.25
COPA 8
FER 72
HASS 8
MagD TFR 8859.5
Magg TFR 144
MALP 117.5
N-FS 463.5
PERM 10.5
S-FS 431.5
Stip 706
Stra 3.5
STRD 280.5
TICK 468

e vorrei selezionare solo i dati (della prima colonna)con questa formula che mi aveva suggerito Antony in un altro mio post
viewtopic.php?f=26&t=98958:

Worksheets("Foglio2").Select
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("nome").CurrentPage = _
"(All)"
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Tipo").DataBodyRange.Select

ma mi da debug ,erroe 438, proprio sulla selezione databodyrange.
sembra non riconosca questa proprietà

Come mai?

[peppo55]

Ciao matzap

prova così

ActiveSheet.PivotTables("Tabella_pivot1").PivotSelect "Tipo[All]"

[matzap]

Ciao peppo,
effettivamente così funziona, peròmi seleziona anche il campo dato e non solo la prima colonna. Un altro piccolo aiuto?!

[peppo55]

Ciao

Worksheets("Foglio2").Select
ActiveSheet.PivotTables("Tabella_pivot1").PivotSelect "Tipo[All]"

prova così

[matzap]

no, mi seleziona tutto

[Anthony47]

Worksheets("Foglio2").Select
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("nome").CurrentPage = _
"(All)"
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("Tipo").DataBodyRange.Select

Disconosco la paternita' di questo codice.
La Proprietà DataBodyRange si applica infatti a una tabella pivot, non a un suo campo.

Se il tuo obiettivo e' selezionare la prima colonna dati, allora dovrebbe funzionare questa:

Codice: Seleziona tutto

ActiveSheet.PivotTables("Tabella_pivot1").PivotTable.RowRange.Offset(0, 1).Select

Ciao

[matzap]

grazie anthony, lunedi lo provo

[matzap]

ciao Anthony,
non funziona, mi da sempre erroe 438.

Ti scrivo il codice per intero:

Worksheets("Report").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "Cognome"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Nome"
Worksheets("Analisi").Select
ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("nome").CurrentPage = _
"(All)"
Worksheets("Analisi").Select
'ActiveSheet.PivotTables("Tabella_pivot1").PivotSelect "Tipo[All]"
ActiveSheet.PivotTables("Tabella_pivot1").PivotTable.RowRange.Offset(0, 1).Select
Selection.Copy



Ciao

[Anthony47]

L' ho provata senza problemi con una mia pivot table, prova a condividere un file di test, magari si scopre l' arcano...

Ciao