Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

databodyrange

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

databodyrange

Postdi matzap » 02/08/13 11:50

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?
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Sponsor
 

Re: databodyrange

Postdi peppo55 » 02/08/13 13:18

Ciao matzap

prova così

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

Excel 2010
peppo55
Utente Senior
 
Post: 154
Iscritto il: 30/09/12 13:51

Re: databodyrange

Postdi matzap » 02/08/13 13:28

Ciao peppo,
effettivamente così funziona, peròmi seleziona anche il campo dato e non solo la prima colonna. Un altro piccolo aiuto?!
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: databodyrange

Postdi peppo55 » 02/08/13 14:25

Ciao

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

prova così
peppo

Excel 2010
peppo55
Utente Senior
 
Post: 154
Iscritto il: 30/09/12 13:51

Re: databodyrange

Postdi matzap » 02/08/13 15:01

no, mi seleziona tutto :(
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: databodyrange

Postdi Anthony47 » 03/08/13 00:17

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: databodyrange

Postdi matzap » 03/08/13 10:13

grazie anthony, lunedi lo provo
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: databodyrange

Postdi matzap » 05/08/13 11:30

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
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: databodyrange

Postdi Anthony47 » 05/08/13 11:37

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

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows

Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti