Vba-kopieerbereik naar een ander blad + werkmap
Om een cel of celbereik naar een ander werkblad te kopiëren, moet u de “Kopiëren” -methode van VBA gebruiken. Bij deze methode moet u het bereik of de cel definiëren met behulp van het bereikobject dat u wilt kopiëren en vervolgens een ander werkblad definiëren met het bereik waarin u het wilt plakken.
Kopieer een cel of rangschik deze naar een ander werkblad
Range("A1").Copy Worksheets("Sheet2").Range("A1")- Stel eerst het bereik of de cel in die u wilt kopiëren.
- Typ vervolgens een punt (.) en selecteer de kopieermethode in de lijst met eigenschappen en methoden.
- Hier krijgt u een intellisense om de bestemming van de gekopieerde cel in te stellen.
- Vanaf hier moet u het werkblad en vervolgens het bestemmingsbereik definiëren.
Wanneer u deze code nu uitvoert, wordt cel A1 van het actieve blad naar “Blad2” gekopieerd. Eén ding waar u zeker van moet zijn, is dat wanneer u een cel kopieert en in een bestemming plakt, de opmaak daar ook wordt geplakt.
Maar als u alleen de waarde van een cel wilt kopiëren en in de verschillende werkbladen wilt plakken, overweeg dan de volgende code.
Worksheets("Sheet2").Range("A1") = Range("A1").ValueDeze methode maakt geen gebruik van de kopieermethode, maar voegt eenvoudigweg waarde toe aan het doelwerkblad met behulp van een gelijkteken en de waarde-eigenschap met de broncel.
Kopieer cel van een ander werkblad
Stel nu dat u een cel wilt kopiëren van een werkblad dat op dat moment niet actief is. In dit geval moet u het werkblad met de broncel definiëren. Net als de volgende code.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")Kopieer een celbereik
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")Kopieer een cel in een werkblad naar een andere werkmap
Wanneer werkmappen zijn geopend maar nog niet zijn opgeslagen.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")Wanneer werkmappen worden geopend en opgeslagen.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")Kopieer een cel in een werkblad naar een andere gesloten werkmap
'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:=TrueGerelateerd: Een werkmap openen met VBA in Excel