Memindahkan Sebagian Data Secara Otomatis

Pada artikel kali ini kita akan mempelajari bersama cara memindahkan sebagian data. Dan sebagai contoh kita akan mengambil contoh dari Buku Kas Umum.

Pada bulan berikutnya kita harus memindahkan data dari kolom “Jumlah Transaksi Kumulatif” ke kolom “Sampai dengan Bulan Lalu”. Di sini kita akan memindahkan data Penerimaan dan Pengeluaran.

Memindahkan Sebagian 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 Sebagian Data Secara Otomatis

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

Sub PindahDataKasUmum()
    Dim terima, keluar As String
    Dim BarisTerakhir, BarisTujuan As Integer
   
    With Worksheets("Kas Umum")
        terima = .Cells(18, 11).Value
        keluar = .Cells(18, 12).Value
   
    End With
    
   'Memindahkan Data
    With Worksheets("Kas Umum")
        BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
        BarisTujuan = BarisTerakhir + 1
        .Cells(6, 11).Value = terima
        .Cells(6, 12).Value = keluar

	'Menghapus Data
        Sheets("Kas Umum").Range("B7:B16").ClearContents
        Sheets("Kas Umum").Range("J7:M16").ClearContents

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

    End With
End Sub




Catatan :


• PindahDataKasUmum bisa dirubah sesuai keinginan, apa nama perintahnya
• Perhatikan alinea pertama bahwa data yang akan dipindahkan yaitu data di sheets "Kas Umum" dan untuk sell pertama yaitu kolom Penerimaan yang berada di cell 18,11 artinya data yang akan dipindahkan pada kolom Penerimaan berada di baris 18 kolom 11 (silahkan hitung baris dan kolomnya) dan diberi nama terima
• Dan data yang akan dipindahkan lagi yaitu cells 18,12 artinya data yang berada di baris 18 dan kolom 12 pada Pengeluaran yang akan dipindahkan, yang diberi nama keluar
• Selanjutnya pada alinea ke 2
  .Cells(6, 11).Value = terima
  .Cells(6, 12).Value = keluar
  
  Sell 6,11 artinya data yang akan dipindahkan ditempatkan di baris 6 kolom 11 pada Penerimaan dan yang diberi nama terima harus sama dengan data pertama. Sedangkan sell 6,12 artinya data yang akan dipindahkan akan ditempatkan pada baris 6 kolom 12 pada Pengeluaran yang diberi nama keluar
• Pada range B7 sampai B16 dan range J7 sampai M16 adalah data yang akan dihapus otomatis setelah data dipindahkan.


• 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 “PindahDataKasUmum” 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 Sebagian Data Secara Otomatis

Download