Memindahkan Data Secara Otomatis dengan Tombol VBA

Dalam pekerjaan sehari-hari, terkadang kita dihadapkan pada pekerjaan yang sebetulnya sepele tapi ternyata cukup menguras tenaga dan waktu. Salah satu contoh dalam membuat Surat Permintaan Pembayaran (SPP) dalam hal ini contoh pelaporan APBDes.

Apabila kita akan mengajukan pencairan lagi maka jumlah dana yang sudah dicairkan harus dimasukan ke kolom pencairan s/d yang lalu, dan permintaan sekarang harus dikosongkan terlebih dahulu. Nah, apabila kita memindahkan secara manual, cukup lumayan menguras waktu dan tenaga. Untuk mengantisipasi hal tersebut, kami mencoba membuat sebuah tombol perintah “Pindahkan Data” maka secara otomatis data akan dipindahkan dan data yang sudah tidak digunakan akan dihapus.

Perhatikan contoh gambar di atas :

• kita harus memindahkan data dari kolom “Jumlah Sampai Saat Ini” ke kolom “Pencairan s/d Yang Lalu”
• dan kolom “Permintaan Sekarang” harus dikosongkan dulu.
• Di sini kami akan memberi nama range (silahkan baca Cara Memberi Nama Pada Range ), terlebih dahulu pada kolom “Jumlah Sampai Saat Ini” pada cell H14 sampai H27 dengan nama range “saat_ini” kemudian pada kolom “Permintaan Sekarang” yaitu cell G14 sampai G27, kami beri nama range “sekarang”

Memindahkan Data Secara Otomatis

• Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
• Klik Insert kemudian klik Module
• Copy Paste kode berikut di bawah ini dan masukan ke dalam module


Kode VBA Excel untuk Memindahkan Data Secara Otomatis

'https://baladaka.blogspot.com
'============================

Sub pindahkan_data()
Worksheets("SPP").Select
Worksheets("SPP").Range("saat_ini").Select

Application.CutCopyMode = False
    Sheets("SPP").Range("saat_ini").Copy
    Sheets("SPP").Range("F14").PasteSpecial xlPasteValues
 
	'Menghapus Data 
 	Sheets("SPP").Range("sekarang").ClearContents

'Menampilkan Pesan
     MsgBox "Data Sudah di Pindahkan... by baladaka.blogspot.com"

End Sub




Catatan :


• pindahkan_data nama perintah macro dan bisa dirubah sesuai keinginan
• SPP merupakan nama sheet
• saat_ini merupakan nama range antara cell H14:H27 dan anda bisa saja pada huruf saat_ini diganti dengan tulisan H14:H27
• sedangkan sekarang merupakan nama range antara cell G14:G27 dan anda bisa saja pada huruf sekarang diganti dengan tulisan G14:G27
• Huruf F14 merupakan adalah posisi hasil copi-an yang akan dipindahkan. Anda bisa memodifikasi sesuai kebutuhan


• Selanjutnya kita membuat sebuah tombol “Pindahkan Data” dengan fasilitasi “Text Box”
• Setelah dibuatkan tombol lalu klik kanan pada tombol tersebut lalu klik “Assign Macro...”.
• Kemudian masuk ke menu Assign Macro...
  

  Perintah yang kita buat tadi di module akan tampil di sini, dan dalam hal ini perintah yang kita buat adalah “pindahkan_data” lalu klik kemudian OK.

• Simpan file tersebut ke dalam type atau Save as type : Excel Macro-Enabled Workbook atau type Excel Binary Workbook

Download VBA Excel - Memindahkan Data Secara Otomatis

Download