Gimana kalo JobNamenya (kalo gak salah ingat ya) dengan nama filenya dibuat
seragam, bisa sama atau tidak sama persis tetapi ada pola yang sama. Hal
ini akan memudahkan dalam menyusun skriptnya.
Atau bisa dicontohkan kombinasi yang mungkin antara JobName dengan nama
filenya, kemarin kan yang dikirim cuma 1 file master saja.
Wassalam,
-Miss Jan Raisin-
Pada 21 Maret 2013 09.10, Indra <vendeta...@yahoo.co.id> menulis:
> **
>
>
> Morning Be-Exceler…mari kita ngopi di pagi hari ^_^****
>
> Nyampe kantor buka email eh sudah ada balesan…Perfect sekali Miss Jan
> dengan jawabannya saya belajar banyak sekali…****
>
> Kemaren coba improve eh ternyata ada masalah sedikit lagi :****
>
> ** **
>
> Pada code yg berbunyi ****
>
> sFile = Left(sJobNbr, 3) & "-" & Mid(sJobNbr, 4, 2) & "-" & Right(sJobNbr,
> 3) & ".xlsx"****
>
> ** **
>
> fungsinya memanggil file dengan menghapus tanda “-“, nah ternyata di file
> master berbunyi :****
>
> ** **
>
> contoh : E20-13-001(space)ABC.xlsx, E20-13-002 DEF.xlsx, etc****
>
> ** **
>
> code apa yg harus di tambahkan di sni??(maaf terlalu banyak bertanya)
> harap di maklumi… ^_^****
>
> ** **
>
> Salam,****
>
> ** **
>
> ** **
>
> ChordJR****
>
> ** **
>
> ** **
>
> * *
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Jan Raisin
> *Sent:* Thursday, March 21, 2013 8:17 AM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Tarik Data Pada Banyak File Hanya Mengacu
> Pada Cell Tertentu****
>
> ** **
>
> ****
>
> kalo seumpama workbooknya dipassword:****
>
> ** **
>
> kalo passwodnya sama, ini masih mudah: ubah bagian yang ini:****
>
> *workbooks. open spath*****
>
> menjadi****
>
> *workbooks.open spath**, password:="**masukkan_passwordnya**"*****
>
> ganti yang warna merah dengan password untuk membuka workbook tersebut.***
> *
>
> ** **
>
> kalo passwordnya berbeda, buat sebuah list yang berisi nama workbook dan
> password untuk membukanya (bisa dalam 1 workbook tersendiri, atau berada di
> dalam 1 sheet di dalam workbook BSS", lalu harus dilakukan proses lookup
> untuk mengambil password berdasarkan nama workbooknya.****
>
> ** **
>
> Wassalam,****
>
> ** **
>
> -Miss Jan Raisin-****
>
> ** **
>
> Pada 20 Maret 2013 17.56, Indra <vendeta...@yahoo.co.id> menulis:****
>
> ****
>
> 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****
>
> ****
>
> ** **
>
> ****
>
>
>
