Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro su pivot, aggiornamento automatico ultimo valore menù

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

Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi ellusu » 20/07/09 23:26

Ciao a tutti,

mi servirebbe il vostro aiuto

x lavoro ho una pivot gigantesca e per semplificarmi la vita ho registrato varie macro che fanno tutto in automatico ormai

una solo invece non funziona come vorrei

vi spiego:

io ho necessità di aggiornare la pivot con l'ultimo valore del menù a tendina, valore che cambia di giorno in giorno essendo una data

il codice della macro è il seguente:
Codice: Seleziona tutto
    ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("J").CurrentPage = _
        "20090719"


pero domani l'ultimo valore del menù a tendina non sarà
20090719

bensì sarà

20090720 (e quindi avviando la macro a me serve che aggiorni sul 20 luglio)


dopodomani sarà

20090721 (e quindi avviando la macro a me serve che aggiorni sul 21 luglio)

ecc ecc

esiste qualche modo per fare in modo che la macro aggiorni in automatico all'ultimo valore disponibile?


grazie a tutti
ellusu
Newbie
 
Post: 6
Iscritto il: 20/07/09 23:19

Sponsor
 

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi Flash30005 » 20/07/09 23:36

prova a crearti il valore da aggiornare con un codice tipo
Codice: Seleziona tutto
Miadata = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2)
    ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("J").CurrentPage = Miadata


Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi ellusu » 20/07/09 23:42

appena provato

ha trasformato il giorno

20090703

in

20090721



e portato l'aggiornamento al 20090721


?????
ellusu
Newbie
 
Post: 6
Iscritto il: 20/07/09 23:19

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi Flash30005 » 20/07/09 23:49

Beh io ti ho fornito la variabile che ti occorreva
Miadata non fa altro che prelevare la data odierna (in questo caso 21/07/2009 perché è passata la mezzanotte in 20090721)
Tu hai portato l'esempio
Codice: Seleziona tutto
    ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("J").CurrentPage = _
        "20090719"

che doveva cambiare in funzione della data, quindi ho sostituito al tuo "20090719" alla variabile Miadata
ora se ti "trasforma" il giorno 20090703 penso che l'avrebbe fatto anche con 20090719 (quello postato da te)

Altrimenti spiega meglio come è lo schema del tuo foglio o se puoi invia un esempio del tuo file

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi ellusu » 21/07/09 00:04

provo ad esser + chiaro

il file che utilizzo è strutturato come l'img che segue:

Immagine


io quotidianamente devo portare tutti i valori

J

all'ultimo valore presente nel menù a tendina

(in qs caso il giorno 19c.m.)

e domani l'ultimo valore sarà il 20





quindi a me servirebbe che la macro pescasse l'ultimo valore del menù a tendina del J


(spero di esser stato chiaro) :undecided: :undecided: :undecided: :undecided:
ellusu
Newbie
 
Post: 6
Iscritto il: 20/07/09 23:19

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi Flash30005 » 21/07/09 00:21

Si, ok ma il menu a tendina viene preso da un elenco o tabella dalla quale poi hai creato il pivot quindi la data va inserita nella tabella e riportata sul pivot (prendendo il max valore)

Non hai la possibilità di inviare un file strutturato come il tuo senza che ricrei tutto da me con il rischio di fare un buco nell'acqua?

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi ellusu » 21/07/09 07:20

Flash come scarico un pò di lavoro ti mando file :D
ellusu
Newbie
 
Post: 6
Iscritto il: 20/07/09 23:19

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi Flash30005 » 21/07/09 07:31

Ok, se hai dati sensibili che non puoi sostituire puoi inviarmi il link dell'host in MP

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi ellusu » 21/07/09 07:59

no problema pulisco i dati sensibili rendendoli anonimi e poi sharo il tutto
ellusu
Newbie
 
Post: 6
Iscritto il: 20/07/09 23:19

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi Anthony47 » 21/07/09 23:36

Anche a me sembra che se era ok l' istruzione ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("J").CurrentPage = "20090719" allora avrebbe dovuto essere ok anche l' ipotesi ActiveSheet.PivotTables("Tabella_pivot2").PivotFields("J").CurrentPage = Miadata di Flash.

A questo punto attendo anche io di vedere il file e capire come e' organizzata la tabella pivot.

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: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi ellusu » 22/07/09 07:26

a questo link trovate il file esempio

http://rapidshare.com/files/258605134/esempio.rar.html

pass

ellusupivot


ho messo dentro solo tre giorni

e indicato solo due macro semplici, e solo una pivot

Aggiorna tutto----> che aggiorna la pivot
J Tutto-------------> che porta la pivot all'indicazione Tutto

manca la terza pivot che è quella che mi da problemi

dove dal menù a tendina J io vorrei selezionare l'ultimo giorno utile

in questo caso il 20090703
domani ...04 ecc ecc
ellusu
Newbie
 
Post: 6
Iscritto il: 20/07/09 23:19

Re: Macro su pivot, aggiornamento automatico ultimo valore menù

Postdi Flash30005 » 22/07/09 08:43

La macro postata precedentemente funziona, ho fatto solo una modifica per la variabile MiaData che non è più il giorno attuale (data Pc) ma l'ultima data in elenco sul foglio "origine dati".
Prova e fai sapere

http://rapidshare.com/files/258622900/esempio2.rar.html
(Pass come quella che avevi)

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Macro su pivot, aggiornamento automatico ultimo valore menù":


Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti