Yang ini salah satu produk dalam negeri. public sub Hapus() with sheets("nama_sheetnya").range("a1").currentregion .parent.autofiltermode=false .autofilter 3 , "B" .offset(1).specialcells(xlcelltypevisible).entirerow.delete .parent.autofiltermode=false end with end sub
Ganti "B" dengan teks yang menjadi kriteria kolom ke-3 (kolom C) yang akan dihapus barisnya. Bisa diganti dengan nilai disuatu cell input tertentu. Wassalam, Kid. 2012/10/25 him mah <himmah....@gmail.com> > ** > > > sudah ketemu jawabannya disini > > http://www.rondebruin.nl/delete.htm > > Pada tanggal 25/10/12, him mah <himmah....@gmail.com> menulis: > > > maaf mau tanya tentang hapus baris, > > > > kita punya tabel yang terdiri dari 3 kolom (NO,KODE dan KET), > > sedangkan barisnya tidak tentu > > > > dikolom NO terdapat baris yang kosong > > > > misal datanya seperti ini > > > > NO KODE KET > > 1 ABC A > > 2 DEF A > > GHI B > > 3 JKL B > > MNO A > > 4 PQR B > > 5 STU B > > > > terus kita ingin menghapus/menghilangkan baris yang nilai di kolom > > KET="B" sehingga hasilnya didapat seperti ini > > > > NO KODE KET > > 1 ABC A > > 2 DEF A > > MNO A > > > > > > kira-kira VBA nya seperti apa ya > > > > >