Dear Dwi, terima kasih sebelumnya. catata saya saat macro saya jalankan : 1. Nama Pelanggan masih manual, kalau bisa dibuatkan list dengan comba box ya. 2. Tidak ada Database nama produk, bila ada akan mengurangi salah tulis. 3. Nomor Invoice tidak berjalan dengan otomatis bertambah. 4. Salut pengambilan data invoice ke datasub bisa jelas sekali, cuman saya lihat yang masuk ke sheet datasubnya ketika saya input data invoice ke dua kalinya, maka invoice ke dua tsb akan jatuh ke baris ke dua dan ke empat, tidak menempati baris kosong setelah invoice pertama dimasukan.
Mudah2an macro Dwi bisa sempurna ya. Salam, ASL. From: [email protected] To: [email protected] Date: Tue, 10 Dec 2013 01:40:07 -0800 Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis 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. SalamDM 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 copasSalamDM 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.ASLFrom: [email protected]: [email protected]: Mon, 9 Dec 2013 21:58:18 -0800Subject: 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
