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
