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
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 //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
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 :)