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:
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
' 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 arubiandesu@gmail.com dan akan saya buatkan
tutorial-nya secara cuma-cuma.
File asli milik: Yohanes Sefrianto Laga Keraf
Dimodifikasi oleh Alvian Casablancas
File asli milik: Yohanes Sefrianto Laga Keraf
Dimodifikasi oleh Alvian Casablancas
