maaf mr kid di email sy tdk mucul lampirannya. bs dikirim lg?
trm ksh,
================================================================
Mod Note:
Memang tidak ada lampirannya, karena anda sendiri juga
tidak pernah melampirkan contoh data yg ditanyakan dlm workbook
-ctv-
================================================================
--- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> File lampiran akan memudahkan pencarian sebabnya.
>
> Coba :
> NilaiBawah=clng(textbox1.text)
> nilaiatas=clng(textbox2.text)
> *sheetX.listObjects ("table1").range.autofilter field := 6,**criteria :=">="
> & nilaibawah,**operator:=xland,**criteria2:="<" & nilaiatas*
>
> Bahasa manusianya :
> "Di sheetX pada object berupa table bernama table1, pada rangenya si object,
> adakan autofilter berdasar kolom ke-6 di tabel, yang nilainya >= nilaibawah
> dan < nilai atas."
>
> Kid.
>
> 2011/10/16 hwanasita <hwanasita@...>
> > to mr Kid
> > sy punya rumus begini (dr buku)
> > Private Sub Commandbutton1_click()
> > Dim Nilaibawah As Long
> > Dim Nilaiatas As long
> > Nilaibawah = val(textbox1.value)
> > NilaiAtas = val (textbox2.value)
> > *Me.listObjects ("table1").range.autofilter field := 6*
> > *criteria :=">=" & nilaibawah*
> > *operator:=xland,*
> > *criteria2:="<" & nilaiatas*
> > End Sub
> >
> > sy masih bingung dengan tulisan yg merah maksudnya apa? tp begitu di run
> > kok error. yg error dimananya ya??
> >
> > maksudnya akan dilakukan penyaringan data dengan 2 batas nilai text box 1
> > sebagai nilai bawah dan text box 2 sebagai nilai atas.
> >
> > terimakasih pencerahannya.
