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 <hwanas...@yahoo.com>
> **
>
>
> 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.
>
> --- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
> >
> > tabel 1 adalah nama range yang telah dibuat, yang berisi seluruh tabel
> (dari
> > header sampai baris terakhir data). Jadi, ganti tulisan tabel 1 dengan
> nama
> > range tersebut. Nama range tidak bisa berisi spasi dan beberapa syarat
> > lainnya.
> > angka 5 adalah nomor kolom yang menjadi key filter. Jika kolom pertama
> tabel
> > ada di kolom A, dan kolom key untuk filter (dalam hal ini kolom Harga)
> ada
> > di kolom E.
> >
> > Kid.
> >
> > 2011/9/16 hwanasita hwanasita@...
> >
> > > **
>
> > >
> > >
> > > dear Mr Kid.
> > >
> > > setelah dicoba kok runtime error?
> > > untuk "tabel1" di isi table 1 atau kolom yang akan di filter ya? btw
> angka
> > > 5 menandakan apa ya?
> > > yang saya isi adalah sbb:
> > >
> > > private sub commandbutton1_click()
> > >
> > > activesheet.autofilter = false
> > > range("d4:d7").autofilter5,">1000"
> > >
> > > d4:d7 adalah cell harga
> > > ada yg salahkah dengan rumus ini?
> > >
> > > regards
> > > wanasita
> > >
> > >
> > > --- In belajar-excel@yahoogroups.com, "Mr. Kid" mr.nmkid@ wrote:
> > > >
> > > > Dear Hwnasita,
> > > >
> > > > --Mods--
> > > > Milis ini punya sebutan untuk membernya adalah *BeExceler*
> > > > Lain kali disesuaikan ya...
> > > > -----------
> > > >
> > > > coba : (untuk filter harga > 1000)
> > > > activesheet.autofiltermode=false
> > > > range("tabel 1").autofilter 5, ">1000"
> > > >
> > > > Thank You and Regards.
> > > > Kid.
> > > >
> > > > 2011/9/16 hwanasita hwanasita@
> > > >
> > > > > **
> > >
> > > > >
> > > > >
> > > > > dear, xl mania
> > > > > sy punya tabel dengan nama tabel 1
> > > > > isinya adalah
> > > > > no, nama pelanggan, produk, jumlah, harga, total
> > > > > saya buat tombol button filter untuk memfilter harga
> > > > > sdh dicoba tp kok ga bisa running ya...
> > > > > kira2 bisa dicontohkan code untuk command button filternya?
> > > > > thanks
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>
>
