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