Dear Dwi,
mohon point nomor 4 di bawah (email saya yang kemarin) agar diperhatikan secara 
seksama ya.
Salam,
ASL

From: upie...@yahoo.com
To: belajar-excel@yahoogroups.com
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.
SalamDwi

     On Wednesday, December 11, 2013 8:50 AM, Ahmad Syaifullah Lubis 
<syaiful...@hotmail.com> 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: upiet29@yahoo.comTo: belajar-excel@yahoogroups.comDate: Tue, 10 Dec 2013 
01:40:07 -0800Subject: 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 
<upie...@yahoo.com> 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 <syaiful...@hotmail.com> wrote: 












Dear Dwi,bolehkah disharing file rekap invoice tsb, untuk referensi bahan 
pembuatan invoice yang saya sedang kerjakan.terima kasih.ASLFrom: 
upiet29@yahoo.comTo: belajar-excel@yahoogroups.comDate: 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 
<mr.nm...@gmail.com> 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 <upie...@yahoo.com>




















  





      Terlampir error reportnya

    On , dwi mulyaningsih <upie...@yahoo.com> 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








 





















    



















































                                          

Kirim email ke