VBA Macro Excel - Problemi copia tra Sheet

[AB03]

Ciao a tutti,

Devo creare una macro che data una tabella che si trova nello sheet1 mi deve copiare riga per riga il contenuto nello sheet2, il porblema e' che questa operazione quando la eseguo mi continua ad effettuare il cambio di sheet e non e' una cosa bella da vedersi.

Sapete dirmi come ovviare a tale problema.

Grazie e ciao.

[Pippolik]

Se usi il riferimento alle proprietà del foglio di lavoro non ti cambia, ogni volta il foglio attivo.

Prova questo ciclo (ovviament Foglio1 e Foglio2 vanno cambiati a tuo uso):

Dim row As Double
For row = 1 To Foglio1.Rows.Count
     Foglio2.Rows(row).Value = Foglio1.Rows(row).Value
Next row

P.S. In realtà il ciclo risulta molto lento perchè copia le righe di tutto il foglio di lavoro. Vedi tu come limitare il ciclo (al limite chiedi).

[nicola75ss]

Non ho capito perchè non fai copia incolla di tutto il range in un colpo solo.
Comunque potrebbe tornarti utile un codice del genere:

Application.ScreenUpdating = False
' codice che devi eseguire
Application.ScreenUpdating = True

[AB03]

Scusa ma adesso si presenta un altro problema (l'n-esimo).

Come faccio a copiare anche la struttura della tabella?

Cioe': Colori testo, bordi tabella....

Grazie e ciao.

[nicola75ss]

L'esempio che segue copia il range a1:b3 del foglio 1 nel foglio 2 preservando la formattazione

Sheets(1).Range("a1:b3").Copy Destination:=Sheets(2).Range("a1")

[AB03]

Ok, grazie mille.

Problema risolto.

Ciao.