Hai Ferry,
Formula di N1:Y1 dipelihara ya... Boleh gonta ganti formula sesuai
kebutuhan supaya kalkulasinya tepat. Bila perlu, yang IF panjang itu
dibuatkan tabel daftar rekening atau kode transaksi yang akan dipakai
supaya bisa pakai countif ceknya (cuma butuh 1 level if ajah).
Header data hanya 1 baris di baris 1. Nama sheet 'Data Jurnal'
dim rngFormula as range 'variabel range template formula di N1:Y1
dim lRows as long 'variabel untuk jumlah record data
dim rngHasil as range 'variabel range hasil copas formula dan divalueskan
'atur agar kalkulasinya automatic
application.calculation=xlcalculationautomatic
'simpan jumlah record data, berdasar kolom A (kolom ke 1)
'di -1 karena header ada 1 baris, di -0 karena jumlah baris sebelum header
adalah 0 baris
lrows=sheets("Data Jurnal").cells(rows.count,1).end(xlup).row -1-0
'set range template formula
'Kalau bergeser atau bertambah, ubah bagian script yang merujuk ke N1:Y1
menjadi sesuai keadaan yang semestinya.
set rngformula=sheets("Data Jurnal").range("N1:Y1")
'*** kalau bisa menjaga dengan disiplin bahwa area template formula selalu
rapat (tidak ada kolom kosong)
'non aktifkan baris set range formula di atas dan aktifkan baris kode
berikut : (tidak dipengaruhi penambahan kolom formula)
'set rngformula=sheets("Data Jurnal").range( sheets("Data
Jurnal").range("N1") , sheets("Data Jurnal").range("N1").end(xltoright) )
'set range lokasi paste formula
'turun dari baris template formula sebanyak 1 baris (offset)
'diperluas resize menjadi sebanyak baris data (lrows)
set rngHasil=rngformula.offset(1).resize(lrows)
'copy paste range formula ke range hasil
rngformula.copy rnghasil
'*** jika format di range hasil tidak boleh berubah, baris kode copy paste
diatas di nonaktifkan dan aktifkan baris-bari ini :
'rngformula.copy
'rnghasil.pastespecial xlpasteformulas
'range hasil di-values-ken
rnghasil.value=rnghasil.value
'*** jika ada cell yang berisi data angka tapi harus tetap disimpan sebagai
data bertype text,
'non aktifkan baris pem-values-an diatas dan aktifkan baris-baris ini :
'rnghasil.copy
'rnghasil.pastespecial xlpastevalues
'tampilkan pesan
msgbox "Done.",vbinformation,"Copaslu..."
Sampai sini, seluruh formula sudah di-copasvalues-ken. Template formula
tetap terjaga supaya bisa dipakai terus menerus.
Letakkan script di atas pada sebuah prosedur ber-scope public di sebuah
general module dalam VBE.
Buat sebuah shape atau msform object control di worksheet manapun dalam
workbook, dan assign macro untuk memanggil nama prosedur yang berisi script
di atas.
Jika menggunakan activex control command button (bukan button loh ya, karen
activex control), saat design mode ON, double click si commandbutton agar
tercipta prosedur sub dari event click. Isi dengan nama prosedur yang
berisi script diatas dan turn off design mode.
Save as workbook dan pastikan untuk memilih jenis Macro Enabled Workbook
(.xlsm) atau Excel blabla-2003 (.xls)
Kalau sudah nyaman dalam mengikuti alur proses diatas, baru deh nanti si
cekrip disederhanakan...
Selamat mencoba.
Wassalam,
Kid.
2013/10/10 Ferry Ferdian <frn...@yahoo.com>
> **
>
>
> Terima kasih sebelumnya,
>
> Disini ingin saya jelaskan bahwa terdapat dua sheet, sheet pertama berisi
> database rekening dan sheet kedua lembar kerja. lembar kerja dapat
> dijelaskan berikut :
> 1. pada kolom A s/d L adalah data berisi data jurnal accounting yang
> dipindahkan dalam bentuk text file ke excel.
> 2. pada kolom N diambil data dari kolom C dan D yang dianggap nomor
> rekening.
> 3. kolom O ambil datt kode transaksi.
> 4.kolom P ambil data dari kolom C yang dianggap kode jurnal untuk
> bunga/margin, nomor kode dapat dilihat pada kolom P yg sudah saya buat
> rumusnya.
> 5. kolom Q dan R memberikan formula roundup.
> 6. kolom Ss/d V memasukkan formula untuk mencocokkan.
> 7. kolom W s/d Y adalah hasil, sedangkan kolom x diperoleh dari Sheet
> databse rekening.
> 8. agar tidak lama prosesnya saya batasin s/d baris ke 2500.
>
> berikut kembali saya attach workbook yang sudah ada rumusnya
> Teima kasih
>
> Ferry
>
>
>
>
> On Thursday, October 10, 2013 5:23 AM, Mr. Kid <mr.nm...@gmail.com>
> wrote:
>
> Hai Ferdy,
>
> imo,
> Sebaiknya dijelaskan proses yang akan dibuat, sehingga bisa membandingkan
> dengan script yang Anda buat. Bila perlu, lampirkan workbook yang berisi
> script tersebut ke milis.
>
> Wassalam,
> Kid.
>
>
>
> 2013/10/9 Ferry Ferdian <frn...@yahoo.com>
>
> **
>
> yth,
> Master Excel & VB
>
> saya lagi buat tools yang dapat mencacah nomor rekening berdasarkan
> bunga/margin yang diterima nasabah. jika para master ada yang dapat
> menyempurnakan atau memperbaiki agar lebih baik dan cepat prosesnya, atas
> infonya saya ucapkan terima kasih.
>
>
> Ferry
>
>
>
>
>
>
