Re: ]] XL-mania [[ Bikin Buku Besar Otomatis

wah ini kelihatannya kok belum ada yg nanggap ya...

sepertinya menarik, menggenerate G/L berdasarkan Jurnal-Transaksi yg 

terpisah pisah  di beberapa sheet  (lha wong mau bekerja kok dgn mempersulit diri sendiri..?)

Pemisahan data tabel sebenarnya tidak mengikuti kaidah database, kita mencoba 

menjawab hanya untuk coba-coba, dengan saran hal seperti ini (cara pencatatan 

jurnalnya yg dipisah per periode kecil)  jangan diteruskan..

menuruf fendafatku..

sebaiknya jurnal dijadikan satu tabel, jika ingin ada pemisahhan dng berbagai 

kriteria (misal per bulan) kita dapat melakukannya sebagai REPORT (bukan datanya 

yg dipisah-pisah spt itu) 

pemisahan per kriteria dapat diotomatiskan dengan berbagai fitur, misal dengan:

filter, formula,  pivot table, makro, query/sql, dan mungkn masih ada cara lain lagi).

mengenai "sekali ceklik jadilah G/L "versi coba-coba...

begini boleh ndak yaa ?

   ' I love the loops very much

  ' COA-Temp adalah array, hasil Kolom Akun (AccCol) yg

  ' diproses dgn fungsi LOUV (diperas Unique-Values-nya saja)

   For n = 1 To UBound(COATmp)

      ' tabel jurnal tidak di-Loop tetapi ditebak lokasi recordnya

      ' dengan Match Dan Countif (karen sudah disorted by-Accont)

      i = WorksheetFunction.Match(COARng(n), AccCol, 0)

      q = WorksheetFunction.CountIf(AccCol, COARng(n)) + i - 1

      '-- G/L Report Header --

      r = r + 1

      Report(r, 3) = JurGab(i, 3) & " - " & JurGab(i, 4)   'Nr & Nm Akun

      Report(r, 3).Font.Bold = True                        'Bolding format

      vSaldo = 0:  r = r + 1

      '-- G/L Details --

      For p = i To q

         Report(r, 1) = JurGab(p, 1)   ' Bukt No

         Report(r, 2) = JurGab(p, 2)   ' tgl

         Report(r, 3) = JurGab(p, 5)   ' pjlsn

         Report(r, 4) = JurGab(p, 6)   ' dr

         Report(r, 5) = JurGab(p, 7)   ' cr

         vSaldo = vSaldo + JurGab(p, 6) - JurGab(p, 7)  'running saldo calc

         Report(r, 6) = vSaldo         ' saldo

         r = r + 1

      Next p

      If i > q Then r = r + 1

   Next n

Prosedur Sub "YagituDeh" itu, versi lengkapnya agak kepanjangan, dan masih

perlu bantuan 2 fungsi dalam negeri + 1 Method (prosedur sub)

(1) LOUV, kerjanya seperti RemoveDuplikat tetapi hasilnya berua array

(2) TheRealUsedRange,  kerjaannya memblok Range yg terpakai dlm suatu sheet

      seperti kerja UsedRange tetapi tidak terlalu ngawurr... 

      (fungsi ini menembalikan object Range)

(3)  SekaliTepuk, mengabung dan menyiapkan Jurnal untuk siap di posted ke G.L

Listing lengkap dapat dilihat di VBE MainModule

Members yg berkenan thd kasus ini tetapi membaca posting-nya belakangan (ndak 

kebagian 'dum-duman' file lampiran), masih dapat mengunduhnya sendiri, di mana ya...

~siti
ke mana... ke mana .. ke mana...

2011/10/7 milsrin lee <milsrinlee@yahoo.com>

Dear para pakar excel, Saya mencoba membuat buku besar dari sheet-sheet ini, namun ternyata tidak bisa otomatis, semua dilakukan manual. Mudah-mudahan para pakar disini mempunyai solusi sesuai pertanyaan dibawah ini Dengan masing-masih sheet yang terpisah antara Utangp Piutang, Neraca Saldo, Jurnal Januari s/d Desember Dapatkah dibuatkan Ledger spt contoh sheet yang dikuningkan Kalau bisa dengan aplikasi VBA (dengan menekan 1 tombol cetak misalnya langsung dapat dihasilkan sesuai dengan contoh) Atau juga hasil cetakan sesuai contoh tetapi masih dapat disortir lagi, misalnya dari tanggal sekian s/d tanggal sekian, dan No akun sekian s/d No. akun sekian