Hai Nori,
Letakkan script berikut pada event yang anda sukai antara selection change
atau before double click
dim rng as range 'range yang diproses
dim sFile as string 'nama workbook tujuan
dim sMsg as string 'wadah pesan ke user
dim wbk as workbook 'workbook tujuan
dim sht as worksheet 'nama sheet tujuan
on error resume next 'trap error agar jalan terus, karena proses akibat
error diletakkan setelah baris error
set rng=target.resize(1,1) 'selalu ambil cell pertama yang diproses
with rng 'pada range yang diproses
if lenb(.value)<>0 then 'ada isinya
if .row>3 and .column>9 and .column<12 then 'dibaris setelah
header pada kolom 10 sampai 11
sfile="datapa.xlsx" 'simpan nama workbook
set wbk=workbooks(sfile) 'set workbook dengan workbook
yang bernama sesuai sfile
if wbk is nothing then 'workbook belum dibuka
'buka file tanpa update link dan kondisi readonly
set wbk = workbooks( thisworkbook.path & "\" & sfile
, false,true )
if wbk is nothing then 'gak ada file yang bisa
dibuka
smsg="tidak ada workbook bernama " & sfile & _
" di folder bernama " & thisworkbook.path
goto keluar 'ke blok keluar dibawah sana
endif
endif
wbk.activate 'aktifkan
workbook
set sht=wbk.sheets( .value ) 'set worksheet dalam
workbook sesuai isi range yang diproses
if sht is nothing then 'gak ada sheet dimaksud
smsg="tidak ada sheet bernama " & .value & " dalam
workbook bernama " & sfile
wbk.close false 'tutup workbook tanpa
di save
goto keluar 'ke blok keluar
dibawah sana
endif
sht.activate 'aktifkan worksheet
endif
endif
end with
Keluar:
err.clear
on error goto 0
if lenb(smsg)<>0 then
msgbox smsg,vbcritical
endif
Wassalam,
Kid.
2013/1/15 Nori Z <[email protected]>
> **
>
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Nori Z <[email protected]>
> *To:* "[email protected]" <[email protected]>
> *Sent:* Monday, January 14, 2013 11:18 AM
> *Subject:* [belajar-excel] Masih tentang bagaimana akses workbook yang
> lain dari sebuah workbook .
>
>
> Dear All,
> Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel
> dari sheet yang berbeda dan dengan kode yang bersesuaian?'
> Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com
> <[email protected]> .
> Saya ucapkan banyak terimakasih ..
>
> Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak
> sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan
> menemukan solusinya :( ... )
>
> Pada file terlampir,
> Permasalahannya saya ingin merujuk pada workbook yang lain namun harus
> menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik
> dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam
> file excel ini.
> Yang sangat mumet bagi saya karena form ini merupakan form master / awal
> yang mana nantinya akan dilakukan input data... makanya mesti melakukan
> perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain
> (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan
> kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah
> terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk
> pada sheet dimaksud tersebut...
>
> Saya sangat mengharapkan bantuan dari para Master disini...
> Terimakasih,
>
>
> Best,
> Nori.
>
>
>
>
