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. SalamDwi 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(blablaJadi 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 rWassalam,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 SalamDM
