Ciao,
devo raggruppare in una pagina riepilogativa dei dati di tabelle provenienti da altre pagine dello stesso file. Dato che praticamente l'operazione è sempre la stessa vorrei preparare una macro che incolli quei dati nel foglio d'insieme. Il problema è che non sono tabelle di uguale lunghezza e quindi nel momento in cui debbo incollare dovrei dare un comando che incolli l'intervallo nella riga successiva all'ultima scritta.
In parole povere, sono in foglio 10:
seleziona a1:ah50 >copia >vai a foglio riep.>seleziona a1>incolla>
vai a foglio4>seleziona a1:ah27 >copia >vai a foglio riep.>seleziona a51>incolla>
vai a foglio7>seleziona a41:ah127 >copia >vai a foglio riep.>seleziona a78>incolla>
vai a foglio5>seleziona a23:ah49 >copia >vai a foglio riep.>seleziona a165>incolla>
vai a foglio18>seleziona a873:ah949 >copia >vai a foglio riep.>seleziona a192>incolla>
etc.
Qual'è la sintassi corretta che mi permetta di fare questo?
Come sempre Grazie anticipato e buona giornata
eZio

salve
come spunto di partenza..
La macro che segue, copia un range selezionato di qualsiasi foglio e lo accoda ai dati esistenti del foglio di ripieligo


Sub copia_incolla()
Uriga = Sheets("foglio_riep").Range("a" & Rows.Count).End(xlUp).Row + 1
With Selection
.Copy Destination:=Sheets("foglio_Riep").Cells(Uriga, 1)
End With
End Sub

Ho usato l'istruzione "With Selection" perchè immagino che le tabelle da copiare siano variabili.
Pertanto la procedura sarà quella di selezionare sul foglio i dati da copiare e lanciare la macro.
saluti
Giap

---