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. > > > > > > >
