mbak Winda, Betul mbak, bahwa contoh tersebut untuk kolom yang secara berurutan akan disusun item unique-nya. Kuncinya hanya satu mbak, yaitu proses copy dari tabel data ke ruang hasil item-item unique. Selama bisa menyusun tabel data (kolom-kolom yang akan diproses) menjadi [tampak] rapat berurutan, maka proses seperti contoh bisa dilakukan. Untuk membuat [tampak], Excel menyediakan properti Hidden dan methods Goto Special
Contoh : kolom Excel : A B C D E F myheader No Kode1 Desc Kode2 Nilai Status Akan membuat daftar unik untuk Kode1,Kode2,Status. Dengan meng-hide kolom A,C, dan E Kemudian seluruh tabel di Goto Special opsi Visible cells only Lalu copy ke ruang hasil Baru deh jalankan proses penyusun unique list yang berupa loop berisi methods RemoveDuplicate Anda bisa coba record macro untuk proses copas di atas. Hasil record macro, nanti bisa menggantikan proses copas dari tabel ke ruang hasil yang ada di prosedur dalam file contoh itu, tepat sebelum loop terhadap removeduplicate dimulai. Kira-kira bisa ada gambarannya kan... Wassalam, Kid. 2012/11/30 Winda Miranti <[email protected]> > ** > > > Dear Mr Kid, > > Mr Kid saya mencoba utk mengaplikasikan Public Sub UnikBanyakKolom() pada > file terlampir > tapi ternyata tidak bisa jalan seperti yg dicontohkan > > Apakah itu secara otomatis membaca kolom per kolom secara > berurutan?bagaimana > kalau kolom yg akan difilter itu tidak selalu berurutan? > Mohon pencerahanya Mr Kid :) > > Berikut saya lampirkan file dari Mr Kid dan file uji coba yg saya bikin > > Regards,Winda > > ----- Pesan yang Diteruskan ----- > Dari: Mr. Kid <[email protected]> > Kepada: [email protected] > Dikirim: Sabtu, 24 November 2012 23:25 > Judul: Re: [belajar-excel] Tes kecepatan macro ambil tanggal > > > > > Maaf ada yang ketinggalan. > > File terlampir adaalh perbaikan dari file sebelumnya, yang berisi : > 1. Pengubahan prosedur Tes_01 agar lebih fleksibel terhadap baris data > seperti Tes_02. > 2. Pengubahan prosedur Tes_01 agar mengolah sisi time. > 3. Pengubahan prosedur Tes_01 agar menghasilkan values. > > Wassalam, > Kid. > > >
