Intervallo di copia vba su un altro foglio + cartella di lavoro
Per copiare una cella o un intervallo di celle in un altro foglio di lavoro, è necessario utilizzare il metodo “Copia” di VBA. In questo metodo, devi definire l’intervallo o la cella utilizzando l’oggetto intervallo che desideri copiare e quindi definire un altro foglio di lavoro con l’intervallo in cui desideri incollarlo.
Copia una cella o disponi in un altro foglio di lavoro
Range("A1").Copy Worksheets("Sheet2").Range("A1")- Innanzitutto, imposta l’intervallo o la cella che desideri copiare.
- Quindi digitare un punto (.) e selezionare il metodo di copia dall’elenco di proprietà e metodi.
- Qui otterrai un intellisense per impostare la destinazione della cella copiata.
- Da qui è necessario definire il foglio di lavoro e quindi l’intervallo di destinazione.
Ora quando esegui questo codice, copia la cella A1 dal foglio attivo a “Foglio2”. Una cosa di cui devi assicurarti è che quando copi una cella e la incolli in una destinazione, viene incollata anche la formattazione.
Ma se vuoi semplicemente copiare il valore di una cella e incollarlo nei diversi fogli di lavoro, considera il seguente codice.
Worksheets("Sheet2").Range("A1") = Range("A1").ValueQuesto metodo non utilizza il metodo copia ma aggiunge semplicemente valore al foglio di lavoro di destinazione utilizzando un segno di uguale e utilizzando la proprietà value con la cella di origine.
Copia cella da un altro foglio di lavoro
Supponiamo ora di voler copiare una cella da un foglio di lavoro che al momento non è attivo. In questo caso, è necessario definire il foglio di lavoro con la cella di origine. Proprio come il seguente codice.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")Copia un intervallo di celle
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")Copia una cella di un foglio di lavoro in un’altra cartella di lavoro
Quando le cartelle di lavoro vengono aperte ma non ancora salvate.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")Quando le cartelle di lavoro vengono aperte e salvate.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")Copia una cella di un foglio di lavoro in un’altra cartella di lavoro chiusa
'to open the workbook that is saved in a folder on your system _ change the path according to the location you have in your _ system Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" 'copies cell from the book1 workbook and copy and paste _ it to the workbook myFile Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("myFile").Worksheets("Sheet1").Range("A1") 'close the workbook and after saving Workbooks("myFile").Close SaveChanges:=TrueCorrelato: Come aprire una cartella di lavoro utilizzando VBA in Excel