hmmm....
Jadinya baris cek ada atau tidaknya si sheet diubah sesuai kebutuhan.
Artinya, baris if isnumeric(sshtname) then diganti dengan kondisi lainnya
yang sesuai (bagian isnumeric-nya diganti dengan cara cek lainnya).
hehehe...
pertanyaan Anda sebenarnya adalah bunyi ceknya seperti apa? gitu kan ya...
Ada banyak cara, antara lain :
cara 1. buat prosedur baru yang bertugas untuk loop setiap sheet yang ada,
lalu periksa apakah sheet tersebut memiliki nama seperti yang dipilih user.
> misal di prosedur baru di module tersebut juga
private function CekSheet(sNamaSheet as string) as boolean
dim sht as worksheet
for each sht in thisworkbook.worksheets 'sesuaikan
sendiri bila berkaitan dengan workbook lain
if lcase(sht.name)=snamasheet then
CekSheet=true
exit function
endif
next sht
end function
> lalu baris if isnumeric( blabla dalam prosedur filter diganti
menjadi :
if ceksheet(sshtname) then
cara 2. menyimpan
> misal di prosedur baru di module tersebut juga
private function CekSheet(sNamaSheet as string) as boolean
dim sht as worksheet
on error resume next
set sht=sheets(sNamaSheet) 'sesuaikan sendiri bila
berkaitan dengan workbook lain
err.clear
on error goto 0
CekSheet=not (sht is nothing)
end function
> lalu baris if isnumeric( blabla dalam prosedur filter diganti
menjadi :
if ceksheet(sshtname) then
cara 3. memanfaatkan formula Excel untuk memeriksa apakah suatu ekspresi
dalam formula itu adalah sebuah reference
> baris if isnumeric( blabla dalam prosedur filter diganti menjadi :
if evaluate("=isref('" & sshtname & "'!a1)") then 'sesuaikan
sendiri bila berkaitan dengan workbook lain
Kalau saya,
> jika user TIDAK mungkin mengganti nama sheet (dibuat untuk pasti TIDAK
akan mengganti nama sheet), maka saya pakai yang nomor 3
> jika saya tidak mau repot dengan kondisi workbook yang bisa jadi perlu
dibatasi agar nama sheet tidak boleh diubah, maka saya pakai nomor 1 dengan
membuat tabel referensi nama data (BUKAN nama panggilan sheet) beserta nama
akte kelahiran si sheet, dan yang dicek adalah nama akte kelahiran sheet
(properti codename) bukan nama nama panggilan sheet (properti name). Jadi,
user boleh mengganti nama sheet sesuka hatinya.
Regards,
Kid
On Sat, Nov 12, 2016 at 9:37 AM, achmad adi dido...@ymail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> to mr kid.
> sebelumnya terimakasih ...
>
> kalo seandainya waktu penampilan SEMUA( data semua sheet )
> nama sheet bukan numeric(1.2.3) tapi diganti dengan kata (misal:
> gudang.kantor.areal)
> untuk prosedurnya gimana....
> mohon bantuannya,,,
>
>
> Pada Selasa, 25 Oktober 2016 18:37, "'Mr. Kid' mr.nm...@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Didon,
>
> Terlampir contohnya.
>
> Regards,
> Kid
>
>
>
>
>
>
> 2016-10-24 21:34 GMT+07:00 achmad adi dido...@ymail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> dear master,,,
> saya mencoba membuat adv filter tapi hanya di sheet 1 aja yang bisa
> difilter...
> yang ingin saya tanyakan,,,
> seadainya saya ingin memfilter data tetapi berdasarkan data sheet
> terpilih..
> bagaimanakah caranya...
> mohon pencerahaannya,,,saya lampirkan file
>
> sebelumnya saya sampaikan terimakasih
>
>
>
>
>
>
