Dear ASL, Filenya belum sempurna, untuk monthly report dan customer reportnya belum dicoba (karena bisa disesuaikan dengan kebutuhan) mudah-mudahan bisa lancar dan tidak ada kendala. Nanti kalau sudah benar-benar OK akan saya posting.
Salam DM On Tuesday, December 10, 2013 4:11 PM, dwi mulyaningsih <[email protected]> wrote: Dear ASL, Terlampir filenya. Bisa dijalankan kok, cuma nanti masih mau saya tambahkan lagi. silahkan di copas Salam DM On Tuesday, December 10, 2013 3:44 PM, Ahmad Syaifullah Lubis <[email protected]> wrote: Dear Dwi, bolehkah disharing file rekap invoice tsb, untuk referensi bahan pembuatan invoice yang saya sedang kerjakan. terima kasih. ASL ________________________________ From: [email protected] To: [email protected] Date: Mon, 9 Dec 2013 21:58:18 -0800 Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis Dear All, Akhirnya filenya sudah bisa berjalan. Terima kasih semuanya Terima kasih Mr. Kid, dan juga terima kasih banyak untuk Bapak Hendrik. Sedikit koreksi untuk proses loopnya di kolom 9 dan 10 prosedurnya terbalik, seharusnya 9 untuk satuan dan 10 untuk harga. Terima kasih atas bantuannya. Salam Dwi On Tuesday, December 10, 2013 6:24 AM, Mr. Kid <[email protected]> wrote: Hai Dwi, Mestinya bagian yang menimbulkan error tersebut tidak dibutuhkan karena definisi range subtbl cukup sampai baris subtbl.offset(blabla Jadi 2 baris Set Subtbl setelahnya bisa dihapus. Jika enggan menghapusnya, coba tambahkan Sheets("datasub"). sebelum range(subtbl blabla Pastikan pada sheet datasub, semua baris dikolom B terisi penuh (tidak ada yang blank). Pada prosedur yang digunakan untuk menyimpan data anak, sepertinya proses loop harus diperbaiki menjadi : For r = 1 To JmlItem If .[a12:a30].Cells(r, 1) <> vbnullstring Then TblSub(NewSub + r, 0) = NewSub + r '# urut TblSub(NewSub + r, 1) = .[I3] ' Nr Inv TblSub(NewSub + r, 2) = .[I5] ' Tgl Inv TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy" TblSub(NewSub + r, 3) = .[P4] ' No Faktur Pajak TblSub(NewSub + r, 4) = .[B3] ' Nm Cust TblSub(NewSub + r, 5) = .cells(11+r,4).value ' Nm Produk TblSub(NewSub + r, 8) = .cells(11+r,2).value ' Quantity TblSub(NewSub + r, 9) = .cells(11+r,8) ' Harga TblSub(NewSub + r, 10) = .cells(11+r,3) ' satuan TblSub(NewSub + r, 11) = .cells(11+r,10) ' Jumlah TblSub(NewSub + r, 14) = .cells(11+r,14) ' Kurs endif Next r Wassalam, Kid. 2013/12/9 dwi mulyaningsih <[email protected]> > >Terlampir error reportnya > > > >On , dwi mulyaningsih <[email protected]> wrote: > >Dear pakar excel, > > >File warisan yang saya dapat sudah saya modif, dan akhirnya saya buat seperti >terlampir. >Akan tetapi pada saat rekam data ke tabel masih ada debugnya, mohon solusinya. >terlampir error reportnya. >Terima kasih > > >Salam >DM > > > > >
