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 > > > > > > _ > > > > > >
