Copia riga su altro foglio

Hai un problema con Excel?

Nuova discussione

Copia riga su altro foglio
di Soncia (utente non iscritto) data: 11/11/2008
Qualcuno mi sa dire il motivo per cui fra le due routine di sotto funziona solo la prima??? il fatto è che è estremamente più scomoda da utilizzare visto che ad ogni copia corrisponde una selezione del foglio su cui questa va copiata rendendo il processo molto più lento...

(foglio "tubi" e foglio "misure_fuori_standard")

Questa funziona

Sheets("TUBI").Activate
Cells(R, 1).EntireRow.Select
Selection.Copy
Sheets("MISURE_FUORI_STANDARD").Activate
Cells(i, 1).Select
ActiveSheet.Paste


Mentre questa no!!!! 

Sheets("TUBI").Cells(R, 1).EntireRow.Copy
Sheets("MISURE_FUORI_STANDARD").Cells(i, 1).EntireRow.Paste

di Albatros (utente non iscritto) data: 11/11/2008
Per potere copia e incolla prima devi rendere attivo il foglio da cui copiare ,nella seconda sub non lo rendi attivo. comunque per evitare il continuo avanti e indietro dei foglio prova la routine come sotto

Application.ScreenUpdating = False
Sheets("TUBI").Activate
Cells(R, 1).EntireRow.Select
Selection.Copy
Sheets("MISURE_FUORI_STANDARD").Activate
Cells(i, 1).Select
ActiveSheet.Paste
Application.ScreenUpdating = true

Vuoi Approfondire?