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 > > > > >
