Condividi:        

Aggiornare Dati

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

Aggiornare Dati

Postdi JayKay » 20/11/13 22:11

Buongiorno a tutti,
voglio esporvi il mio problema.
Ho creato un foglio excel con al suo interno vari fogli che chiameremo foglia 1, foglio 2, foglio 3,etc....
Dentro questi fogli ho inserito delle query che si collegano a vari siti per importare dati.
Queste query si trovano in U1,CU1 2 DU1.

Ora io vorrei in un ulteriore foglio denominato riepilogo creare un unico pulsante che aggiorni tutte quelle query contenute nei vari fogli.
Grazie mille per l'aiuto.
JayKay
Newbie
 
Post: 2
Iscritto il: 20/11/13 22:05

Sponsor
 

Re: Aggiornare Dati

Postdi Anthony47 » 21/11/13 01:55

Ciao JayKay, benvenuto nel forum.
Puoi ottenere quello che dici con una macro autoregistrata:
-parti dal foglio su cui vuoi inserire il pulsante, e avvia la registrazione di una nuova macro
-prendi nota del nome assegnato alla macro, e accertati che sia impostato "Memorizza macro-In questa cartella di lavoro"
-seleziona foglio1, seleziona una cella all' interno della tabella di webquery; tasto dx, scegli Aggiorna
-seleziona foglio2 e ripeti per la seconda query
-idem per foglio3 e per gli altri
-seleziona il foglio del pulsante
-interrompi la registrazione macro

Eventualmente crea un pulsante (trovi questa forma nella barra degli strumenti Moduli) e assegnagli la macro appena registrata (ti verra' fatta una domanda specifica nel ciclo di creazione del pulsante).
In questo modo quando premi il pulsante sara' eseguito l' aggiornamento delle N query.

Una alternativa piu' elegante potrebbe essere questa macro, che aggiorna tutte le query presenti su tutti i fogli del file corrente;
Codice: Seleziona tutto
Sub QRefr()
For Each WkSh In Worksheets
  For Each WQ In WkSh.QueryTables
    WQ.Refresh BackgroundQuery:=False
  Next WQ
Next WkSh
End sub

Ma vuoi mettere la soddisfazione di poter dire "Questa l' ho fatta io"? e soprattutto l' aver imparato che si puo' registrare una macro per automatizzare in proprio molte situazioni?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiornare Dati

Postdi JayKay » 21/11/13 18:22

Io ti ringrazio moltissimoooooooooo!!! FUNZIONA!
L'unica cosa che ti chiedo è:
ho fatto quello che mi hai detto ma quando premo il pulsante l'aggiornamento parte ma excel mi porta man mano su ogni pagina che aggiorna. Come posso evitare questo restando nella pagina dove si trova il pulsante?
Grazie
JayKay
Newbie
 
Post: 2
Iscritto il: 20/11/13 22:05

Re: Aggiornare Dati

Postdi Flash30005 » 21/11/13 20:51

A inizio macro inserisci queste due righe codice
Codice: Seleziona tutto
Sub QRefr()
Application.ScreenUpdating = False
NomeF = ActiveSheet.Name
..
..
...


a fine macro inserisci queste due righe codice
Codice: Seleziona tutto
...
...
Worksheets(NomeF).Select
Application.ScreenUpdating = True
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Aggiornare Dati

Postdi Anthony47 » 22/11/13 00:55

Flash ti ha gia' spiegato come inserire Application.ScreenUpdating (mentre le altre due istruzioni sono superflue, perche' sono gia' nella macro autoregistrata). L' altra alternativa e' l' uso della Sub QRefr()

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Aggiornare Dati":


Chi c’è in linea

Visitano il forum: Nessuno e 86 ospiti

cron