Silakan coba file terlampir. Kondisi : >> shape untuk filter akan membaca range pertama (pojok kiri atas shape) -> hati-hati dalam meletakkan shape >> setiap shape di assign ke prosedur FilterItem
Berikut bunyi prosedur filter item (rujukan range untuk membaca tabel data
masih statis, sesuaikan dengan kebutuhan).
Public Sub FilterItem()
Dim sShpName As String
Dim rngData As Range, rngShp As Range
'get caller (kasus ini : sebuah shape -> diambil namanya [string])
sShpName = Application.Caller
Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell 'range excel
pertama si shape
Set rngData = Range("b4").CurrentRegion
'set area autofilter
If Sheet1.AutoFilterMode Then
'autofilter udah on maka di clear aja (gak peduli tabel apa yang di
autofilter)
Sheet1.AutoFilterMode = False
Else
'autofilter masih off, filter berdasar nilai di rangenya si shape
(gak pakai panah filter)
rngData.AutoFilter 1, rngShp.Value, visibledropdown:=False
rngData.AutoFilter 2, visibledropdown:=False
rngData.AutoFilter 3, visibledropdown:=False
End If
End Sub
Wassalamualaikum Wr. Wb.
Kid.
2012/6/20 Absolute - Udin <[email protected]>
> **
>
>
> dear all
> mau bertanya codenya utuk satu tombol dg dua perintah, keterangan & hasil
> yg diinginkan ada di lampiran
>
> terima kasih
>
>
>
>
re-filter_data_pakai_shape_per_item_key_bljr.xlsm
Description: Binary data
