[EXCEL] modificare cella in più fogli

[bogard]

Vediamo se riesco ad esporre il mio problema
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.

[ricky53]

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

[Anthony47]

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.

[bogard]

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...

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 un bel po' di lavoro risparmiato ed è una macro molto interessante che potrà essere riutilizata.
Grazie ad entrambi, ciao.