Rank: AiutAmico
Iscritto dal : 5/10/2010
Posts: 723
|
Ciao,
devo risolvere questo problemino:
in un foglio ho due tabelle di lunghezza variabile, separate da 2 righe bianche senza né dati, né intestazioni.
Vorrei copiare queste tabelle di lunghezza variabile (includendo anche le 2 righe vuote) in un altro foglio di lavoro... Che istruzioni bisogna impartire alla macro affinché vada a cercare l'ultima riga scritta nel foglio, includendo anche le eventuali righe bianche infrapposte?
Grazie assai e buon pomeriggio,
eZio
|
Rank: AiutAmico
Iscritto dal : 5/10/2010
Posts: 723
|
RISOLTO
Sub copia_Riepilogo()
Sheets("foglio1").Select
Uriga = Range("A" & Rows.Count).End(xlUp).Row
Set Area = Range("A1", Range("Z" & Uriga))
Area.Copy Destination:=Sheets("Riepilogo").Range("A2")
Set Area = Nothing
End Sub
Le tabelle di foglio1 (nella macro sopra) vanno da col.A a col.Z ed hanno lunghezza variabile
i dati di foglio1 vanno copiati in foglio Riepilogo, partendo da A2
|