Trasferire dati tra fogli di lavoro utilizzando una macro

Leonardo sta scrivendo una macro per trasferire dati da un foglio di lavoro a un altro. Entrambi i fogli di lavoro sono nella stessa cartella di lavoro. I dati che desidera trasferire si trovano nel primo foglio di lavoro e utilizzano un intervallo denominato: “DatiOrigine”. Consiste in una singola riga di dati. Leonardo desidera, all’interno della macro, trasferire questi dati dal primo foglio di lavoro alla prima riga vuota del secondo foglio di lavoro, ma non è del tutto sicuro di come procedere.

In realtà ci sono diversi modi per farlo, ma tutti i metodi hanno due prerequisiti: l’identificazione dell’intervallo di origine e l’identificazione dell’intervallo di destinazione. L’intervallo di origine è facile perché è denominato. Puoi specificare l’intervallo di origine nella tua macro in questo modo:

Set rngSource = Worksheets("Foglio1").Range("DatiOrigine")

Identificare la prima riga vuota nel foglio di lavoro di destinazione è un po’ più complicato. Ecco un modo relativamente semplice per farlo:

Al termine, la variabile rngTarget punta verso l’intervallo della colonna A qualunque sia la prima riga vuota (in questo caso, una riga vuota è definita come qualsiasi riga che non ha qualcosa nella colonna A).

Ora tutto ciò che devi fare è inserire questi intervalli di origine e destinazione da utilizzare con il metodo Copy:

Si noti che con gli intervalli definiti, è sufficiente utilizzare il metodo Copy sull’intervallo di origine e specificare l’intervallo di destinazione dell’operazione. Al termine, i dati originali sono ancora nell’intervallo di origine, ma sono stati copiati nella destinazione.