Re: [belajar-excel] Mohon Bantuan : Memverifikasi 2 tabel menjadi tabel baru (melihat sisa hutang di konsumen)

[Haps]

mungkin begini:

Sub SaringRecord()
   '--coded by Hapsari // Nov 26, 2011--
   For n = 1 To Tb1.Rows.Count
      Ada = False
      ' pembandingan diulang sebanyak data di tabel2 (harusnya bisa pakai
Countif)
      For i = 1 To Tb2.Rows.Count
         Ada = Ada Or (Tb1(n, 1) & Tb1(n, 2) & Tb1(n, 3) = Tb2(i, 1) &
Tb2(i, 2) & Tb2(i, 3))
      Next
      ' kalau pembandingan menghasilkan "tidak ada yg sama",
      If Not Ada Then
         maka  data di-posted ke Tabel3 dengan metoda Kupi (gak pakai Ruti)
         r = r + 1
         Tb1(n, 1).Resize(1, Tb1.Columns.Count).Copy
         Tb3(r, 1).PasteSpecial 12
      End If
   Next n
   Application.CutCopyMode = False
End Sub

Cara penyaringannya terlalu kaku, persis yg dicontohkan, tanpa perasaan,
tanpa mengembangkan ke hal lain
© Kalau  di baris data  : *3 cell data di tabel1 = ** **3 cells data di
tabel2*
   maka  Baris di Tabel1 tidak dimasukkan ke tabel3

Jadi misalnya ada NOP 33.99.099.003.099.0099.,0  Nama: Samijan
Di tabel 1 = Utang 1500,  di tabel 2  = bayar 600;
Hasil di tabel3  bukan MASIH utang 900 tetapi tetap dicatat sebagai Utang
1500.
"Acara Cicil-Mencicil" tidak ada dan hal itu tidak dijelaskan oleh pemilik
kasussss..

-haps-


2011/11/26 iwenk setiyawan <iwenk.setiya...@gmail.com>
> mohon bantuan, bagaimana komparasi 2 tabel data yaitu tabel hutang
> dengan tabel yang sudah dibayar sehingga menghasilkan tabel baru yang
> menunjukkan sisa hutang yang belum terbayar,
> untuk lebih jelasnya dalam attach terlampir
> matur nuwun bantuannya

Memfilter tabel (by iHaps).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12