Copiare celle contenente formula

Question

Buongiorno,

spero possiate aiutarmi.

Ho la necessità di copiare alcune celle che contengono una formula, che dà come risultato data e ora e sarebbe il risultato di altre due celle, dal foglio 1 al foglio 4 tramite una macro.

Questo per far sì che ogni volta che aggiungo un valore nelle celle sottostanti del foglio 1, tramite macro clicco sul pulsante e li copia nel foglio 4.

La macro di base ce l'ho, ma il problema è che restituisce REF quando tenta di copiare la cella che contiene la formula.

Vi ringrazio per ogni suggerimento e buona giornata.

Di seguito il codice che uso:

Sub CopiaCella()

With Sheets("Foglio1")

.Range("B20:B30").Copy Sheets("Foglio4").Range("D2:D30")

.Range("C20:C30").Copy Sheets("``Foglio4").Range("E2:E30")

.Range("G20:G30").Copy Sheets("``Foglio4").Range("N2:N30")

End With

End Sub

Answer 1

Ciao Norman e grazie per aver risposto.

In effetti sì, ho riscontrato il problema : nel foglio 4 sotto le celle copiate dal foglio 1 esce un valore pari a #N/A.

Comunque la mia intenzione sarebbe questa: ogni volta che nelle colonne B e G scrivo qualsiasi cosa (B20, B21 ecc stessa cosa vale per G, lasciando vuote le celle sottostanti, così se successivamente devo aggiungere qualcosa aggiungo..anche in C che contiene data e ora) clicco sul pulsante e nel foglio 4 mi copia le celle del foglio 1.

(ecco perchè lascio un intervallo di tot celle, mi serviranno successivamente per poter aggiungere altre cose)

Spero che si è capito..

Resto comunque a disposizione e grazie :)

Answer 2

Ciao Sol39,

Ho la necessità di copiare alcune celle che contengono una formula, che dà come risultato data e ora e sarebbe il risultato di altre due celle, dal foglio 1 al foglio 4 tramite una macro.

Questo per far sì che ogni volta che aggiungo un valore nelle celle sottostanti del foglio 1, tramite macro clicco sul pulsante e li copia nel foglio 4.

La macro di base ce l'ho, ma il problema è che restituisce REF quando tenta di copiare la cella che contiene la formula.

Vi ringrazio per ogni suggerimento e buona giornata.

Di seguito il codice che uso:

Sub CopiaCella()

With Sheets("Foglio1")

.Range("B20:B30").Copy Sheets("Foglio4").Range("D2:D30")

.Range("C20:C30").Copy Sheets("``Foglio4").Range("E2:E30")

.Range("G20:G30").Copy Sheets("``Foglio4").Range("N2:N30")

End With

End Sub

Dato che il codice sta tentando di copiare un intervallo di 11 celle in un intervallo di 29 celle, è inevitabile che si verifichi un problema. Si verificherebbe un problema simile se si tentasse la stessa operazione manualmente.

Pertanto, ti pregho di spiegare la disparità nelle dimensioni degli intervalli di origine e destinazione ed i risultati desiderati. Forse una schermata dei dati di origine e dei risultati richiesti sarebbe utile.

===

Regards,

Norman

Answer 3

Ciao,

la formula è scritta da C20 a C30 e sarebbe questa: =H13+I13.

Il risultato sarebbe ora + data e la cella che la contiene è formattata affinchè possa contenere entrambe.

Grazie per aver risposto.

Answer 4

Buongiorno ,

Per poter dare una risposta concreta, bisognerebbe saperedove è scritta la formula e quale è la formula.

Eseguendo la macro così come è indicata nella domanda non sbaglia un colpo.