Dear Harry, Yang seperti ini kelihatannya lebih cocok dengan cara merekam macro secara manual terlebih dahulu baru kemudian mengeditnya.
Salam, Hendrik Karnadi ________________________________ From: Harry <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, 10 November 2012, 17:51 Subject: Bls: [belajar-excel] Membuka & menutup 3 file sekaligus dengan 1x klik Dear BeExceller, Hendrik Kamadi, Terima kasih atas file lampirannya. It's work. Lebih lanjut mendalami mengenai file Induk dan file Anak ini, bagaimana cara dan/atau rumusnya jika kita menginput ke file Anak dengan cara buka-tutup file anak, dan apabila kita membuka file induk, otomatis bisa menginport semua data yang ada pada file-file Anak tersebut ke file Induk...??? Pada lampiran bersama ini saya misalkan 2 contoh yaitu di Sheet1 (baris ke 6) & Sheet2 (baris ke 12, 13 & 14). Terima kasih atas informasinya. Harry ________________________________ Dari: hendrik karnadi <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Sabtu, 10 November 2012 15:43 Judul: Re: [belajar-excel] Membuka & menutup 3 file sekaligus dengan 1x klik Dear Harry, Mudah2an file terlampir sesuai keinginan anda. SK, 1. Nama file anak mengacu pada file Induk (mis Induk bernama Coba, Anak bernama Coba1, Coba2, Coba3 2. Induk sebagai penggerak (buka tutup tersendiri) sedangkan anak dapat dibuka tutup melalui induk). Salam, Hendrik Karnadi ________________________________ From: Harry <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, 10 November 2012, 13:49 Subject: [belajar-excel] Membuka & menutup 3 file sekaligus dengan 1x klik Dear BeExceller, Saya membuat Workbook yang hasil inputan UserForm-nya ke file database dengan proses buka tutup file. Jika saya menggunakan 1 file database, berarti proses penginputannya harus bergantian. Karenanya saya menggunakan 3 file database sekaligus dng nama DATABASE_1, DATABASE_2 & DATABASE_3. Untuk meng-akses (membuka) database dari Workbook aktif biasanya saya menggunakan rumus sbb: Private Sub Cmdopenfile_Click() Dim wbkA As Workbook, wbkDATABASE As Workbook On Error Resume Next Set wbkA = ThisWorkbook If Workbooks("DATABASE.xls") Is Nothing Then Set wbkA = Workbooks.Open(wbkPROGRAM.Path & "\DATABASE.xls") Else Set wbkDATABASE = Workbooks("DATABASE.xls") End If wbkDATABASE.Activate With Sheets("HOME") .Visible = -1: .Activate End With Unload Me End Sub Tapi setelah menggunakan 3 Database, saya kesulitan untuk meng-akses (membuka dan menutup) 3 file Database tersebut dengan mengacu pada rumus tersebut diatas. Mohon bantuan teman-teman BeExceller untuk dapat memberikan solusi dengan 1 x klik, kita dapat membuka dan/atau menutup 3 file sekaligus. Terima kasih atas berkanan solusinya. Harry
