Quantcast

[belajar-excel] code macro command button filter

classic Classic list List threaded Threaded
10 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] code macro command button filter

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

Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] code macro command button filter

Kid
Administrator
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 <[hidden email]>

> **
>
>
> 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
>
>  
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Re: code macro command button filter

Harumi Wanasita

oh... sy minta maaf atas kesalahan menyebut,
itu untuk rumus di macro excel bisa ya? ok sy coba dl
trims..
--- In [hidden email], "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
> >
> >  
> >
> >
>


Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Re: code macro command button filter

Harumi Wanasita
In reply to this post by Kid
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 [hidden email], "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
> >
> >  
> >
> >
>


Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Re: code macro command button filter

Kid
Administrator
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 <[hidden email]>

> **
>
>
> 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 [hidden email], "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
> > >
> > >
> > >
> > >
> >
>
>  
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Re: code macro command button filter

Harumi Wanasita
to mr Kid
sy punya rumus begini (dr buku)Private Sub Commandbutton1_click()Dim
Nilaibawah As LongDim Nilaiatas As long
Nilaibawah = val(textbox1.value)NilaiAtas = val (textbox2.value)
Me.listObjects ("table1").range.autofilter field := 6criteria :=">=" &
nilaibawahoperator:=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 [hidden email], "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 [hidden email], "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
> > > >
> > > >
> > > >
> > > >
> > >
> >
> >
> >
>

Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Re: code macro command button filter

Kid
Administrator
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 <[hidden email]>

> **
>
>
> 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 [hidden email], "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 [hidden email], "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
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>  
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Re: code macro command button filter

Harumi Wanasita
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 [hidden email], "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.
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: [belajar-excel] Re: code macro command button filter

Harumi Wanasita
:)... sy salah mengerti.. ini lampirannya.. apakah bs dibuka? coz sy save dngn cr biasa dgn type macro enabled. tul kah? sy krm by email bkn dr email grup. coz ga bs ngelampirinnya.�
trims before...


=========================================
Mod Note:
Mengikuti Milis BeExcel
- melalui web Yahoo Groups:
  tidak bisa kirim / terima Attachments
- melalui Email :
  bisa Kirim & Terima Attachments
- Melalui Web Nabble.com :
  bisa Kirim & Terima Attachments
(ctv)
=========================================




________________________________
Dari: hwanasita <[hidden email]>
Kepada: [hidden email]
Dikirim: Minggu, 16 Oktober 2011 9:20
Judul: [belajar-excel] Re: code macro command button filter

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

macro 1 latihan.xlsm (33K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Re: code macro command button filter

Kid
Administrator
Berikut adalah cara Anda menuliskan script : (as it is)
Private Sub CommandButton1_Click()
Dim Nilaibawah As Long
Dim NilaiaAtas As Long

Nilaibawah = CLng(TextBox1.Text)
nilaiatas = CLng(TextBox2.Text)

sheetx.ListObject("table1").Range.AutoFilter
field:=6,criteria:= ">="&nilaibawah,operator:=xland,  criteria:=
"<"&nilaibawah

End Sub

Yang perlu diperbaiki :
1. Tulis nama variabel dengan baik. Gunakan dengan konsisten.
>> Contoh :
pada deklarasi : *Dim NilaiaAtas As Long*
pada pemakaian : *nilaiatas = CLng(TextBox2.Text)*

2. Kenali object yang digunakan, termasuk cara penulisan dan pemakaiannya.
>> Contoh :
sheetx : adalah object bernama sheetx yang terdaftar di VBAProject (frame
kiri atas layar VBE), jadi ganti dengan yang ada.
ListObject( : seharusnya *listobjects*
table1 : adalah nama object tabel yang terdaftar di formula name manager
(named range). Pastikan ada nama *table1 *disana.
            Jadi cari nama object di daftar nama object yang terkait. Misal
nama sebuah pivot table dicari di daftar object pivot table pada menu pivot
table.

3. Kenali parameter-parameter sebuah methods atau property, dan perhatikan
lebih detil disertai disiplin penulisan yang baik.
>> Contoh :
criteria:= parameter yang ada ditooltip yang muncul ketika menuliskan
parameter autofilter adalah criteria1:= atau criteria2:= tergantung
parameter yang sedang aktif di edit.

4. Sebuah perintah program selalu diproses per kalimat.
>> Pembatas kalimat adalah 2 karakter titik dua ( :: ).
Nilaibawah = CLng(TextBox1.Text)*::* NilaiaAtas = CLng(TextBox2.Text)

>> kalimat bersambung membutuhkan karakter *underscore mandiri* ( _ ) untuk
memenggal kalimat
sheet*1*.ListObject*s*("table*2*").Range.AutoFilter   * _*
 field:=6,criteria*1*:= ">="&nilaibawah,operator:=xland,  criteria*2*:=
"<"&*NilaiaAtas*

Coba pelajari dasar-dasar penulisan script dan beberapa dasar pemrograman
yang dapat diperoleh pada folder files milis.

Regards.
Kid.

2011/10/16 Harumi Wanasita <[hidden email]>

> **
>
>
> :)... sy salah mengerti.. ini lampirannya.. apakah bs dibuka? coz sy save
> dngn cr biasa dgn type macro enabled. tul kah? sy krm by email bkn dr email
> grup. coz ga bs ngelampirinnya.
> trims before...
>
> =========================================
> Mod Note:
> Mengikuti Milis BeExcel
> - melalui web Yahoo Groups:
> tidak bisa kirim / terima Attachments
> - melalui Email :
> bisa Kirim & Terima Attachments
> - Melalui Web Nabble.com :
> bisa Kirim & Terima Attachments
> (ctv)
> =========================================
>
> ________________________________
> Dari: hwanasita <[hidden email]>
> Kepada: [hidden email]
> Dikirim: Minggu, 16 Oktober 2011 9:20
> Judul: [belajar-excel] Re: code macro command button filter
>
>
> 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-
> ================================================================
>
>  
>
Loading...