Problema collegamenti

Hai un problema con Excel?

Nuova discussione

Problema collegamenti
di Mauro (utente non iscritto) data: 27/02/2016 10:58:21
Premessa.. ragazzi la mia conoscenza di excel su scala 10 penso sia di 2/3 perciò abbiate pazienza!!.
1 - Ho creato n. 1 excell chiamato “indici”
2 - Ho implementato 20 programmini (per calcolo pensione) separati su 20 excell che utilizzano i dati presi da “indici”.
3 - Ho fatto un excel “Quadro riassuntivo” dove vengono riportati tutti i dati finali (importo pensione) dei 20 programmini.
Problema:
a) Quando aggiorno o cambio un dato in “indici”, i 20 programmi si aggiornano solo se li apro quando “indici” è già aperto. Cioè se aggiorno “indici” e poi lo chiudo i programmi non sono aggiornati quando li apro.
b) Il “Quadro riassuntivo” si aggiorna solo se lo tengo aperto e vado ad aprire tutti i 20 programmi (se ne apro solo due mi aggiorna solo quelli).
E’ possibile attivare un aggiornamento automatico nel senso che se cambio un dato in “indici” automaticamente sono sicuro di aver aggiornato tutti i programmi e di conseguenza anche il Quadro riassuntivo?
Spero di essere stato chiaro
Grazie Mauro
di patel data: 27/02/2016 12:25:24
io utilizzerei un solo file con 20 fogli
di Mauro (utente non iscritto) data: 27/02/2016 12:32:40
Grazie patel....

il problema è che ogni programmino (dei 20) è già di per sè composto da 4 fogli, poi il file "indici" ha 10 fogli..

Non ti sembra troppo complesso? Poi se mi dici che non ci sono soluzioni indolori ci posso provare.

Ciao Grazie Mauro
di patel data: 27/02/2016 13:05:32
non so se ci sono soluzioni indolori, aspetta l'intervento di altri. Forse occorrerebbe una macro che apre tutti i file e li aggiorna.
di Mauro (utente non iscritto) data: 27/02/2016 14:06:06
Se una macro risolvesse il problema sarebbe perfetto!!

di patel data: 27/02/2016 16:43:05
la macro inserita nel file indici apre e chiude tutti i programmi che dovrebbero avere lo stesso nome seguito da un numero crescente tipo prog1, prog2 ...

Sub apri()
Dim exlApp As Excel.Application, exlWb As Excel.Workbook
Set exlApp = CreateObject("Excel.Application")
for n=1 to 2
   Set exlWb = exlApp.Workbooks.Open("F:Downloadprog" & n & ".xlsx")
   exlWb.Close savechanges:=True
next
Set exlWb = Nothing
exlApp.Quit
Set exlApp = Nothing
End Sub

di Mauro (utente non iscritto) data: 28/02/2016 09:59:20
patel io non ho mai inserito una macro .... studierò come fare. Comunque grazie mille, sei stato molto paziente.

Vuoi Approfondire?