Hai Deddy,
Maksudnya ada pilihan all yang menampilkan semua item di kolom tersebut
ya...
Asumsikan saja :
a. semua kolom data yang akan difilter bertipe text.
b. cells filter di b2:b4 juga bertipe text.
c. teks filter semua item berbunyi 'all'
Untuk memfilter :
with activesheet
.autofiltermode=false
.range("a6").currentregion.autofilter 2, replace(lcase(
.range("b4").value ),"all","*")
.range("a6").currentregion.autofilter 3, replace(lcase(
.range("b2").value ),"all","*")
.range("a6").currentregion.autofilter 4, replace(lcase(
.range("b3").value ),"all","*")
end with
untuk clear filter :
activesheet.autofiltermode=false
Regards,
Kid
2016-05-30 16:08 GMT+07:00 [email protected] [belajar-excel] <
[email protected]>:
>
>
> Dear para master,
>
> Saya baru belajar macro, teknik yang saya gunakan masih dasar ( record
> macro sisipkan query nya ). udah 3 hari ini saya belum bisa memecahkan
> permasalahannya. mungkin ini sangat mudah, tapi bagi saya ruwetnya setengah
> mati... heheheh
>
> mohon bantuannya para master
>
>
> thx
> Deddy
>
>
>
>
