Selasa, 31 Mei 2016

[belajar-excel] Digest Number 3868

3 Messages

Digest #3868

Messages

Mon May 30, 2016 2:26 am (PDT) . Posted by:

deddyacc

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


Mon May 30, 2016 5:34 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 deddyacc@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

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

Mon May 30, 2016 9:26 pm (PDT) . Posted by:

deddyacc

Hai Om Kid....


terima kasih sudah reply email saya...

tapi kok gak bisa ya saya masukkan query nya ke excel saya

"Run time error 438 "

rumus macro nya :

Private Sub CommandButton1_Click()

ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("A6").CurrentRegion.autofilter2 , Replace(LCase(ActiveSheet.Range("B4").Value), "all", "*")
ActiveSheet.Range("A6").CurrentRegion.autofilter3 , Replace(LCase(ActiveSheet.Range("B2").Value), "all", "*")
ActiveSheet.Range("A6").CurrentRegion.autofilter4 , Replace(LCase(ActiveSheet.Range("B3").Value), "all", "*")


End Sub

oh iya untuk fungsi "LCase" kok gak jalan ya om ???

heheheheh....maaf amatir ( tapi mau belajar )


terima kasih
Deddy
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar