Ada pertanyaan? Masuk ke Forum atau klik di sini..!

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

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..

Dear Pembaca Budiman,

Postingan dibawah ini diperuntukkan kepada anda yang sedang bereksperimen dengan Jurus Kedua Kitab VBA Excel Level Satu yaitu JURUS PINDAHAN.

Jurus atau macro ini digunakan untuk memindahkan data suatu isian ke database jika kondisi dirubah seperti Gambar 1 dan Gambar 2 dibawah. Kita mulai praktikan yaa. Mohon buka kembali buku anda halaman 32 untuk Edisi Cover Hijau dan halaman 30 untuk Edisi Cover Coklat, pada halaman untuk mempelajari kembali langkah 3 dan langkah 4 .

Langkah 3 pada buku adalah menyiapkan Form Inputan seperti gambar 1 sebelah kiri. Kemudian selanjutnya anda rubah menjadi Form Inputan seperti gambar 1 sebelah kanan.

Pindahan1

Kemudian untuk Langkah 4 adalah menyiapkan Database dan Header (Nama, Alamat) seperti pada gambar 2 sebelah kiri menjadi seperti gambar 2 sebelah kanan.

Pindahan2

Tentunya, agar VBA berjalan dengan hasil yang sama sesuai perubahan diatas Code pada Sub Procedure “Pindahan” pada buku yang anda telah praktikan harus ikut dirubah.

Pindahan3

Perhatikan perbedaan Sub Procedure “Pindahan” pada buku gambar 3 sebelah kiri dan perubahannya ada di kanannya kemudian bandingkan dengan perubahan pada gambar 1 dan gambar 2 … Baik jika tidak ada pertanyaan kita lanjutkan :)

Pindahan4

Untuk langkah-langkah lainnya dapat mengikuti buku kembali. Code 1 dan 3 diatas telah lengkap dipaparkan dalam buku hanya Code 2 yang akan kami jelaskan.

Code 2:

Pindahan5

Dengan Code lengkap diatas VBA akan mencari baris terakhir dimana terbagi 4 pencarian yang diwakili abjad pada gambar 6 dibawah:

Pindahan6

  1. menentukan cell awal yaitu C2 atau Header yang mewakili tolakan awal pencarian
  2. mencari data terakhir dibawah header
  3. melompat kepada ROW paling akhir pada worksheet (Code C ini tidak berfungsi jika database belum berisi data atau masih kosong karena sudah diwakili oleh Code B)
  4. mencari baris terakhir.

Bagaimana hasil praktiknya? SukseS?

Jika sudah mencoba Code diatas anda berhak mendapat bonus Code lain yang lebih sederhana untuk dipraktikkan kembali. Ikuti kembali dengan mengganti Code 2  dengan Code gambar 7 dibawah.

Pindahan7

Code lain gambar 8 meringkas Code A, Code B dan Code C pada Code 2.

Pindahan8

Gimana lebih simple bukan?

Semoga bermanfaat …. Pesan dari pelajaran ini

“Semua anda yang menentukan, jika ada yang mudah kenapa harus cari yang ribet”

Selamat bereksperimen.

 

Salam Excel

Bob