ERRORE 1004

Hai un problema con Excel?

Nuova discussione

ERRORE 1004
di LxxxI (utente non iscritto) data: 03/11/2016 18:36:37
Ciao a tutti.

ho una problematica con una macro di Excel 2010.
Nel momento in cui lancio la macro mi appare il seguente errore ----> Errore di run-time 1004: Errore definito dall'applicativo o dall'oggetto.

Eseguendo il Debug mi porta nel VBA, selezionando in giallo la seguente:
ActiveSheet.PivotTables("Pivot_appoggio").PivotFields("COMPANY").CurrentPage = SOCIETA

Qualcuno riesce ad aiutarmi a capire dov'è l'errore?

Grazie mille,
Lorenzo
ActiveSheet.PivotTables("Pivot_appoggio").PivotFields("COMPANY").CurrentPage = SOCIETA
di patel data: 03/11/2016 18:52:33
allega tutta la macro o meglio il file
di LxxxI (utente non iscritto) data: 04/11/2016 10:33:10
Ciao,

visto le dimensioni del file e la sua complessità, preferirei allegarti la MACRO (per comodità), evitando così di "pulire" il file (visto la presenza di dati sensibili. Spero vivamente che sia sufficiente così per poter risolvere il problema.

Di seguito la MACRO:

Sub REFRESH_SINGLE()
Dim I, J, RIGA
Dim COMPANY, CODICE, VALUTA, ACRONIMO, EX_RATE
Dim SHIFT_RIGHT
Dim SOCIETA

SOCIETA = Range("r_COMPANY_SEL")

r_PIVOT.Activate
ActiveSheet.PivotTables("Pivot_appoggio").PivotCache.Refresh
ActiveSheet.PivotTables("Pivot_appoggio").PivotFields("COMPANY").ClearAllFilters
ActiveSheet.PivotTables("Pivot_appoggio").PivotFields("COMPANY").CurrentPage = SOCIETA
ActiveSheet.PivotTables("Pivot_appoggio").PivotFields("Group CUST.SEGM").PivotItems("INT").Visible = False
ActiveSheet.PivotTables("Pivot_appoggio").PivotCache.Refresh

La riga evidenziata dal debug è la seguente:
ActiveSheet.PivotTables("Pivot_appoggio").PivotFields("COMPANY").CurrentPage = SOCIETA

Grazie mille per la gentile collaborazione :)

Vuoi Approfondire?