Pak Jajang, Coba daftarkan nama file tanpa ekstensi file (hanya nama saja) tersebut ke tabel daftar cabang. Kemudian ganti headernya menjadi daftar file. Pada script (ke VBE) dalam prosedur GabungData, ubah baris berbunyi : rngDT.Offset(lRows, 2).Resize(lTmp, 1).Value = .Value pada bagian .Value (setelah tanda sama dengan) diganti dengan ekspresi untuk mengambil kode cabang dari tulisan nama file yang ada dalam properti value tersebut (.Value). Gunakan fungsi-fungsi text seperti mid,left,right atau apa saja yang memungkinkan
Wassalam, Kid. 2012/12/7 jajang muhammad siddik <jajang...@yahoo.co.id> > ** > > > Dear All Master Excel > > seperti yang sudah di kirim Mr. Kid, proses dalam merekap data dapat > dilakukan dengan lancar jaya,ini karena nama file nya tetap. > Nah...permasalahannya bagaimana jika file nya berubah2 tiap hari. > Pada case sebelum nya, file yang di rekap sudah saya rename sesuai kode > cabang. Mis: 362.xs, 115.xls, 248.xls. sementara data sebenarnya adalah > SBD362-06122012.xls, SBD115-06122012.xls, SBD248-06122012.xls. dan data ini > berubah-ubah setiap hari sesuai dengan tanggal data yang di kirimkan. > > Mohon pencerahannya pada master, apakan dengan kondisi data seperti di > atas apakah masih bisa di lakukan pengcopyan... > > Salam, > > Jajang > > >________________________________ > > Dari: Mr. Kid <mr.nm...@gmail.com> > >Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> > >Dikirim: Selasa, 4 Desember 2012 4:51 > >Judul: Re: [belajar-excel] copy data dari file lain > > > > > > > >Pak Jajang, > > > >Mohon tidak cc ke alamat lain lagi ya. > > > >"saya sudah buat dengan VBA (file terlampir, semua data harus di simpan > di C:\Project Sales). tapi saya rasa masih kurang efektif, karena hampir > 80 toko yang harus di rekap, jadi masih memakan waktu, walaupun terlalu > lama seperti copy manual." > >>> VBA digunakan untuk menggabungkan seluruh data membentuk sebuah tabel. > Prosesnya memang melakukan Copy Paste data. Saya rasa 34 detik untuk 144 > files sudah cukup bagus. > > > >"belum lagi karena format yang aneh2, ketika saya beri perintah > activeworkbook.close untuk file sales ada beberapa yang selalu minta > confirmasi save." > >>> Format yang bervariasi tidak berkaitan dengan selalu minta konfirmasi > untuk save. Adanya isi file yang berubah yang membuat munculnya konfirmasi > save saat akan ditutup. Methods Close pada object Workbook memiliki input > parameter status akan di-save atau tidak. Ketika input parameter tersebut > diisi False, maka seluruh proses meminta konfirmasi save akan diabaikan. > > activeworkbook.close FALSE > > > >Coba file terlampir. Letakkan bersama file-file data dari cabang. > > > >fyi, > >- Formula merujuk ke suatu posisi cell. Jika posisi cell berubah-ubah, > maka butuh formula untuk menentukan posisi tersebut lebih dulu. Setelah itu > butuh formula untuk merujuk ke semua area data diposisi yang ditemukan > tersebut. Kemudian proses komputasi terhadap nilai-nilai data bisa > dilakukan. Artinya butuh setidaknya 3 proses. > >- Formula merujuk range di sheet lain dalam workbook yang sama lebih lama > daripada merujuk ke range pada sheet yang sama. > >- Formula merujuk ke file lain butuh lebih lama daripada merujuk ke file > yang sama. > >Jadi, merujuk ke file lain yang posisinya berubah-ubah dengan formula > yang bisa jadi berbentuk array formula walaupun ndak mega formula, bisa > jadi akan sangat lambat. > > > >Mungkin ada masukan dari BeExceller yang lebih pas dari cerita di atas... > hehehe... > > > >Wassalam, > >Kid. > > > > > > > > > >
