Dear ASL, Ok, sedang saya coba lagi. Tapi masih ada terkendala Terima kasih
Salam DM On Thursday, December 12, 2013 8:26 AM, Ahmad Syaifullah Lubis <[email protected]> wrote: Dear Dwi, mohon point nomor 4 di bawah (email saya yang kemarin) agar diperhatikan secara seksama ya. Salam, ASL ________________________________ From: [email protected] To: [email protected] Date: Wed, 11 Dec 2013 01:46:38 -0800 Subject: Re: Bls: [belajar-excel] Membuat Rekap Invoice secara Otomatis Dear ASL, Terima kasih atas masukkannya, nanti saya akan coba aplikasikan. Mengenai database nama produk memang belum saya buat, karena saya harus collect data terlebih dahulu, untuk nomor invoice juga saya baru perhatikan tidak otomatis ya. Masih harus diperbaiki lagi. Maklum buatnya juga curi-curi waktu jadi tidak terlalu fokus. Nanti coba saya perbaiki lagi, kalau sudah ok saya posting ya dan mohon masukkannya lagi. Salam Dwi On Wednesday, December 11, 2013 8:50 AM, Ahmad Syaifullah Lubis <[email protected]> wrote: 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. 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 > > > > >
