Bagaimana jika mulai mencoba membuat sendiri setahap demi setahap.
Buat seluruh BeExceller yang ingin belajar VBA, silakan ikut mencoba.
Semoga lebih bisa cepat memahami VBA melalui kasus ini.
Langkah-langkahnya secara umum adalah sebagai berikut.
0. ke VBE (tekan ALT F11) dan buat sebuah module (bonus :: caranya -> ke
menu Insert -> pilih Module)
1. Hapus hasil yang lama. Pakai delete xlshiftup juga bisa
2. Copy data dari no sampai nominal1 ke hasil mulai baris pertama.
3. hitung jumlah record + header di hasil dan simpan disebuah variabel
4. hide kolom nominal1 di data
5. autofilter data pada kolom nominal2 yang tidak blank ("<>")
6. data yang visible (gunakan specialcells visible) di copy dan paste ke
hasil dengan offset sebanyak variabel jumlah record (proses 3)
7. hapus data nama di sheet hasil hanya pada hasil paste terakhir (hasil
proses 6)
8. sort hasil berdasar kolom No secara menaik
9. hasil yang blank (gunakan specialcells celltypeblank) diisi formula
style R1C1 berbunyi : "=R[-1]C & ""(*)"""
10. hasil (seluruh baris ya) di kolom No diberi formulaR1C1 : "=n(R[-1]C)+1"
11. kalkulasi sheet hasil
12. copy paste special values area hasil
Bagi yang masih bingung caranya, silakan posting dengan judul thread :
VBA xx. nama prosesnya
Contoh :
bingung cara nomor 5, buat thread baru (posting email baru ke milis) dengan
subject :
VBA 05. Autofilter data kolom nominal2
Jadi, seluruh proses diharapkan tetap menggunakan data dari Pak Imam dulu,
supaya sama dan seragam.
Harapannya bisa mempermudah proses belajar bersama.
Selamat mencoba dan tetap semangat belajar.
Wassalam,
Kid.
2012/9/6 Imam Sinurat <sin.u...@yahoo.com>
> **
>
>
> Salam Be-Excel..
>
> Mohon dibantu bagaimana kode makro menyisip baris dan mengisi data yang
> sesuai.
>
> Yang diinginkan adalah sbb:
> 1. Semua record Tabel 1. ditampilkan kembali pada Tabel 2., baik Nama
> maupun Nominal1.
> 2. Setiap record yang kolom Nominal2 ada nilainya, maka sisipkan satu
> baris kosong tepat dibawah record tersebut,
> lalu isi nama yang sesuai dibubuhi tanda "(*)", dan Nominal2.
>
> Terima kasih sebelumnya, wassalam
> Imam F. Sinurat
>
>
>
>
