Dasar Macro - menggunakan Tanggal sebagai kriteria (Advanced Filter bag. 3)

Bismillah..

Setelah sebelumnya membahas mengenai dasar penggunaan Macro Advanced Filter disini dan disini, kali ini saya akan coba bahas bagaimana menggunakan Macro dan Advanced Filter untuk memfilter data bertipe tanggal.

Untuk diperhatikan bahwa menggunakan Advanced Filter (juga Data Filter) dan bekerja dengan tanggal biasanya akan sedikit tricky. Artinya keberhasilan skrip yang kita buat akan sangat banyak tergantung dengan format data nya dan setting format tanggal pada komputer yang digunakan. Pada saat file contoh dibuat setting penanggalan pada komputer saya adalah dd/mm/yyyy. Silahkan download 2 file contohnya disini dan disini.

Sekedar untuk menyegarkan, Syntax Advanced Filter beserta argumen nya adalah sebagai berikut :

expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression	Berupa Range, dapat juga berupa Variabel yang merujuk ke obyek Range
Action	Argumen ini wajib disertakan. Argumen ini terdiri atas 2 pilihan yaitu : 1.        xlFilterCopy untuk memfilter dan memindahkan hasilnya ke tempat lain 2.        xlFilterInPlace untuk memfilter data ditempat datanya (tanpa memindahkan hasilnya)
CriteriaRange	Range Kriteria / Parameter filter. Bersifat Optional. Dapat digabungkan dengan karakter Wildcard seperti *, ? dan lain-lain
CopyToRange	Adalah Range tujuan apabila argumen Action menggunakan pilihan xlFilterCopy
Unique	Argumen ini dipakai untuk memfilter hanya record yang unik saja. Default dari argumen ini adalah False
Contoh : Range("Database").AdvancedFilter Action:=xlFilterCopy, _     CriteriaRange:="Criteria", CopyToRange:=Sheets("FilteredList").Range("A1"), _     unique:=False

Hal yang paling penting untuk diperhatikan dari syntax diatas saat menggunakan Advanced Fiter untuk memfilter data bertipe tanggal adalah Format kriteria pada saat penulisan kriteria nya pada argumen CriteriaRange. Format penulisan kriteria haruslah mm-dd-yyyy (Format penanggalan Amerika). Hal ini berkaitan dengan paragraf 2 diatas.

Untuk sebuah data dengan format tanggal yang “tidak lazim” seperti dibawah ini sebisa mungkin lakukan proses format terlebih dahulu.

Pada file contoh pertama di contohkan bagaimana parameter Kriteria ditulis langsung disebelah tabel. Pada file kedua parameter dituliskan melalui sebuah TextBox pada sebuah Userform dan hasil filter ditampilkan melalui sebuah Listbox.