modifica del valore di una data cella su tutti i fogli

[jos235]

Ciao a tutti,
mi sarebbe utile avere, se possibile, una macro che modifichi una formula su una data cella (es.A5) di tutti i fogli della cartella di lavoro.
Ad esempio, supponiamo che sulla cella A5 del foglio 1 io abbia impostato la somma dei valori delle celle da A1 ad A4, e che voglia ripetere la medesima somma sulle celle A5 di tutti gli altri fogli (che ovviamente saranno tanti per questo risulta scomodo farlo a mano uno per uno ). Le celle di destinazione (le A5 degli altri fogli) non sono vuote, contengono un'altra formula che però va corretta e deve diventare quella del foglio 1.
grazie

(spero di essermi spiegato bene )

[ricky53]

Ciao,
se i fogli non sono molti puoi fare un semplice copia ed incolla.

Comunque ecco un esempio di come puoi copiare la formula presente nella cella "A5" del Foglio1 su tutti gli altri fogli (ATTENZIONE deve essere il primo foglio di tutti i fogli del tuo file XLS):

Codice: Seleziona tutto

Sub Copia_A5()
    aa = Worksheets.Count
    For I = 2 To Worksheets.Count
        Sheets(I).[A5].Formula = Sheets(1).[A5].Formula
    Next I
End Sub

Ciao da Ricky53

[jos235]

ciao ricky53
Ti ringrazio per l'aiuto, tuttavia non avevo pensato alla soluzione più ovvia : in excel la funzione "trova e sostituisci" permette di ricercare il testo da sostituire nell'intera cartella, basta inserire la funzione da ricercare, quella con cui sostituirla e fare "sostituisci tutto". Che stupido a non averci pensato prima
grazie comunque

[ricky53]

Ciao,
Bene.
Certo, la soluzione è sicuramente condizionata da ciò che si vuole ottenere come risultato e, nel tuo caso, è pù semplice il "Trova/Sostituisci".

Buon proseguimento.

Ciao da Ricky53