Cioe', ad esempio:
- Codice: Seleziona tutto
Set uno= Workbooks("query.xls").Worksheets("Sheet1")
Set due= Workbooks("monitoring.xls").Worksheets("dentro")
E poi
- Codice: Seleziona tutto
URB = due.Range("G" & Rows.Count).End(xlUp).Row + 1
uno.Range("A" & RRA & ":H" & RRA).Copy Destination:=due.Range("A" & URB)
Grazie.