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 <[email protected]>
> **
>
>
> sudah ketemu jawabannya disini
>
> http://www.rondebruin.nl/delete.htm
>
> Pada tanggal 25/10/12, him mah <[email protected]> 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
> >
>
>
>
