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 <yang seyogyanya merujuk pada sheet DataAnakInf3 pada workbook DataAnak>, 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 <[email protected]> To: [email protected] 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 [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.
