Kamis, 21 Maret 2013

[belajar-excel] Digest Number 2181

Milis Belajar Microsoft Excel

9 New Messages

Digest #2181
2a
Re: batas waktu by "Mansur Widayat"
3a
Re: Penilaian by "Bagus" bagus4bls
3b
Bls: [belajar-excel] Penilaian by "agung aldhino" d_nozz
4a
Menampilkan data by "Andre Rahmaidy Teeza" andre_teeza_bn
4b
Re: Form Data Base by "Andre Rahmaidy Teeza" andre_teeza_bn
4c
Re: Form Data Base by "hendrik karnadi" hendrikkarnadi

Messages

Thu Mar 21, 2013 2:07 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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_06@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_06@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_06@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_06@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****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>

Thu Mar 21, 2013 2:40 am (PDT) . Posted by:

"Jan Raisin"

Solusi dari mr Kid tepat sekali.. terima kasih bantuannya mr.. ilmu baru
lagi untuk Jan

lengkapnya untuk scriptnya berubah menjadi seperti ini:

sFile = Dir$(Cells(lLink, 3) & "\" & Left(sJobNbr, 3) & "-" & Mid(sJobNbr,
4, 2) & "-" & Right(sJobNbr, 3) & "*.xlsx")

Wassalam,

-Miss Jan Raisin-

Pada 21 Maret 2013 16.07, Mr. Kid <mr.nmkid@gmail.com> menulis:

> **
>
>
> 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_06@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_06@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_06@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_06@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****
>>
>> ****
>>
>> ****
>>
>> ** **
>>
>> ****
>>
>>
>
>

Thu Mar 21, 2013 5:20 am (PDT) . Posted by:

"Indra" indra_gustian



It Work's!!! WB saya serasa di sulap ^_^ senang sekali telah dibantu oleh
Miss Jan & Mr. Kid...Trim&#39;s Banyak untuk anda berdua.

Biarpun antri satu per satu tp pasti di jawab dengan sangat
memuaskan..Jempol deh bwat Milis Ini!!!

Salam,

ChordJR

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: Thursday, March 21, 2013 4:40 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tarik Data Pada Banyak File Hanya Mengacu Pada
Cell Tertentu

Solusi dari mr Kid tepat sekali.. terima kasih bantuannya mr.. ilmu baru
lagi untuk Jan

lengkapnya untuk scriptnya berubah menjadi seperti ini:

sFile = Dir$(Cells(lLink, 3) & "\" & Left(sJobNbr, 3) & "-" & Mid(sJobNbr,
4, 2) & "-" & Right(sJobNbr, 3) & "*.xlsx")

Wassalam,

-Miss Jan Raisin-

Pada 21 Maret 2013 16.07, Mr. Kid <mr.nmkid@gmail.com> menulis:

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.

Thu Mar 21, 2013 2:45 am (PDT) . Posted by:

"Mansur Widayat"

ok pak, terima kasih

----- Original Message -----
From: "Aliif Akbar" <aliif.akbar@yahoo.co.id>
To: <belajar-excel@yahoogroups.com>
Sent: Thursday, March 21, 2013 15:10
Subject: Re: [belajar-excel] batas waktu

> MsgBox "keluar", vbInformation, ""
> Application.Quit
>
> Pak, yang Application.quit coba di ganti pake ActiveWorkbook.close
>
> Terimakasih.
>
>
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
>
> -----Original Message-----
> From: "Mansur Widayat" <w-mansur@notes.npr.co.jp>
> Sender: belajar-excel@yahoogroups.com
> Date: Thu, 21 Mar 2013 14:28:09
> To: <belajar-excel@yahoogroups.com>
> Reply-To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] batas waktu
>
> Dear master - master
> kasusnya seperti ini, saya membuka 3 file excel dan salah satunya ada code
> vba "jika batas waktu telah habis maka file tidak bisa dibuka". tapi
> masalahnya 3 file tersebut otomatis keluar juga. yang saya inginkan cuma
> satu file yang ada codenya saja yg keluar.
> vba sebagai berikut.
> Private Sub Workbook_Open()
> Dim target As Date, hariini As Date
> target = CDate("16-02-2013")
> hariini = Date
> If hariini >= target Then
> MsgBox "keluar", vbInformation, ""
> Application.Quit
> Close
> Else
> End If
> End Sub
>
> Terima kasih
>
>

Thu Mar 21, 2013 4:35 am (PDT) . Posted by:

"Bagus" bagus4bls

Dear; ana anta (saya kamu)

File terlampir semoga sesuai harapan

Wassalam

~ Bagus ~

----- Original Message -----
From: ana anta
To: Milist Belajar excel
Sent: Thursday, March 21, 2013 2:43 PM
Subject: [belajar-excel] Penilaian

Hi master.
�

Saya lagi belajar buat form penilaian, tapi yang saya sudah saya buat itu sangatlah merepotkan, saya harus memasukkan nilai ke masing2 peserta dengan berpuuh2 sheet. Saya inginnnya hanya ada:

1. sheet untuk daftar nilai (misalkan ada 3 juri, maka masing2 juri beda sheet/ disatukan juga gak pa2),

2. sheet peserta,

3. sheet untuk input nilai,
4. sheet report untuk melihat rekap nilai keseluruhan dari tiap peserta, tapi saya inginnya ketika ingin melihat report, hanya cukup dengan mengetikkan no peserta.

Para� master, intinya saya pengennya kaya mail merge di word.
Mohon penjelassannya ya. Terima Kasih belajar-excel.

NB: Saya lampirkan juga contoh penilaian yang sudah saya buat dan sudah dipakai dulu (sudah di hapus sebagian reportnya).

Thu Mar 21, 2013 5:21 am (PDT) . Posted by:

"agung aldhino" d_nozz

Dear ana anta,
file terlampir semoga bisa membantu dan sesuai harapan.
jikalau ada kekurangan mungkin master-master lainnya bisa membantu.
 
wassalam
agung

________________________________
Dari: Bagus <bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 21 Maret 2013 18:32
Judul: Re: [belajar-excel] Penilaian

 
Dear; ana anta (saya kamu)
 
File terlampir semoga sesuai harapan
 
 
Wassalam
~ Bagus~
 
----- Original Message -----
>From: ana anta
>To: Milist Belajar excel
>Sent: Thursday, March 21, 2013 2:43 PM
>Subject: [belajar-excel] Penilaian
>
> 
>
>
>Hi master.
>ï¿Â½
>
>Saya lagi belajar buat form penilaian, tapi yang saya sudah saya buat itu sangatlah merepotkan, saya harus memasukkan nilai ke masing2 peserta dengan berpuuh2 sheet. Saya inginnnya hanya ada:
>
>1. sheet untuk daftar nilai (misalkan ada 3 juri, maka masing2 juri beda sheet/ disatukan juga gak pa2),
>
>2. sheet peserta,
>
>3. sheet untuk input nilai,
>4. sheet report untuk melihat rekap nilai keseluruhan dari tiap peserta, tapi saya inginnya ketika ingin melihat report, hanya cukup dengan mengetikkan no peserta.
>
>Paraï¿Â½ master, intinya saya pengennya kaya mail merge di word.
>Mohon penjelassannya ya. Terima Kasih belajar-excel.
>
>NB: Saya lampirkan juga contoh penilaian yang sudah saya buat dan sudah dipakai dulu (sudah di hapus sebagian reportnya).

Thu Mar 21, 2013 5:21 am (PDT) . Posted by:

"Andre Rahmaidy Teeza" andre_teeza_bn

sore beexceller

saya punya kasus vba yang saya inginkan ketika saya pengen munculkan data yang ada di sheet database dengan panggil data pada nama kantor di sheet form otomatis data yang ada di database muncul di sheet form.. file terlampir

Wassalam
andree

Thu Mar 21, 2013 5:21 am (PDT) . Posted by:

"Andre Rahmaidy Teeza" andre_teeza_bn

sore beexceller

saya punya kasus vba yang saya inginkan ketika saya pengen munculkan data yang ada di sheet database dengan panggil data pada nama kantor di sheet form otomatis data yang ada di database muncul di sheet form.. file terlampir

Wassalam
andree

________________________________
From: Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
To: "belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com>
Sent: Thursday, March 21, 2013 6:23 PM
Subject:


sore beexceller

saya punya kasus vba yang saya inginkan ketika saya pengen munculkan data yang ada di sheet database dengan panggil data pada nama kantor di sheet form otomatis data yang ada di database muncul di sheet form.. file terlampir

Wassalam
andree

Thu Mar 21, 2013 6:14 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba ganti bagian ini:
Target.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

menjadi:
Target.Offset(-3, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

Syarat dan ketentuan berlaku (nama kantor harus sama)

Salam,
HK

________________________________
From: Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
To: "belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com>
Sent: Thursday, 21 March 2013, 18:24
Subject: [belajar-excel] Re: Form Data Base


 
sore beexceller

saya punya kasus vba yang saya inginkan ketika saya pengen munculkan data yang ada di sheet database dengan panggil data pada nama kantor di sheet form otomatis data yang ada di database muncul di sheet form.. file terlampir

Wassalam
andree

________________________________
From: Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
To: "belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com>
Sent: Thursday, March 21, 2013 6:23 PM
Subject:


sore beexceller

saya punya kasus vba yang saya inginkan ketika saya pengen munculkan data yang ada di sheet database dengan panggil data pada nama kantor di sheet form otomatis data yang ada di database muncul di sheet form.. file terlampir

Wassalam
andree

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar