Kalau mau bersih juga (kriteria diinput kata kuncinya) bisa pake contoh macro
Auto Filter --> macro hasil modifikasi dari buku database (lupa judul dan
pengarangnya).
Database Penjualan Peralatan Kantor
Salesman Tanggal Nama barang Jumlah Harga Total
Firman 03/01/2010 Pita Mesin Tik 1 8,000 8,000
Dinu 04/01/2010 Pita Mesin Tik Elektrik 2 25,000 50,000
Citra 07/01/2010 Pita Mesin Tik 5 8,000 40,000
Citra 08/01/2010 Pita Mesin Absensi 5 75,000 375,000
Citra 10/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Wulan 10/01/2010 Pita Printer 2 27,500 55,000
Wulan 12/01/2010 Pita Mesin Tik 3 8,000 24,000
Firman 15/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Agus 16/01/2010 Pita Mesin Tik 5 8,000 40,000
Dinu 17/01/2010 Pita Mesin Tik Elektrik 4 25,000 100,000
Agus 18/01/2010 Pita Printer 3 27,500 82,500
Agus 21/01/2010 Pita Printer 2 27,500 55,000
Dinu 22/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Wulan 23/01/2010 Pita Printer 2 27,500 55,000
Firman 24/01/2010 Pita Printer 3 27,500 82,500
Macronya
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim Krit As String
Krit = InputBox("Masukkan Kata Kunci untuk Filter", "Filter berdasarkan
Kata Kunci Nama Barang")
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Range("Tabel").AutoFilter field:=3, Criteria1:="*" & Krit & "*"
Cancel = True
End Sub
Kata kuncinya "Pita"
File tidak diattach karena over size
Salam,
HK
----- Forwarded Message -----
From: Mr. Kid <[email protected]>
To: BeExcel <[email protected]>
Sent: Tuesday, 2 July 2013, 16:04
Subject: Re: [belajar-excel] Macro : Advanced Filter
1. Pertanyaan saya apakah bisa criteria
diganti variable memory ?
>> tidak bisa, karena dari pembuat fungsi AdvancedFilter ditetakan bahwa
>> criteriarange berupa range berisi kriteria, meskipun tipe input parameternya
>> menggunakan tipe data variant yang bisa menerima array.
2. Sehingga lembar kerja bersih, hanya muncul
hasil filer aja.
>> letakkan tabel kriteria di sheet lainnya (bukan di sheet output) juga bisa
>> membuat sheet output hanya menampilkan hasil filternya
*** bisa dengan opsi xlfiltercopy juga loh
>> buat tabel kriteria, isi tabelnya, lakukan advanced filter, kemudian hapus
>> tabel kriterianya juga bisa membuat sheet output hanya menampilkan hasil
>> filternya saja.
Wassalam,
Kid.
2013/7/2 Heru Safrudin <[email protected]>
>
>Dear Master,
>
>Saya biasa menggunakan macro Advanced
Filter untuk masalah filtering data,
>Salah satu syarat yang harus dipenuhi dalam
advanced filter adalah harus ada criteria,
>Sedangkan criteria harus diletakkan di
dalam cell tertentu
>Pertanyaan saya apakah bisa criteria
diganti variable memory ?
>Sehingga lembar kerja bersih, hanya muncul
hasil filer aja.
>
>Semoga para master bisa memberi pencerahan
>
>Terima kasih
>
>
>
