Coba tutup semua excel, dan mulai buka dari file tersebut. Kemudian di coba klik shapenya, save.
Kid. 2012/6/22 Absolute - Udin <[email protected]> > ** > > > 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 > > > > > >
