Contoh membuat copy antar sheet dengan coding vba macro excel

Halo, Pembaca Klinik Excel.. Bantu kami tetap online yuk..

Table of Contents Show

Langkah #1: Aktifkan Tab Developer
Langkah #2: Membuat Data
Langkah #3: Membuka Code Editor
Langkah #4: Membuat tombol

Jika artikel-artikel kami dirasa memberikan manfaat, mohon bantu kami agar website ini tetap online ya.. Caranya gampang, cukup klik iklan yang tampil aja kok.. Terima kasih sebelumnya dan do'a kan agar kami dapat terus menulis artikel yang bermanfaat..

Macro & VBA, Hits: 7674, Comments: 13, Bookmarked: 0, Followers: 2

Status

Solved

Hallo Mas Rahmad, Perkenalkan saya Bhayu, saya newbie di VBA, jd minta tolong dibantu ya.... Saya mau copas range A1:H1 di Sheet1 ke range A1:H1 di Sheet2. Saya sudah coba coding2 sbb http://i42.tinypic.com/2ezpf2s.jpg ttp tidak bisa juga Jadi, saya minta tolong untuk sub procedure yg sederhana ini ya Mas Rahmad... Trm ksh byk

Last Modified: Thursday, October 20, 2016

bhayusufianto
Wednesday, January 15, 2014

0% of 0 votes

Mengcopy data secara otomatis akan memudahkan anda, ketimbang harus menekan tombol ctrl + c secara terus-terusan setiap ingin menyalin data. Dengan memanfaatkan fitur Ms. Excel, VBA Macro, anda dapat mempermudah pekerjaan tersebut. Dengan hanya membuat satu macro berisikan perintah-perintah tertentu, anda dapat membuat sebuah program pengcopy otomatis.

Seorang netizen bernama Yohanes, mengeluhkan masalah program excel-nya bahwa dia ingin menyalin data secara otomatis menggunakan macro excel. Kemudian saya berinisiatif untuk membuat postingan ini untuk membantu beliau memecahkan masalahnya. Program berikut adalah tentang bagaimana cara menyalin data secara otomatis menggunakan VBA Macro Excel.

Langkah #1: Aktifkan Tab Developer

Jika anda masih baru dalam menggunakan macro, dan tidak tahu cara mengaktifkan menu developer pada excel, silakan lihat postingan ini:

Cara Mengaktifkan Menu Developer pada Excel

Langkah #2: Membuat Data

Anda dapat membuat rumpunan data yang dibuat seperti tabel. Untuk lebih jelasnya, anda bisa meniru contoh data milik Mas Yohanes dibawah ini:

Anda dapat meletakannya pada Sheet1:

Sheet 1

Ini adalah hasil salinan yang dapat anda letakkan pada Sheet2:

Sheet 2

Langkah #3: Membuka Code Editor

Untuk membuka code editor pada excel, silakan buka menu developer anda, kemudian pilih view code.Jika kode editor sudah muncul, silakan membuat module baru kemudian tambahkan kode berikut didalamnya:

Sub Copy() ' Copy Macro Sheets(1).Select Range("A2").Offset(1, 0).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(2).Select If Range("A1").Offset(1, 0).Value = "" Then Range("A1").Offset(1, 0).Select Else Range("A1").End(xlDown).Offset(1, 0).Select End If ActiveSheet.Paste Sheets(1).Select Range("A1048576").ClearContents MsgBox "Penyalinan berhasil!", vbInformation, "Informasi" End Sub

Langkah #4: Membuat tombol

Untuk membuat tombol, anda bisa memanfaatkan shapes(Insert > Shapes) yang kemudian disulap menjadi sebuah tombol, lengkap dengan caption-nya. Setelah itu klik kanan pada tombol tersebut, dan klik Assign Macro. Di dalam daftar macro, pilih macro bernama Copy, kemudian klik OK.

Hasil akhirnya adalah sebagai berikut:

Hasil akhir

Selesai. Silakan anda coba dan lihat hasilnya. Jika terdapat kesalahan atau anda mengharapkan improvisasi terhadap program diatas, silakan sampaikan lewat kolom komentar, dan saya akan berusaha memperbaikinya.

Apabila anda memiliki masalah berkenaan dengan program excel anda, jangan sungkan untuk mengemail saya di dan akan saya buatkan tutorial-nya secara cuma-cuma.

File asli milik: Yohanes Sefrianto Laga Keraf
Dimodifikasi oleh Alvian Casablancas

Download file lengkapnya (16kb)

Terimakasih sudah berkunjung di alvian-cs.blogspot.com, silakan membaca artikel yang lainnya lagi dan jangan lupa berkomentar cerdas dengan tidak membuat SPAM :)