ADVANCE FILTER … CARA ASIK MEMFILTER TABEL
iseng2 cek Spam yang masuk di akun email saya … waaah lumaNGyan banyak yang nginep sinih … ada iklan obat kuWat … ada yang ngiming-imingi mau transfer uang dari luWar negri … ada yang pakai hurup kanji (ndak bisa batjanyah … jangan2 isinya surat cinta 
) … tapi ada satu yang istimewa … satu email yang saya curiga bukan spam … setelah saya batja dengan seksama dan dalam tempo yang sesingkat-singkatnya ternyata ini memang email baEk-baEk dari orang baEk-baEk pulaK … kalO sOdara ndak perTJaya simak kutipan emailnya berikOt :
Assalamualaikum mas…
perkenalkan Saya **** ******* di Batam..
mohon bantuannya mas..
saya sedang membuat aplikasi tentang pembayaran biaya sewa, biaya listrik dan air pada Rumah Susun Sederhana..
terlampir file aplikasi yang saya buat mas..
hanya saja saya masih membutuhkan informasi berdasarkan aplikasi yang sudah saya buat tersebut yaitu tentang transaksi yang terjadi dalam satu tanggal tertentu..
misalkan saya butuh informasi yang terjadi pada tanggal 10 desember saja atau tanggal 11 desember saja begitu seterusnya..
kalau bisa informasi tersebut dibuat di sheet yang baru dan satu file itu juga… sehingga nantinya jika saya hanya ingin informasi transaksi tanggal tertentu tinggal mengetik tanggal nya saja, maka muncul semua informasi yang terjadi pada tanggal tersebut…mohon bantuannya mas..
semoga Allah membalasnya dengan yang lebih baik..Wassalam
**** *******
dari email tersebOt yang dapEt saya tangkap problema de Excellente sebagE beriKot :
- butuh informasi yang terjadi pada tanggal 10 desember saja atau tanggal 11 desember saja begitu seterusnya
- informasi tersebut dibuat di sheet yang baru
kita siapkan dulu tabelnya … sheetnya saya kasi judul Data … sheet ini adalam lampiran dari email tersebut yang datanya sudah saya modip agar yang punya ndak keberatan … isinya 5 kolom dan 593 baris data … kayak penampakan berikot
sebenarnya problema tersebOt bisa jugak dicari solusinya dengan modip SearchEngine.xls … tapi saya pengEn sesuWatu yang baru … akhErnya saya pilih pakE Advance Filter … lha trus dimana kita bisa ketemu Advance Filter ini
pada Excel 2003 kita bisa jumpai di Data >> Filter >>Advance Filter … Excel 2007 ada pada Tab Data Group Filter … kalO Excel 2010 maap saya ndak punya … berikOt gambar skrinsyutnya
sedikit penjelasan dari saya yang pastinya ndak bakan bikin jelas 
…
Action
- Filter the list, in-place … penampakan hasil filternya akan tetap pada tabel sumber datanya … yah mirip2 Auto filterlah
- Copy to another location … penampakan hasil filternya akan berada pada range yang telah kita tentukan (lihat penjelasan Copy to)
List range … ini range yang berisi tabel yang akan difilter $A$1:$E$594
Criteria range … range ini berisi kriteria yang akan kita gunakan sebagai dasar filter
dalam gambar skrinsyut saya akan mencoba memfilter dengan dua kriteria yaitu NAMA yang mengandung hurup S dan TANGGAL = 01/11/20011 … kriteria kita taruh di range Data!$H$1:$I$2 … isi dari range tersebOt adalah sbb :
- Cell H1 NAMA
- Cell I1 TANGGAL
- Cell H2 S
- Cell I2 01/11/2011
Copy to … range yang akan menjadi tempat kita menaruh hasil filternya dalam contoh Data!$K$1:$O$1 … range tersebut terdiri atas 5 kolom sama seperti jumlah kolom List range
ketika kita eksekusi dengan klik OK maka hasilnya akan nampak pada range yang sudah kita tentukan … masalahnya waktu kita pengEn menaruh hasilnya di sheet laEn … dan ternyata saat berusaha melakukannya Excel melakukan perlawanan … muncul MessageBox seperti ini
waduuh gimana kalO begini 
… tenang ada kok solusinya … 
macro
pertama kita buwat sheetnya dulu dalam pada hal ini saya pakE sheet yang berjudul Laporan … penampakan sheet tersebOt sebagE berikOt
kriteria yang akan kita gunakan menempati range B3:F4 dan hasilnya kita taruh di B9:F9 … untuk menjalankan macro menggunakan CommandButton FILTER seperti pada gambar yang dihubungkan dengan kode berikOt
Sub AdvFilter()
' ini kode untuk Advance Filternya
ThisWorkbook.Sheets("Data").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=ThisWorkbook.Sheets("Laporan").Range("B3:F4"), _
CopyToRange:=Range("B9:F9"), Unique:=False
' ini kode untuk mencari jumlah data cocok
JmlDataCocok = Application.WorksheetFunction.Count(ThisWorkbook.Sheets("Laporan").Range("B10:B65536"))
' ini kode untuk menuliskan jumlah data cocok ke range B7
ThisWorkbook.Sheets("Laporan").Range("B7").Value = JmlDataCocok & " data cocok dengan kriteria"
End Sub
kode tersebOt meskipun singkat ndak usah diapalin kodenya … sudah ada kok di contoh file AdvanceFilter.xls silahkan download kayak biYasanyah … sedangkan untuk cara bikin CommandButton ada disini
demikiYanlah sOdara2 semoga artikel ini manpaat dan MDLMDL …
Assalamu a’laikum wa rohmatulloh..
“Subhanalloh..”.. “Slalu ada cara”..!!.. “he..he.., saya selalu berkata seperti itu ketika sedang mentok dalam hal apapun.. walaupun pada akhirnya tetap saja saya “tidak” menemukan solusi, bukan “tidak” tapi “belum”.. salut mas, mas Syukron slalu punya cara, punya solusi (pada excel), walo pun n’dak semua masalah bisa dipecahkan oleh excel (artikel mas yang laen)..
Saya ada pertanyaan mas (pertanyaan konyol , amatiran), .CurrentRegion buat apa ya.. bagaimana cara nentuin range yang batas barisnya tidak terbatas, misalnya pada kolom A sampe F seluruh barisnya yang mau kita filter (jaga2 adanya tambahan data), atau kaya di “Application.WorksheetFunction.Count(ThisWorkbook.Sheets(“Laporan”).Range(“B10:B65536″)), “B65536″ angkanya ngga ditulis.. Saya coba2 nulis kode makro buat insert database dari access, database tersebut ngga ada nomornya, jadi ceritanya saya tulis kode yang bisa bikin nomor berurut otomatis, Alhamdulillah berhasil, tapi masalah muncul ketika saya insert 2 buah database dengan nomor urut otomatis secara bersamaan, masalahnya adalah database ter-insert tapi nomor urutnya ngga jalan, tapi kalo kita eksekusi kode satu persatu (pake F8) kodenya berjalan (ngga ada error), apa mungkin terlalu berat ya mas, datanya lumayan banyak..???… (maaf mas, kode yang bisa bikin nomor urut otomatis gmana ya, trus kode buat sort data..)
Maaf mas, saya kebanyakan nanya.. dan Syukron Katsiron atas tanggapannya..
Jazakalloh..
Wassalm,
Ibnu Rojab
gunanya untuk ini :
kalO access saya jarang maEn pak …
kebiasaan saya pada saat entry data lewat form saat akan menambahkan data baru saya persiapkan formnya dulu … misalnya saat saya klik Command Button TAMBAH maka pada textbox no urut saya generate no baru dan pada textbox untuk field yang lain saya kosongkan …
selesai mengisi textboxnya saya klik Command Button OK gunanya untuk menuliskan apa yang ada pada form ke tabel databasenya … sebelum dituliskan saya akan cek apakah ada duplikasi no urut kalO ada saya akan generate no baru sampai tidak ada duplikasi … baru informasinya saya tulis dalam tabel
gimana caranya membuat filter di dalam form dan jika di klik datanya sesuai yang kita klik
jadi tidak ada data yang berbeda ketika kita klik data yang ingin di klik
thx
kuncinya pada penentuan kriteria … jadi pada saat sOdara ceKlik masukkan kode yang akan menulis kriterianya pada range yang telah kita tetapkan sebagE refferensi untuk kriteria filter … tentunya data yang sesuE dengan yang kita ceKilik … naaaggh .. setelah itu tinggal jalankan kode advance filternya …
maaf saya newbie mau nanya nih,gimana caranya membuat data yang jumlah nya di SUM,kemudian setelah di filter hasil SUM nya otomatis mengikuti hasil filter tersebut. trims.
soba pelajari fungsi SUBTOTAL