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