Coba baris sFile diubah menjadi :
sFile = dir$( pathnya & "\" & _
Left(sJobNbr, 3) & "-" & Mid(sJobNbr, 4, 2) & "-" &
Right(sJobNbr, 3) & " *.xlsx" _
)
setelah itu lakukan cek terhadap sfile lebih dulu, siapa tahu filenya ndak
ada
if lenb(sfile)<>0 then
'lakukan kegiatannya karena ada filenya
endif
Wassalam,
Kid.
2013/3/21 Indra <vendeta...@yahoo.co.id>
> **
>
>
> Hmmm saya jelaskan begini saja :****
>
> ** **
>
> **1. **Berdasarkan file yg saya kirim kemaren nama file
> “E20-13-001.xlsx” pada WB BSS Report cell B6 pencariannya menjadi “E2013001”
> ****
>
> Coding yang dilampirkan Miss Jan spt ini :****
>
> sFile = Left(sJobNbr, 3) & "-" & Mid(sJobNbr, 4, 2) & "-" & Right(sJobNbr,
> 3) & ".xlsx"****
>
> ** **
>
> **2. **Pada file master hampir semua dinamakan spt ini :****
>
> **- **E20-13-001 ABCD.xlsx****
>
> **- **E20-13-002 ABCDEFGHIJK.xlsx****
>
> **- **E20-13-003 JKLMN.xlsx , dst (semua dengan space)****
>
> Nah bisa tidak pencarian tetap seperti “E2013001,E2013002,E2013003,dst”
> dengan *mengabaikan/menghapus* kata-kata selanjutnya, saya rasa pencarian
> mudah seperti ini karena masih gampang di ketik (kalo pencarian sama persis
> dgn nama file mau tidak mau harus copy paste nama file master dan jmlhnya
> tdk sedikit, kata-katanya pun ada yang panjang/pendek)****
>
> ** **
>
> Apakah masih bisa pencarian dilakukan spt di atas??mohon pencerahannya
> Miss Jan… ^_^ semoga amal ibadahnya di terima Allah.SWT…amieeennn****
>
> ** **
>
> ** **
>
> * *
>
> * *
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Jan Raisin
> *Sent:* Thursday, March 21, 2013 2:25 PM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Tarik Data Pada Banyak File Hanya Mengacu
> Pada Cell Tertentu****
>
> ** **
>
> ****
>
> 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****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>
