15 New Messages
Digest #2028
3b
Re: Masih tentang bagaimana akses workbook yang lain dari sebuah wor by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
3d
Re: Masih tentang bagaimana akses workbook yang lain dari sebuah wor by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Jan 16, 2013 6:29 pm (PST) . Posted by:
"heru mulyono"
Yth Mr. Kid
saya sudah membuat kode2, namun masih kesulitan rumusnya. file terlampir
Maturnuwun
Pada 14 Januari 2013 10.11, heru mulyono hmulyono24@gmail.com > menulis:
> Oke Mr. Kid
> Akan saya coba membuatnya, sekali lagi terimakasih.
>
> Pada 14 Januari 2013 08.58, Mr. Kid mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Bagaimana kalau dalam data jadwal berisi kodeguru dan kodemapel yang
>> diajarkan si kodeguru
>> Contoh kode guru 1 bisa mengajar 1 (PAI), 2 (CAD), 3 (Math), maka pada
>> data jadwal isinya 1001 yang artinya di jam itu si 1 mengajar PAI
>>
>> Dengan begitu, maka akan dibutuhkan :
>> 1. Tabel daftar guru dengan kode guru sebagai kolom kunci (unik) -> sudah
>> ada
>> 2. Tabel daftar mapel dengan kode mapel untuk jadwal (numerik) bersifat
>> unik
>> 3. Daftar kode guru dan mapel 1001,1002,1003,200X,...,NNNXXX jika ada NNN
>> guru dan XXX mapel
>>
>>
>> Wassalam,
>> Kid.
>>
>> 2013/1/13 heru mulyono hmulyono24@gmail.com >
>>
>>> **
>>>
>>>
>>> Terimakasih Mr. Kid
>>> Sungguh luar biasa....
>>>
>>> selanjutnya saya ada kesulitan dalam memberi kode guru. file terlampir
>>>
>>> Pada 13 Januari 2013 16.35, Mr. Kid mr.nmkid@gmail.com > menulis:
>>>
>>> **
>>>>
>>>>
>>>> Hai Heru,
>>>>
>>>> Coba ubah formula cell AA7
>>>> dari :
>>>>
>>>> =IF(AA6="","",OFFSET($C$2,0,MATCH($Z$2,OFFSET(INDIRECT($X6),COLUMN()-26,0,1,20))-1))
>>>> menjadi :
>>>>
>>>> =IF(AA6="","",OFFSET($C$2,0,MATCH($Z$2,OFFSET(INDIRECT($X6),COLUMN()-26,0,1,20)
>>>> *,0*)-1))
>>>> agar fungsi Match mencari dengan cara pencarian sama persis (exact
>>>> match)
>>>>
>>>> Bisa juga menggunakan fungsi yang lebih panjang seperti file terlampir,
>>>> dengan struktur tabel hasil :
>>>> >> Jadwal jam di AH5:AL5
>>>> >> Jadwal hari di X6:X16
>>>> >> formula di baris kelas (misal di AH7) :
>>>>
>>>> =IFERROR(INDEX($C$2:$V$2,MATCH($Z$2,INDEX(INDEX($C$3:$C$38,((MATCH($X6,$X$6:$X$17,0)+1)/2)*6-5):INDEX($V$3:$V$38,((MATCH($X6,$X$6:$X$17,0)+1)/2)*6),MATCH(AH$5,$B$3:$B$7,0),0),0)),"")
>>>> tanpa bantuan nama range dan tidak menggunakan fungsi volatile seperti
>>>> offset atau Indirect.
>>>> Fungsi volatile akan selalu dikalkulasi meski yang berubah adalah
>>>> sebuah cell yang tidak dirujuk formula manapun, sehingga pada penggunaan
>>>> pada banyak cell akan membuat kalkulasi Excel menjadi lambat setiap kali
>>>> ada update nilai data.
>>>>
>>>> Wassalam,
>>>> Kid.
>>>>
>>>>
>>>>
>>>> 2013/1/13 heru mulyono hmulyono24@gmail.com >
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Yth, para master Excel
>>>>> Mohon pencerahannya, file terlampir
>>>>>
>>>>> Matur nuwun
>>>>> _
>>>>>
>>>>
>>>>
>>>
>>
>>
>
>
saya sudah membuat kode2, namun masih kesulitan rumusnya. file terlampir
Maturnuwun
Pada 14 Januari 2013 10.11, heru mulyono hmulyono24@gmail.
> Oke Mr. Kid
> Akan saya coba membuatnya, sekali lagi terimakasih.
>
> Pada 14 Januari 2013 08.58, Mr. Kid mr.nmkid@gmail.
>
> **
>>
>>
>> Bagaimana kalau dalam data jadwal berisi kodeguru dan kodemapel yang
>> diajarkan si kodeguru
>> Contoh kode guru 1 bisa mengajar 1 (PAI), 2 (CAD), 3 (Math), maka pada
>> data jadwal isinya 1001 yang artinya di jam itu si 1 mengajar PAI
>>
>> Dengan begitu, maka akan dibutuhkan :
>> 1. Tabel daftar guru dengan kode guru sebagai kolom kunci (unik) -> sudah
>> ada
>> 2. Tabel daftar mapel dengan kode mapel untuk jadwal (numerik) bersifat
>> unik
>> 3. Daftar kode guru dan mapel 1001,1002,1003,
>> guru dan XXX mapel
>>
>>
>> Wassalam,
>> Kid.
>>
>> 2013/1/13 heru mulyono hmulyono24@gmail.
>>
>>> **
>>>
>>>
>>> Terimakasih Mr. Kid
>>> Sungguh luar biasa....
>>>
>>> selanjutnya saya ada kesulitan dalam memberi kode guru. file terlampir
>>>
>>> Pada 13 Januari 2013 16.35, Mr. Kid mr.nmkid@gmail.
>>>
>>> **
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>
>
Wed Jan 16, 2013 6:30 pm (PST) . Posted by:
"Muzakki Harun" muzakkiharun@ymail.com
Assalamu'laikum Wr. Wb,
Dear para Master XL
Saya punya masalah yang sebetulnya sangat sederhana. Tapi cukup membuat saya pusing, setiap menginput nomor NIP digit terakhir selalu berubah jadi Nol. Kenapa bisa seperti itu??? Mohon petunjuk dan solusi kepada Para Master XL...
Terima kasih...
Wassalamu;alaikum Wr. Wb.
Best Regard
Muzakki Harun
Dear para Master XL
Saya punya masalah yang sebetulnya sangat sederhana. Tapi cukup membuat saya pusing, setiap menginput nomor NIP digit terakhir selalu berubah jadi Nol. Kenapa bisa seperti itu??? Mohon petunjuk dan solusi kepada Para Master XL...
Terima kasih...
Wassalamu;alaikum Wr. Wb.
Best Regard
Muzakki Harun
Wed Jan 16, 2013 6:53 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikummussalam Wr. Wb.
Excel memiliki spesifikasi teknik. Coba disempatkan untuk melihat
spesifikasi teknik tersebut pada Help.
Untuk tipe data numerik, Excel mampu presisi sampai 15 digit. Lebih dari
itu, digit ke-16 atau lebih akan diubah jadi 0.
Untuk menyimpan data angka yang memiliki digit lebih dari 15, maka tipe
data harus berupa text.
Cara input data angka bertipe text yang mungkin antara lain bisa salah satu
dari beberapa cara berikut :
1. awali penulisan dengan mengetik tanda petik satu ( ' ) seperti
'123456789012345678901
2. ubah format number cell input dari General menjadi Text dengan klik
kanan cell -> format cells -> tab number -> pilih text -> OK -> lakukan
input angka
3. diisi sebagai formula yang menghasilkan data text seperti
="1234567890123456789012345"
Wassalamu'alaikum Wr. Wb.
Kid.
2013/1/16 Muzakki Harun muzakkiharun@ymail.com >
> **
>
>
> Assalamu'laikum Wr. Wb,
>
> Dear para Master XL
>
> Saya punya masalah yang sebetulnya sangat sederhana. Tapi cukup membuat
> saya pusing, setiap menginput nomor NIP digit terakhir selalu berubah jadi
> Nol. Kenapa bisa seperti itu??? Mohon petunjuk dan solusi kepada Para
> Master XL...
> Terima kasih...
>
> Wassalamu;alaikum Wr. Wb.
>
> Best Regard
>
> Muzakki Harun
>
>
>
Excel memiliki spesifikasi teknik. Coba disempatkan untuk melihat
spesifikasi teknik tersebut pada Help.
Untuk tipe data numerik, Excel mampu presisi sampai 15 digit. Lebih dari
itu, digit ke-16 atau lebih akan diubah jadi 0.
Untuk menyimpan data angka yang memiliki digit lebih dari 15, maka tipe
data harus berupa text.
Cara input data angka bertipe text yang mungkin antara lain bisa salah satu
dari beberapa cara berikut :
1. awali penulisan dengan mengetik tanda petik satu ( ' ) seperti
'12345678901234
2. ubah format number cell input dari General menjadi Text dengan klik
kanan cell -> format cells -> tab number -> pilih text -> OK -> lakukan
input angka
3. diisi sebagai formula yang menghasilkan data text seperti
="123456789012
Wassalamu'
Kid.
2013/1/16 Muzakki Harun muzakkiharun@
> **
>
>
> Assalamu'
>
> Dear para Master XL
>
> Saya punya masalah yang sebetulnya sangat sederhana. Tapi cukup membuat
> saya pusing, setiap menginput nomor NIP digit terakhir selalu berubah jadi
> Nol. Kenapa bisa seperti itu??? Mohon petunjuk dan solusi kepada Para
> Master XL...
> Terima kasih...
>
> Wassalamu;alaikum Wr. Wb.
>
> Best Regard
>
> Muzakki Harun
>
>
>
Wed Jan 16, 2013 6:56 pm (PST) . Posted by:
"Mardi" hekerkampoeng
Wa'alaikumussalam wr wb
Pak Muzzaki,
Hal ini pernah dibahas oleh master kita alm siti vi untuk jelasnya bisa dibuka link ini
http://id.answers.yahoo.com/question/index?qid=20110604082007AA0Hv5t
Wassalamu'alaikum wr wb
Mardi
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Muzakki Harun
Sent: 16 Januari 2013 20:36
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Digit terakhir pada nomor NIP berubah kadi Nol
Assalamu'laikum Wr. Wb,
Dear para Master XL
Saya punya masalah yang sebetulnya sangat sederhana. Tapi cukup membuat saya pusing, setiap menginput nomor NIP digit terakhir selalu berubah jadi Nol. Kenapa bisa seperti itu??? Mohon petunjuk dan solusi kepada Para Master XL...
Terima kasih...
Wassalamu;alaikum Wr. Wb.
Best Regard
Muzakki Harun
Pak Muzzaki,
Hal ini pernah dibahas oleh master kita alm siti vi untuk jelasnya bisa dibuka link ini
http://id.answers.
Wassalamu'alaikum wr wb
Mardi
From: belajar-excel@
Sent: 16 Januari 2013 20:36
To: belajar-excel@
Subject: [belajar-excel] Digit terakhir pada nomor NIP berubah kadi Nol
Assalamu'
Dear para Master XL
Saya punya masalah yang sebetulnya sangat sederhana. Tapi cukup membuat saya pusing, setiap menginput nomor NIP digit terakhir selalu berubah jadi Nol. Kenapa bisa seperti itu??? Mohon petunjuk dan solusi kepada Para Master XL...
Terima kasih...
Wassalamu;alaikum Wr. Wb.
Best Regard
Muzakki Harun
Wed Jan 16, 2013 6:55 pm (PST) . Posted by:
"Nori Z" ordinarynori
Makasih Mr. Kid,
Sudah bisa..tapi dia cuma mengakses workbook 'DataPA' ..
Jadi agar bisa ngakses workbook 'DataAnak'...,saya tadi tambahkan ajaa
sFile = "dataanak.xlsx" 'simpan nama workbook
setelah baris
sFile = "datapa.xlsx" 'simpan nama workbook
kira-kira tidak ada masalah kah itu Mr. Kid?
emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr. Kid?...
Makasih banyak-banyak yaaaa.....
Moga Tuhan balas kebaikannya....
Best,
Nori.
________________________________
From: Mr. Kid mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, January 16, 2013 11:17 AM
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
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 mr.nmkid@gmail.com >
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 ordinarynori@yahoo.com >
>
>
>>
>>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 mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>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 ordinarynori@yahoo.com >
>>
>>
>>>
>>>Dear all,,
>>>Please help me.. hikss.. hikss..
>>>Gimana solusinya ? :(
>>>
>>>
>>>thanks...
>>>
>>>
>>>Best,
>>>Nori.
>>>
>>>
>>>
>>>
>>>________________________________
>>> From: Nori Z ordinarynori@yahoo.com >
>>>To: "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
>>>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 zainul_ulum@yahoo.com > .
>>>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.
>>>
>>>
>>>
>>
>>
>>
>
Sudah bisa..tapi dia cuma mengakses workbook 'DataPA&#
Jadi agar bisa ngakses workbook 'DataAnak&#
sFile = "dataanak.
setelah baris
sFile = "datapa.
kira-kira tidak ada masalah kah itu Mr. Kid?
emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr. Kid?...
Makasih banyak-banyak yaaaa.....
Moga Tuhan balas kebaikannya.
Best,
Nori.
____________
From: Mr. Kid mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, January 16, 2013 11:17 AM
Subject: Re: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
Oh sorry, ternyata ada yang salah di baris berikut :
set wbk = workbooks( thisworkbook.
harusnya :
set wbk = workbooks.open( thisworkbook.
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 mr.nmkid@gmail.
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 ordinarynori@
>
>
>>
>>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&#
>>
>>
>>saya salah dimana yaa?
>>makasih,
>>
>>
>>Best,
>>Nori.
>>
>>
>>
>>____
>> From: Mr. Kid mr.nmkid@gmail.
>>To: belajar-excel@
>>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(
>>with rng 'pada range yang diproses
>> if lenb(.value)
>> if .row>3 and .column>9 and .column<12 then 'dibaris setelah header pada kolom 10 sampai 11
>> sfile="
>> set wbk=workbooks(
>> if wbk is nothing then 'workbook belum dibuka
>> 'buka file tanpa update link dan kondisi readonly
>> set wbk = workbooks( thisworkbook.
>> if wbk is nothing then 'gak ada file yang bisa dibuka
>> smsg="tidak ada workbook bernama " & sfile & _
>> " di folder bernama " & thisworkbook.
>> 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)<
>> msgbox smsg,vbcritical
>> endif
>>
>>Wassalam,
>>Kid.
>>
>>
>>2013/
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Nori Z ordinarynori@
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
Wed Jan 16, 2013 7:46 pm (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Maaf baru bisa menjawab:
Terlampir solusi alternative dari saya.
Letakkan kode ini di sheet utama
'===
Option Explicit
Const DATA_ANAK As String = "DataAnak.xlsx"
Const DATA_PA As String = "DataPA.xlsx"
Const KOLOM_ID As String = "D"
Const KOLOM_DOUBLE_CLICK As String = "J:K"
Dim LokasiFile As String
Dim wbDataAnak As Workbook, wbDataPa As Workbook
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
LokasiFile = ThisWorkbook.Path & "\" 'mengambil lokasi folder, semua files diletakkan di semua folder
Dim sht As Worksheet
If Not Intersect(Target, Columns(KOLOM_DOUBLE_CLICK)) Is Nothing Then
Select Case Target.Column
Case 10 'kolom J: DataAnak
'buka data base
On Error Resume Next
Set wbDataAnak = Workbooks(DATA_ANAK)
If Err.Number Then
Set wbDataAnak = Workbooks.Open(LokasiFile & DATA_ANAK)
Err.Clear
End If
With wbDataAnak
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & "tidak ada"
Else
sht.Activate
End If
End With
Case 11 'kolom K: DataPA
'buka data base
On Error Resume Next
Set wbDataPa = Workbooks(DATA_PA)
If Err.Number Then
Set wbDataPa = Workbooks.Open(LokasiFile & DATA_PA)
Err.Clear
End If
With wbDataPa
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & " tidak ada"
Else
sht.Activate
End If
End With
End Select
End If
End Sub
'===
Thanks
-zainul-
2013/1/15 Nori Z ordinarynori@yahoo.com >
Dear all,,
Please help me.. hikss.. hikss..
Gimana solusinya ? :(
thanks...
Best,
Nori.
________________________________________
From: Nori Z ordinarynori@yahoo.com >
To: "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
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 zainul_ulum@yahoo.com > .
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.
Terlampir solusi alternative dari saya.
Letakkan kode ini di sheet utama
'===
Option Explicit
Const DATA_ANAK As String = "DataAnak.
Const DATA_PA As String = "DataPA.
Const KOLOM_ID As String = "D"
Const KOLOM_DOUBLE_
Dim LokasiFile As String
Dim wbDataAnak As Workbook, wbDataPa As Workbook
Private Sub Worksheet_BeforeDou
LokasiFile = ThisWorkbook.
Dim sht As Worksheet
If Not Intersect(Target, Columns(KOLOM_
Select Case Target.Column
Case 10 'kolom J: DataAnak
'buka data base
On Error Resume Next
Set wbDataAnak = Workbooks(DATA_
If Err.Number Then
Set wbDataAnak = Workbooks.Open(
Err.Clear
End If
With wbDataAnak
.Activate
Set sht = .Worksheets(
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & "tidak ada"
Else
sht.Activate
End If
End With
Case 11 'kolom K: DataPA
'buka data base
On Error Resume Next
Set wbDataPa = Workbooks(DATA_
If Err.Number Then
Set wbDataPa = Workbooks.Open(
Err.Clear
End If
With wbDataPa
.Activate
Set sht = .Worksheets(
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & " tidak ada"
Else
sht.Activate
End If
End With
End Select
End If
End Sub
'===
Thanks
-zainul-
2013/1/15 Nori Z ordinarynori@
Dear all,,
Please help me.. hikss.. hikss..
Gimana solusinya ? :(
thanks...
Best,
Nori.
____________
From: Nori Z ordinarynori@
To: "belajar-excel@
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[
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..
Saya sangat mengharapkan bantuan dari para Master disini...
Terimakasih,
Best,
Nori.
Thu Jan 17, 2013 4:04 am (PST) . Posted by:
"Nori Z" ordinarynori
Dear Master Zainul
Terimakasih untuk solusinya,
Ini berjalan dengan baik, merujuk ke workbook dan sheet bersesuaian dan juga bisa langsung menyimpan hasil update nya dari file hasil rujukan/akses tersebut .
Thanks yaa..
Tapi, bagaimana solusi untuk re-name sheet yang kosong atau belum ada dan kemudian meng-copy master table nya? (ketika misalnya di sheet Utama didobel klik pada sel DataAnakInf3 , namun sheet dimaksud belum ada pada workbook DataAnak, apakah dengan macro bisa create sheet baru dengan nama sesuai sel yang didobel klik itu? dan kemudian melakukan pencopy-an master table? ) Demikian juga pada kolom 'Informasi tentang status pekerjaan anak' . Apakah memungkinkan jika pake makro? Ataukah mesti manual gitu? Hikss.. kalo manual mah,, mesti create ratusan tabel dan rename sheet :( ....
Mohon bantuannya..
Makasih...
Best,
Nori.
________________________________
From: zainul_ulum[at]yahoo[dot]com zainul_ulum@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 17, 2013 10:45 AM
Subject: RE: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
Maaf baru bisa menjawab:
Terlampir solusi alternative dari saya.
Letakkan kode ini di sheet utama
'===
Option Explicit
Const DATA_ANAK As String = "DataAnak.xlsx"
Const DATA_PA As String = "DataPA.xlsx"
Const KOLOM_ID As String = "D"
Const KOLOM_DOUBLE_CLICK As String = "J:K"
Dim LokasiFile As String
Dim wbDataAnak As Workbook, wbDataPa As Workbook
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
LokasiFile = ThisWorkbook.Path & "\" 'mengambil lokasi folder, semua files diletakkan di semua folder
Dim sht As Worksheet
If Not Intersect(Target, Columns(KOLOM_DOUBLE_CLICK)) Is Nothing Then
Select Case Target.Column
Case 10 'kolom J: DataAnak
'buka data base
On Error Resume Next
Set wbDataAnak = Workbooks(DATA_ANAK)
If Err.Number Then
Set wbDataAnak = Workbooks.Open(LokasiFile & DATA_ANAK)
Err.Clear
End If
With wbDataAnak
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & "tidak ada"
Else
sht.Activate
End If
End With
Case 11 'kolom K: DataPA
'buka data base
On Error Resume Next
Set wbDataPa = Workbooks(DATA_PA)
If Err.Number Then
Set wbDataPa = Workbooks.Open(LokasiFile & DATA_PA)
Err.Clear
End If
With wbDataPa
.Activate
Set sht = .Worksheets(Target.Value)
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & " tidak ada"
Else
sht.Activate
End If
End With
End Select
End If
End Sub
'===
Thanks
-zainul-
2013/1/15 Nori Z ordinarynori@yahoo.com >
Dear all,,
Please help me.. hikss.. hikss..
Gimana solusinya ? :(
thanks...
Best,
Nori.
________________________________________
From: Nori Z ordinarynori@yahoo.com >
To: "belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com >
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 zainul_ulum@yahoo.com > .
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.
Terimakasih untuk solusinya,
Ini berjalan dengan baik, merujuk ke workbook dan sheet bersesuaian dan juga bisa langsung menyimpan hasil update nya dari file hasil rujukan/akses tersebut .
Thanks yaa..
Tapi, bagaimana solusi untuk re-name sheet yang kosong atau belum ada dan kemudian meng-copy master table nya? (ketika misalnya di sheet Utama didobel klik pada sel DataAnakInf3 , namun sheet dimaksud belum ada pada workbook DataAnak, apakah dengan macro bisa create sheet baru dengan nama sesuai sel yang didobel klik itu? dan kemudian melakukan pencopy-an master table? ) Demikian juga pada kolom 'Informasi tentang status pekerjaan anak' . Apakah memungkinkan jika pake makro? Ataukah mesti manual gitu? Hikss.. kalo manual mah,, mesti create ratusan tabel dan rename sheet :( ....
Mohon bantuannya..
Makasih...
Best,
Nori.
____________
From: zainul_ulum[
To: belajar-excel@
Sent: Thursday, January 17, 2013 10:45 AM
Subject: RE: [belajar-excel] Masih tentang bagaimana akses workbook yang lain dari sebuah workbook .
Maaf baru bisa menjawab:
Terlampir solusi alternative dari saya.
Letakkan kode ini di sheet utama
'===
Option Explicit
Const DATA_ANAK As String = "DataAnak.
Const DATA_PA As String = "DataPA.
Const KOLOM_ID As String = "D"
Const KOLOM_DOUBLE_
Dim LokasiFile As String
Dim wbDataAnak As Workbook, wbDataPa As Workbook
Private Sub Worksheet_BeforeDou
LokasiFile = ThisWorkbook.
Dim sht As Worksheet
If Not Intersect(Target, Columns(KOLOM_
Select Case Target.Column
Case 10 'kolom J: DataAnak
'buka data base
On Error Resume Next
Set wbDataAnak = Workbooks(DATA_
If Err.Number Then
Set wbDataAnak = Workbooks.Open(
Err.Clear
End If
With wbDataAnak
.Activate
Set sht = .Worksheets(
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & "tidak ada"
Else
sht.Activate
End If
End With
Case 11 'kolom K: DataPA
'buka data base
On Error Resume Next
Set wbDataPa = Workbooks(DATA_
If Err.Number Then
Set wbDataPa = Workbooks.Open(
Err.Clear
End If
With wbDataPa
.Activate
Set sht = .Worksheets(
If sht Is Nothing Then
MsgBox "sheet " & Target.Value & " tidak ada"
Else
sht.Activate
End If
End With
End Select
End If
End Sub
'===
Thanks
-zainul-
2013/1/15 Nori Z ordinarynori@
Dear all,,
Please help me.. hikss.. hikss..
Gimana solusinya ? :(
thanks...
Best,
Nori.
____________
From: Nori Z ordinarynori@
To: "belajar-excel@
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[
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..
Saya sangat mengharapkan bantuan dari para Master disini...
Terimakasih,
Best,
Nori.
Thu Jan 17, 2013 4:41 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba script berikut : (letakkan pada event yang Anda gunakan)
Dim rng As Range 'range yang diproses
Dim vFile As Variant 'nama workbook tujuan
Dim sMsg As String 'wadah pesan ke user
Dim wbkApp As Workbook 'workbook pemanggil
Dim wbk As Workbook 'workbook tujuan
Dim sht As Worksheet 'sheet tujuan
Dim shtNew As Worksheet 'sheet baru
Dim shtMain As Worksheet
Dim lSht As Long 'indeks sheet
Application.ScreenUpdating = False
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
Set wbkApp = ThisWorkbook
Set shtMain = ActiveSheet
vFile = Array("dataanak.xlsx", "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.Open(ThisWorkbook.Path & "\"
& vFile(.Column
- 10), False, True)
If wbk Is Nothing Then 'gak ada file yang bisa
dibuka
sMsg = "tidak ada workbook bernama " &
vFile(.Column
- 10) & _
" di folder bernama " & ThisWorkbook.Path
GoTo Keluar 'ke blok keluar dibawah sana
End If
End If
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 " & vFile(.Column -
10)
wbk.Close False 'tutup workbook tanpa
di save
GoTo Keluar 'ke blok keluar
dibawah sana
End If
'buat worksheet baru di workbook pemanggil
Set shtNew =
wbkApp.Sheets.Add(after:=wbkApp.Sheets(wbkApp.Sheets.Count))
sht.UsedRange.Copy shtNew.Range("a1") 'copy data tujuan
ke pemanggil di a1
wbk.Close False 'tutup wbk tujuan
'beri nama sheet baru
Err.Clear
lSht = 0
shtNew.Name = .Value
Do While Err.Number <> 0
Err.Clear
lSht = lSht + 1
shtNew.Name = .Value & "_" & lSht
Loop
shtMain.Activate 'aktifkan sheet
pemanggil
sMsg = "Done."
End If
End If
End With
Keluar:
Err.Clear
On Error GoTo 0
Application.ScreenUpdating = True
If Len(sMsg) > 5 Then
MsgBox sMsg, vbCritical
ElseIf Len(sMsg) = 5 Then
MsgBox "Done.", vbInformation
End If
Yang merah untuk menyusun multi file tergantung urutan kolom yang rapat
Wassalam,
Kid.
2013/1/17 Nori Z ordinarynori@yahoo.com >
> **
>
>
> Makasih Mr. Kid,
> Sudah bisa..tapi dia cuma mengakses workbook 'DataPA' ..
>
> Jadi agar bisa ngakses workbook 'DataAnak'...,saya tadi tambahkan ajaa
> sFile = "dataanak.xlsx" 'simpan nama workbook
> setelah baris
> sFile = "datapa.xlsx" 'simpan nama workbook
> kira-kira tidak ada masalah kah itu Mr. Kid?
>
> emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum
> dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr.
> Kid?...
> Makasih banyak-banyak yaaaa.....
> Moga Tuhan balas kebaikannya....
>
> Best,
> Nori.
>
>
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, January 16, 2013 11:17 AM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> 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 mr.nmkid@gmail.com >
>
> 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 ordinarynori@yahoo.com >
>
> **
>
> 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 mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *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 ordinarynori@yahoo.com >
>
> **
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Nori Z ordinarynori@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
> *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
> zainul_ulum@yahoo.com > .
> 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.
>
>
>
>
>
>
>
>
>
>
>
Dim rng As Range 'range yang diproses
Dim vFile As Variant 'nama workbook tujuan
Dim sMsg As String 'wadah pesan ke user
Dim wbkApp As Workbook 'workbook pemanggil
Dim wbk As Workbook 'workbook tujuan
Dim sht As Worksheet 'sheet tujuan
Dim shtNew As Worksheet 'sheet baru
Dim shtMain As Worksheet
Dim lSht As Long 'indeks sheet
Application.
On Error Resume Next 'trap error agar jalan terus, karena proses akibat
error diletakkan setelah baris error
Set rng = Target.Resize(
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
Set wbkApp = ThisWorkbook
Set shtMain = ActiveSheet
vFile = Array("
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.Open(
& vFile(.Column
- 10), False, True)
If wbk Is Nothing Then 'gak ada file yang bisa
dibuka
sMsg = "tidak ada workbook bernama " &
vFile(.Column
- 10) & _
" di folder bernama " & ThisWorkbook.
GoTo Keluar 'ke blok keluar dibawah sana
End If
End If
wbk.Activate 'aktifkan
workbook
Set sht = wbk.Sheets(.
workbook sesuai isi range yang diproses
If sht Is Nothing Then 'gak ada sheet dimaksud
sMsg = "tidak ada sheet bernama " & .Value & _
" dalam workbook bernama " & vFile(.Column -
10)
wbk.Close False 'tutup workbook tanpa
di save
GoTo Keluar 'ke blok keluar
dibawah sana
End If
'buat worksheet baru di workbook pemanggil
Set shtNew =
wbkApp.Sheets.
sht.UsedRange.
ke pemanggil di a1
wbk.Close False 'tutup wbk tujuan
'beri nama sheet baru
Err.Clear
lSht = 0
shtNew.Name = .Value
Do While Err.Number <> 0
Err.Clear
lSht = lSht + 1
shtNew.Name = .Value & "_" & lSht
Loop
shtMain.Activate 'aktifkan sheet
pemanggil
sMsg = "Done."
End If
End If
End With
Keluar:
Err.Clear
On Error GoTo 0
Application.
If Len(sMsg) > 5 Then
MsgBox sMsg, vbCritical
ElseIf Len(sMsg) = 5 Then
MsgBox "Done."
End If
Yang merah untuk menyusun multi file tergantung urutan kolom yang rapat
Wassalam,
Kid.
2013/1/17 Nori Z ordinarynori@
> **
>
>
> Makasih Mr. Kid,
> Sudah bisa..tapi dia cuma mengakses workbook 'DataPA&#
>
> Jadi agar bisa ngakses workbook 'DataAnak&#
> sFile = "dataanak.
> setelah baris
> sFile = "datapa.
> kira-kira tidak ada masalah kah itu Mr. Kid?
>
> emm,, jika boleh minta bantu lagi dua lagi pertanyaan saya yang belum
> dapat solusinya agar bisa rename sheet dan copy master tabel gimana dnk Mr.
> Kid?...
> Makasih banyak-banyak yaaaa.....
> Moga Tuhan balas kebaikannya.
>
> Best,
> Nori.
>
>
>
> ------------
> *From:* Mr. Kid mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Wednesday, January 16, 2013 11:17 AM
>
> *Subject:* Re: [belajar-excel] Masih tentang bagaimana akses workbook
> yang lain dari sebuah workbook .
>
>
> Oh sorry, ternyata ada yang salah di baris berikut :
> set wbk = workbooks( thisworkbook.
> , false,true )
> harusnya :
> set wbk = workbooks.open( thisworkbook.
> 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 mr.nmkid@gmail.
>
> 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 ordinarynori@
>
> **
>
> 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&#
> baris 17..
>
> saya salah dimana yaa?
> makasih,
>
> Best,
> Nori.
>
> ------------
> *From:* Mr. Kid mr.nmkid@gmail.
> *To:* belajar-excel@
> *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(
> with rng 'pada range yang diproses
> if lenb(.value)
> if .row>3 and .column>9 and .column<12 then 'dibaris setelah
> header pada kolom 10 sampai 11
> sfile="
> set wbk=workbooks(
> yang bernama sesuai sfile
> if wbk is nothing then 'workbook belum dibuka
> 'buka file tanpa update link dan kondisi readonly
> set wbk = workbooks( thisworkbook.
> , false,true )
> if wbk is nothing then 'gak ada file yang bisa
> dibuka
> smsg="tidak ada workbook bernama " & sfile & _
> " di folder bernama " & thisworkbook.
> 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)<
> msgbox smsg,vbcritical
> endif
>
> Wassalam,
> Kid.
>
> 2013/1/15 Nori Z ordinarynori@
>
> **
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------
> *From:* Nori Z ordinarynori@
> *To:* "belajar-excel@
> *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[
> zainul_ulum@
> 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..
> 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.
>
>
>
>
>
>
>
>
>
>
>
Wed Jan 16, 2013 6:57 pm (PST) . Posted by:
"Prazt" praztmath
Assalam...
dear all master, mohon bantuanya; saya membuat form input data menggunakan use form, tetapi saat diisi datanya hanya bisa masuk pada baris pertama saja, bagaimana caranya agar data selalu bisa bertambah dengan penomoran otomatis pada file berikut ( https://www.dropbox.com/s/nzegjmgsvsbkgy1/COBA%20buku%20induk%20-%20SIAP%20PAKE%20-%20Copy.xlsb )maaf hanya saya lampirkan linknya saja karena file terlalu besar
dear all master, mohon bantuanya; saya membuat form input data menggunakan use form, tetapi saat diisi datanya hanya bisa masuk pada baris pertama saja, bagaimana caranya agar data selalu bisa bertambah dengan penomoran otomatis pada file berikut ( https://www.
Wed Jan 16, 2013 7:07 pm (PST) . Posted by:
"sony nurcahyo" sony_pwt
to : rekan2 pakar excel
mohon pencerahannya, tolong kami (koperasi) dibuatkan formula yang dapat membantu kami mengisi kolom2 isian yang kami gunakan utk membuat Rekap Pembiayaan di koperasi kami
(tabel isian terlampir)
terimakasih atas segala pencerahaannya, moga manfaat
sony_pwt : (0281) 7907423
mohon pencerahannya, tolong kami (koperasi) dibuatkan formula yang dapat membantu kami mengisi kolom2 isian yang kami gunakan utk membuat Rekap Pembiayaan di koperasi kami
(tabel isian terlampir)
terimakasih atas segala pencerahaannya, moga manfaat
sony_pwt : (0281) 7907423
Wed Jan 16, 2013 7:08 pm (PST) . Posted by:
"Agestha Hendra" agesthahendra@ymail.com
Terima kasih...mohon lebih detail bagaimana caranya setting add in di excel 2007.?
Regards
Hendra Agestha
________________________________
Dari: "jeliuw@yahoo.com " jeliuw@yahoo.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 17 Januari 2013 8:18
Judul: Re: [belajar-excel] Setting Add In di Excel 2007
Di excell 2007 diaktifkan dulu add ins terbilangnya. Semoga membantu.
Salam
j. Liuw
Powered by Telkomsel BlackBerry®
________________________________
From: "agesthahendra@ymail.com " agesthahendra@ymail.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 16 Jan 2013 16:49:44 -0000
To: belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Setting Add In di Excel 2007
Dear Be-Exceller,..
Saya ada file excel (2003) yang memakai add in terbilang, file add in saya taruh di folder yg sama dengan file excel tsb. Waktu saya pindah folder tsb ke kompi yg memakai excel 2007 maka formula =terbilang(Cel) semua erorr,...mohon bimbingannya..terima kasih
Regards
Hendra Agestha
Regards
Hendra Agestha
____________
Dari: "jeliuw@yahoo.
Kepada: belajar-excel@
Dikirim: Kamis, 17 Januari 2013 8:18
Judul: Re: [belajar-excel] Setting Add In di Excel 2007
Di excell 2007 diaktifkan dulu add ins terbilangnya. Semoga membantu.
Salam
j. Liuw
Powered by Telkomsel BlackBerry®
____________
From: "agesthahendra@
Sender: belajar-excel@
Date: Wed, 16 Jan 2013 16:49:44 -0000
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: [belajar-excel] Setting Add In di Excel 2007
Dear Be-Exceller,
Saya ada file excel (2003) yang memakai add in terbilang, file add in saya taruh di folder yg sama dengan file excel tsb. Waktu saya pindah folder tsb ke kompi yg memakai excel 2007 maka formula =terbilang(Cel) semua erorr,...mohon bimbingannya.
Regards
Hendra Agestha
Wed Jan 16, 2013 9:47 pm (PST) . Posted by:
"d_nozz" d_nozz
dear guru-guru excel
mau tanya nich, knp format angka di excel aneh.
jika saya ketik sembarang angka contoh 12345.
trus di format dengan diperi separator ribuan hasilnya jadi 123.56.000
apa ada yang salah dengan settingan excel nya?
mau tanya nich, knp format angka di excel aneh.
jika saya ketik sembarang angka contoh 12345.
trus di format dengan diperi separator ribuan hasilnya jadi 123.56.000
apa ada yang salah dengan settingan excel nya?
Wed Jan 16, 2013 9:48 pm (PST) . Posted by:
"Mulki" mulki_akbar
Assalamu'alaikum wr. wb.
Selamat siang ...
Mohon bantuan pencerahanya dari rekan2 B-Xlers atas kasus saya, file terlampir.
Saya ingin membuat Laporan yg sumber datanya terdpt pada SHEET GS AMB_aop.
Terlihat Data pada Sheet tersbt di kelompokan ke dalam 3 Group Product yg TOTAL-nya bisa dilihat pada yg diarsir warna PINK spt : GS-AMB (AO-Cust) Conventional, GS-AMB (AO-Cust) MF JIS & GS-AMB (AO-Cust) MF DIN
1. Bagaimana cara menggabung ke-3 group product tersbt dlm 1 laporan di atas yg di urut berdasarkan nama negara, Quantity (PCS) dan Bulan ?
2. Data yg ingin di gabungkan adalah pada Data2 yg di arsir warna biru.
Note : Tadinya saya sudah membuat dg rumus SUMPRODUCT dan saya sudah buat kolom DUMMY AREA di SHEET GS AMB_aop juga field referensi QUANTITY (PCS) di sheet Report by QTY (lihat paling atas) tp hasilnya ERROR
Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
Wassalam,
Mulki
Selamat siang ...
Mohon bantuan pencerahanya dari rekan2 B-Xlers atas kasus saya, file terlampir.
Saya ingin membuat Laporan yg sumber datanya terdpt pada SHEET GS AMB_aop.
Terlihat Data pada Sheet tersbt di kelompokan ke dalam 3 Group Product yg TOTAL-nya bisa dilihat pada yg diarsir warna PINK spt : GS-AMB (AO-Cust) Conventional, GS-AMB (AO-Cust) MF JIS & GS-AMB (AO-Cust) MF DIN
1. Bagaimana cara menggabung ke-3 group product tersbt dlm 1 laporan di atas yg di urut berdasarkan nama negara, Quantity (PCS) dan Bulan ?
2. Data yg ingin di gabungkan adalah pada Data2 yg di arsir warna biru.
Note : Tadinya saya sudah membuat dg rumus SUMPRODUCT dan saya sudah buat kolom DUMMY AREA di SHEET GS AMB_aop juga field referensi QUANTITY (PCS) di sheet Report by QTY (lihat paling atas) tp hasilnya ERROR
Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
Wassalam,
Mulki
Thu Jan 17, 2013 4:04 am (PST) . Posted by:
"Apriyadi Apri" apriyadi_apry
Dear Master Excel,
Saya dapat absensi dengan menggunakan excel dari group para master Excel dan saya rubah sedikit. Ada yang ingin saya tambahkan namun saya tidak mengerti caranya. Mohon bantuan para Master excel agar absennya sesuai dengan apa yang saya inginkan atau dapat lebih baik lagi.
Seperti ini.Pada hari ini saya masuk kerja dengan meng-klik absen hadir dan data nya akan masuk ke sheet absen.namun saat saya klik hadir lagi pada hari yang sama maka datanya akan masuk lagi.Yang saya mengharapkan jika absen hadir yang ke 2 atau absen pulang ke 2 pada hari yang sama tidak tersimpan di sheet absen dan muncul peringatan bahwa telah melakukan absen sebelumnya sehingga tidak terdapat data yang double.
Oh iya kerena ini buka buatan saya.Jadi saya tidak mengetahui apakah absen ini bisa untuk banyak orang sekitar 50 orang dan bisa sampai menyimpan data absen selama 2 atau 3 bulan.
Mohon bantuan dan pencerahannya.Atas perhatian dan bantuannya saya ucapkan terima kasih
Thank
Apriyadi
Saya dapat absensi dengan menggunakan excel dari group para master Excel dan saya rubah sedikit. Ada yang ingin saya tambahkan namun saya tidak mengerti caranya. Mohon bantuan para Master excel agar absennya sesuai dengan apa yang saya inginkan atau dapat lebih baik lagi.
Seperti ini.Pada hari ini saya masuk kerja dengan meng-klik absen hadir dan data nya akan masuk ke sheet absen.namun saat saya klik hadir lagi pada hari yang sama maka datanya akan masuk lagi.Yang saya mengharapkan jika absen hadir yang ke 2 atau absen pulang ke 2 pada hari yang sama tidak tersimpan di sheet absen dan muncul peringatan bahwa telah melakukan absen sebelumnya sehingga tidak terdapat data yang double.
Oh iya kerena ini buka buatan saya.Jadi saya tidak mengetahui apakah absen ini bisa untuk banyak orang sekitar 50 orang dan bisa sampai menyimpan data absen selama 2 atau 3 bulan.
Mohon bantuan dan pencerahannya.
Thank
Apriyadi
Thu Jan 17, 2013 4:04 am (PST) . Posted by:
"Mohammed Asseggaf" man_jufri
Halooo guys,.
Butuh bantuan dari skill kalian nih, saya ada table yang ada di attachmen.
Bingung mau menggunakan formula apa yang tepat ? SUMIF atau SUMPRODUCT ?
Mohon bantuannya yah,. J
Thx a lot
Saggaf
Butuh bantuan dari skill kalian nih, saya ada table yang ada di attachmen.
Bingung mau menggunakan formula apa yang tepat ? SUMIF atau SUMPRODUCT ?
Mohon bantuannya yah,. J
Thx a lot
Saggaf
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar