Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] modificare cella in più fogli

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

[EXCEL] modificare cella in più fogli

Postdi bogard » 10/06/09 10:23

Vediamo se riesco ad esporre il mio problema :D
Ho un foglio "RIEPILOGO" con dei dati in una colonna da "B5" a "B501" che vorrei inserire in vari fogli da "scheda 001" a "scheda 497" sempre e solo nella cella "C3".
In pratica:
Il valore della cella "B5" del foglio "RIEPILOGO" va nella cella "C3" del foglio "scheda 001"
Il valore della cella "B6" del foglio "RIEPILOGO" va nella cella "C3" del foglio "scheda 002"
... e così via.
C'è un modo veloce, una macro o qualcosa per farlo velocemente? Modificare tutto quanto a mano è lungo :(
Grazia a chiunque saprà darmi un suggerimento, ciao.
bogard
Newbie
 
Post: 3
Iscritto il: 10/06/09 10:11

Sponsor
 

Re: [EXCEL] modificare cella in più fogli

Postdi ricky53 » 10/06/09 14:35

Ciao,
prova, con il registratore di macro, a fare una operazione.
Aprendo l'editor del VBA con opportune modifiche al codice che troverai scritto dal registratore dovresti risolvere.
Come te le cavi con il VBA?

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [EXCEL] modificare cella in più fogli

Postdi Anthony47 » 10/06/09 15:14

Ciao bogard e benvenuto nel forum.
Se puoi rigenerare i fogli "scheda xxx", allora nel modello da cui parti (usi un foglio "modello" per crearli, vero?) in C3 metti la formula
Codice: Seleziona tutto
=SCARTO(RIEPILOGO!B4;DESTRA(CELLA("filename";A1);3);0)
e poi genera le 500 schede.
Se invece detti fogli sono gia' creati e popolati di informazioni, allora fatti una macro che includa questo ciclo:
Codice: Seleziona tutto
For I = 1 To ThisWorkbook.Worksheets.Count
If left(Sheets(I).Name,6)="scheda" then
Sheets(I).Range("C3").Formula = _
        "=OFFSET(Riepilogo!B4,RIGHT(CELL(""filename"",A1),3),0)"
end if
Next I
Questa mettera' nella cella C3 di TUTTI i fogli il cui nome comincia con "scheda" la suddetta formula.

Ovviamente il tutto va provato, come si dovrebbe fare sempre, dopo aver fatto due copie di backup del tuo file...

E comunque prova prima inserendo a mano in un paio di fogli "scheda xxx" la formula pseudo magica.

Ciao, fai sapere.
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: [EXCEL] modificare cella in più fogli

Postdi bogard » 11/06/09 08:56

ricky53 ha scritto:Ciao,
prova, con il registratore di macro, a fare una operazione.
Aprendo l'editor del VBA con opportune modifiche al codice che troverai scritto dal registratore dovresti risolvere.
Come te le cavi con il VBA?

Ciao da Ricky53


Mica tanto bene :) avevo già provato ma l'unica soluzione era un bel copia incolla di un bel po' di righe poi da modificare a mano... :(

Anthony47 ha scritto:Ciao bogard e benvenuto nel forum.
Codice: Seleziona tutto
=SCARTO(RIEPILOGO!B4;DESTRA(CELLA("filename";A1);3);0)


Codice: Seleziona tutto
For I = 1 To ThisWorkbook.Worksheets.Count
If left(Sheets(I).Name,6)="scheda" then
Sheets(I).Range("C3").Formula = _
        "=OFFSET(Riepilogo!B4,RIGHT(CELL(""filename"",A1),3),0)"
end if
Next I


Ciao, fai sapere.


Perfette entrambe, grazie :D un bel po' di lavoro risparmiato ed è una macro molto interessante che potrà essere riutilizata.
Grazie ad entrambi, ciao.
bogard
Newbie
 
Post: 3
Iscritto il: 10/06/09 10:11


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] modificare cella in più fogli":


Chi c’è in linea

Visitano il forum: Maury170419 e 17 ospiti