Wooow emmeeiizing answer from -Miss Jan Raisin- ^_^ Problem Solved.terimakasih yang sebesar"nya.
Mohon maaf tiada maksud menyinggung server tetangga.kesana aja blom pernah.mutlak salah" kata coz saya masih baru di milis ini.hehee Kalo boleh menambahkan bagaimana kalo "data master" di sni di protect password (semua data master di kasi password,cape juga kalo harus memasukkan passwordnya satu per satu)??coding apa yang harus saya tambahkan?? Mohon penjelasannya kembali,semoga bisa bermanfaat untuk para BeExceler Salam, ChordJR From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Jan Raisin Sent: Wednesday, March 20, 2013 4:47 PM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Tarik Data Pada Banyak File Hanya Mengacu Pada Cell Tertentu Mungkin sebelumnya pertanyaan ini diajukan ke milis tetangga, secara sebutan untuk member di milis ini adalah BeExceler. tapi... gak papa deh.. salah-salah dikit dimaklumi. script ditulis di dalam sebuah modul dan dipanggil menggunakan tombol yang sudah disediakan oleh OP. Option Explicit ' ========================= ' ' Code by : Miss Jan Raisin ' ' untuk milis Belajar Excel ' ' Jogja, 20 Maret 2013 ' ' ========================= ' Sub ImportData() Dim rngLink As Range, rgLink As Range Dim lRow As Long, lLink As Long Dim sJobNbr As String, sFile As String, sPath As String Dim sJobName As String, sPM As String, sOwn As String Dim dMatBgt As Double, dMatCst As Double, dLbrBgt As Double, dLbrCst As Double Dim dSConBgt As Double, dSConCst As Double, dExpBgt As Double, dExpCst As Double Application.ScreenUpdating = False Application.DisplayAlerts = False lRow = Cells(Rows.Count, 3).End(xlUp).Row Set rngLink = Range(Cells(6, 3), Cells(lRow, 3)) For Each rgLink In rngLink lLink = rgLink.Row sJobNbr = Cells(lLink, 2).Value sFile = Left(sJobNbr, 3) & "-" & Mid(sJobNbr, 4, 2) & "-" & Right(sJobNbr, 3) & ".xlsx" sPath = Cells(lLink, 3) & "\" & sFile Workbooks.Open sPath Workbooks(sFile).Activate Sheets("SUMMARY").Select sJobName = Range("e7").Value sPM = Range("c8").Value sOwn = Range("e8").Value dMatBgt = Range("d59").Value dMatCst = Range("e59").Value dLbrBgt = Range("d66").Value dLbrCst = Range("e66").Value dSConBgt = Range("d73").Value dSConCst = Range("e73").Value dExpBgt = Range("d95").Value dExpCst = Range("e95").Value Workbooks("re-BSS Report.xlsb").Activate ' sesuaikan jika nama file berbeda Workbooks(sFile).Close Cells(lLink, 4).Value = sJobName Cells(lLink, 5).Value = sPM Cells(lLink, 6).Value = sOwn Cells(lLink, 7).Value = dMatBgt Cells(lLink, 8).Value = dMatCst Cells(lLink, 9).Value = dLbrBgt Cells(lLink, 10).Value = dLbrCst Cells(lLink, 11).Value = dSConBgt Cells(lLink, 12).Value = dSConCst Cells(lLink, 13).Value = dExpBgt Cells(lLink, 14).Value = dExpCst Next rgLink Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub syarat dan ketentuan berlaku: 1. format nama file harus seragam 2. format dalam sheet SUMMARY harus seragam. semoga bermanfaat untuk semua. Wassalam, -Miss Jan Raisin- Pada 19 Maret 2013 19.09, Indra <vendeta...@yahoo.co.id> menulis: Yang Terhormat Para Excel Mania yang budiman, Langsung saja pada permasalahan yang saya hadapi : 1. Saya di suruh membuat report (lebih jelasnya bisa liat pada file yg. tertera) secara awam saya melihat masalah ini harus menggunakan kode VBA Masalahnya saya belum mengerti sama sekali ttg. VB macro. 2. Laporannya dimasukkan ke bss report.file yg lain adalah Master/Database (file master jumlahnya ratusan tp hanya tertuju pada satu sheet yaitu "SUMMARY") 3. Tolong di jelaskan secara terperinci step-stepnya mungkin Mr. Kid disini ahlinya ^_^ atau exceler's yg lain bs membantu saya. Mohon maaf apabila penjelasan yang saya berikan kurang jelas.Terimakasih banyak atas bantuannya. Salam Hormat, ChordJR
