Hai Deddy, Cek lagi cara penulisan kodenya. Mungkin kurang teliti.
Regards, Kid On Tue, May 31, 2016 at 11:07 AM, [email protected] [belajar-excel] < [email protected]> wrote: > > > 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 > >
