.offset(0,-2).entirerow.clearcontents Wassalam, Kid.
2012/11/17 HaDi <[email protected]> > ** > > > Alhamdulilah Berhasil, > seandainya saya ingin menghapus baris berdasarkan kriteria tersebut apakah > kode ini .offset(0,-2).clearcontents diubah seperti ini > .cell.clearcontents, trimakasih sebelumnya > > > --- In [email protected], "HaDi" <face_call15@...> wrote: > > > > terimakasih Mr.Kid saya coba dulu ke TKP :) > > > > --- In [email protected], "Mr. Kid" <mr.nmkid@> wrote: > > > > > > Wa'alaikumussalam Wr. Wb. > > > > > > Jika dengan VBA untuk kegiatan setiap kali entry data di kolom C ada is > > > di VBE, object sheet yang bersangkutan, pilih combobox kiri item > Worksheet, > > > pilih combobox kanan item Change > > > (ini namanya membuat blok prosedur event change milik worksheet.) > > > Lalu isi blok tersebut (blok dibuka dengan deklarasi public atau > private > > > sub atau function blabla dan ditutuo dengan end sub atau end function) > > > dengan script : > > > with target > > > if .count=1 then 'yang berubah isi hanya 1 cell > > > if .row>1 then 'asumsi header 1 baris di baris 1 excel, yang > > > berubah adalah dibawah header > > > if .column=3 then 'yang berubah adalah kolom ke-3 excel = > > > kolom C > > > if ucase$(.value)="APEL" then > > > .offset(0,-2).clearcontents 'dari kolom C, > > > lompat (offset) 0 baris dan 2 kolom ke kiri (negatif), hapus isinya > > > (clearcontents) > > > endif > > > endif > > > endif > > > endif > > > end with > > > > > > jika untuk banyak cell sekaligus : > > > 1. turnoff fitur autofilter > > > 2. blok kolom C (klik nama kolom Excel yang bunyinya C) > > > 3. aktifkan autofilter > > > 4. lakukan filter untuk item-item yang jadi kriteria, misal 'Apel' saja > > > yang dicentang, caranya : > > > >> hilangkan centang dari item berbunyi (select all) > > > >> centang item-item yang jadi kriteria, misal centang item berbunyi > > > 'Apel' > > > 5. blok data di kolom A (mulai record pertama dan tidak boleh disertai > > > header sampai record terakhir yang tampak) > > > 6. tekan CTRL G (fitur GOTO) -> tekan tombol Special (fitur GOTO > Special) > > > -> pilih visivle cells only -> tekan OK > > > 7. klik kanan yang masih terblok setelah proses 6 -> pilih Clear > Contents > > > 8. turnoff autofilter. > > > > > > Wassalam, > > > Kid. > > > > > > > > > 2012/11/17 HaDi <face_call15@> > > > > > > > ** > > > > > > > > > > > > Assmkm para master > > > > > > > > ada yang ingin sy tanyakan bagai mana caranya menghapus isi sel > dengan > > > > kriteria isi sel lainnya > > > > > > > > misalnya saya memiliki kolom A terdapat nama hewan dan di kolom c > terdapat > > > > nama buah, saya ingin menghapus kolom sel pada kolom A dengan > kriteria Apel > > > > pada kolom C, terima kasih sebelumnya > > > > > > > > _ > > > > > > > > > > > >
