maklumi sy yg byk mau tp sedikit mampu Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell
"the item with the specified name wasn't found" apa yg salah dan kenapa begitu kalau sy terapkan selain di file lampiran? ________________________________ Dari: Kid Mr. <[email protected]> Kepada: [email protected] Dikirim: Kamis, 21 Juni 2012 10:37 Judul: Re: [belajar-excel] satu tombol utk perintah yang berlawanan 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 > >
