Rentang penyalinan vba ke lembar lain + buku kerja
Untuk menyalin sel atau rentang sel ke lembar kerja lain, Anda harus menggunakan metode “Salin” di VBA. Dalam metode ini, Anda perlu menentukan rentang atau sel menggunakan objek rentang yang ingin Anda salin, lalu menentukan lembar kerja lain dengan rentang yang ingin Anda tempelkan.
Salin sel atau susun ke lembar kerja lain
Range("A1").Copy Worksheets("Sheet2").Range("A1")- Pertama, atur rentang atau sel yang ingin Anda salin.
- Kemudian ketik titik (.) dan pilih metode penyalinan dari daftar properti dan metode.
- Di sini Anda akan mendapatkan kecerdasan untuk mengatur tujuan sel yang disalin.
- Dari sini Anda perlu menentukan lembar kerja dan kemudian rentang tujuan.
Sekarang ketika Anda menjalankan kode ini, ia menyalin sel A1 dari lembar aktif ke “Sheet2”. Satu hal yang perlu Anda pastikan adalah saat Anda menyalin sel dan menempelkannya ke tujuan, format tersebut juga akan ditempel di sana.
Namun jika Anda hanya ingin menyalin nilai sel dan menempelkannya ke lembar kerja yang berbeda, pertimbangkan kode berikut.
Worksheets("Sheet2").Range("A1") = Range("A1").ValueCara ini tidak menggunakan metode copy melainkan hanya menambahkan nilai pada worksheet tujuan dengan menggunakan tanda sama dengan dan menggunakan properti value dengan sel sumber.
Salin sel dari lembar kerja lain
Sekarang misalkan Anda ingin menyalin sel dari lembar kerja yang saat itu tidak aktif. Dalam hal ini, Anda perlu mendefinisikan lembar kerja dengan sel sumber. Sama seperti kode berikut.
Worksheets("sheet1").Range("A1").Copy Worksheets("Sheet2").Range("A1")Salin rentang sel
Range("A1:A10").Copy Worksheets("Sheet2").Range("A1:A10") Range("A1:A10").Copy Worksheets("Sheet2").Range("A1")Salin sel di lembar kerja ke buku kerja lain
Saat buku kerja dibuka namun belum disimpan.
Workbooks("Book1").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2").Worksheets("Sheet1").Range("A1")Saat buku kerja dibuka dan disimpan.
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")Salin sel di lembar kerja ke buku kerja tertutup lainnya
'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:=True