Oh sorry, ternyata ada yang salah di baris berikut :
set wbk = workbooks( thisworkbook.path & "\" & sfile
, false,true )
harusnya :
set wbk = workbooks.open( thisworkbook.path & "\" &
sfile , false,true )
Maaf atas kekhilafan yang terjadi.
Moga-moga perbaikan diatas bisa menyelesaikan masalah error-nya.
Mohon kabarnya jika masih muncul error (belum sempet dicoba scriptnya)
Wassalam,
Kid.
2013/1/16 Mr. Kid <[email protected]>
> Coba copas dulu dari milis ke notepad dan pastikan notepad tidak di-word
> wrap.
> Kemudian copas dari notepad ke dalam prosedur pilihan Anda.
>
> Wassalam,
> Kid.
>
>
>
> 2013/1/16 Nori Z <[email protected]>
>
>> **
>>
>>
>> Dear Mr Kid
>> Makasih yaa balasannya,,
>> emm tapi itu dimasukkan dimana?
>> saya letakkan di Sheet1(Utama) dengan event selection change
>> tapi keluar pesan 'Compile Error : Wrong number of arguments or invalid
>> property assignment'
>> terus dia blok kuning nama prosedurnya dan blok biru kata 'workbooks' di
>> baris 17..
>>
>> saya salah dimana yaa?
>> makasih,
>>
>> Best,
>> Nori.
>>
>> ------------------------------
>> *From:* Mr. Kid <[email protected]>
>> *To:* [email protected]
>> *Sent:* Tuesday, January 15, 2013 8:32 PM
>> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
>> yang lain dari sebuah workbook .
>>
>>
>> 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.
>>
>>
>>
>>
>>
>>
>>
>
>
