15 New Messages
Digest #2180
Messages
Thu Mar 21, 2013 12:18 am (PDT) . Posted by:
"Indra" indra_gustian
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
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 "-"
master berbunyi :
contoh : E20-13-001(space)
code apa yg harus di tambahkan di sni??(maaf terlalu banyak bertanya) harap
di maklumi. ^_^
Salam,
ChordJR
From: belajar-excel@
On Behalf Of Jan Raisin
Sent: Thursday, March 21, 2013 8:17 AM
To: belajar-excel@
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:="
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.
Wooow emmeeiizing answer from -Miss Jan Raisin- ^_^ Problem
Solved.terimakasih yang sebesar"
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@
On Behalf Of Jan Raisin
Sent: Wednesday, March 20, 2013 4:47 PM
To: belajar-excel@
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.
Application.
lRow = Cells(Rows.Count, 3).End(xlUp)
Set rngLink = Range(Cells(
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)
Sheets("
sJobName = Range("
sPM = Range("
sOwn = Range("
dMatBgt = Range("
dMatCst = Range("
dLbrBgt = Range("
dLbrCst = Range("
dSConBgt = Range("
dSConCst = Range("
dExpBgt = Range("
dExpCst = Range("
Workbooks("
berbeda
Workbooks(sFile)
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.
Application.
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.
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'
Mohon maaf apabila penjelasan yang saya berikan kurang jelas.Terimakasih
banyak atas bantuannya.
Salam Hormat,
ChordJR
Thu Mar 21, 2013 12:24 am (PDT) . Posted by:
"Jan Raisin"
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****
>
> ****
>
> ** **
>
> ****
>
>
>
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.
> **
>
>
> 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)
>
> ** **
>
> code apa yg harus di tambahkan di sni??(maaf terlalu banyak bertanya)
> harap di maklumi… ^_^****
>
> ** **
>
> Salam,****
>
> ** **
>
> ** **
>
> ChordJR****
>
> ** **
>
> ** **
>
> * *
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* Thursday, March 21, 2013 8:17 AM
>
> *To:* belajar-excel@
> *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:="
>
> 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.
>
> ****
>
> 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@
> belajar-excel@
> *Sent:* Wednesday, March 20, 2013 4:47 PM
> *To:* belajar-excel@
> *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.
>
> Application.
>
> lRow = Cells(Rows.Count, 3).End(xlUp)
>
> Set rngLink = Range(Cells(
>
> 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)
>
> Sheets("
>
> sJobName = Range("
>
> sPM = Range("
>
> sOwn = Range("
>
> dMatBgt = Range("
>
> dMatCst = Range("
>
> dLbrBgt = Range("
>
> dLbrCst = Range("
>
> dSConBgt = Range("
>
> dSConCst = Range("
>
> dExpBgt = Range("
>
> dExpCst = Range("
>
> Workbooks("
> file berbeda****
>
> Workbooks(sFile)
>
> 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.
>
> Application.
>
> 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.
>
> ****
>
> ****
>
> 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:02 am (PDT) . Posted by:
"Indra" indra_gustian
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
1. Berdasarkan file yg saya kirim kemaren nama file "E20-13-
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.
- E20-13-003 JKLMN.xlsx , dst (semua dengan space)
Nah bisa tidak pencarian tetap seperti "E2013001,
dengan mengabaikan/
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@
On Behalf Of Jan Raisin
Sent: Thursday, March 21, 2013 2:25 PM
To: belajar-excel@
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.
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 "-"
master berbunyi :
contoh : E20-13-001(space)
code apa yg harus di tambahkan di sni??(maaf terlalu banyak bertanya) harap
di maklumi. ^_^
Salam,
ChordJR
From: belajar-excel@
On Behalf Of Jan Raisin
Sent: Thursday, March 21, 2013 8:17 AM
To: belajar-excel@
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:="
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.
Wooow emmeeiizing answer from -Miss Jan Raisin- ^_^ Problem
Solved.terimakasih yang sebesar"
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@
On Behalf Of Jan Raisin
Sent: Wednesday, March 20, 2013 4:47 PM
To: belajar-excel@
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.
Application.
lRow = Cells(Rows.Count, 3).End(xlUp)
Set rngLink = Range(Cells(
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)
Sheets("
sJobName = Range("
sPM = Range("
sOwn = Range("
dMatBgt = Range("
dMatCst = Range("
dLbrBgt = Range("
dLbrCst = Range("
dSConBgt = Range("
dSConCst = Range("
dExpBgt = Range("
dExpCst = Range("
Workbooks("
berbeda
Workbooks(sFile)
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.
Application.
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.
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'
Mohon maaf apabila penjelasan yang saya berikan kurang jelas.Terimakasih
banyak atas bantuannya.
Salam Hormat,
ChordJR
Thu Mar 21, 2013 12:19 am (PDT) . Posted by:
"Mulki" mulki_akbar
Assalamu'alaikum wr. wb.
Dear rekan2 B-XL,
Melanjutkan topik yg sedang hangatnya dlm 1-2 hari ini utk mencari tempat kopdar sekalian belajar XL dg para pakarnya, saya tergelitik utk mengajukan ide tersbt ke Training & Development Department di kantor saya.
Respon dari T&D Manager di kantor saya sangat baik dan semoga juga ke bagian yg terkait.
Kiranya nanti (jika memang disetujui) mengadakan sharing XL di kantor saya, maukah rekan2 berkunjung di seputaran wilayah Kelapa Gading ?
Mudah2an ide ini bisa diterima dg baik oleh pihak manajemen dikantor saya dan kesempatan utk bersua dg para master dpt menjadi kenyataan :)
Insyaallah saya akan kabarkan kelanjutannya dimilis ini.
Wassalam,
Mulki akbar
Dear rekan2 B-XL,
Melanjutkan topik yg sedang hangatnya dlm 1-2 hari ini utk mencari tempat kopdar sekalian belajar XL dg para pakarnya, saya tergelitik utk mengajukan ide tersbt ke Training & Development Department di kantor saya.
Respon dari T&D Manager di kantor saya sangat baik dan semoga juga ke bagian yg terkait.
Kiranya nanti (jika memang disetujui) mengadakan sharing XL di kantor saya, maukah rekan2 berkunjung di seputaran wilayah Kelapa Gading ?
Mudah2an ide ini bisa diterima dg baik oleh pihak manajemen dikantor saya dan kesempatan utk bersua dg para master dpt menjadi kenyataan :)
Insyaallah saya akan kabarkan kelanjutannya dimilis ini.
Wassalam,
Mulki akbar
Thu Mar 21, 2013 1:58 am (PDT) . Posted by:
"Apriyadi Apri" apriyadi_apry
Alhamdulillah...
Uda ada 2 alternatif ni
1. Alternatif Pak Mukli di Kantor
2. Alternatif Pak Tio di sekolah
Jika keduanya sudah disetujui oleh masing masing pihak terkait, ada baiknya dipilih salah satunya dari sekarang tempat mana yang dipilih atau dibuat bergantian sehingga tidak muncul sesuatu yang tidak diinginkan dan tetap bisa berjalan dengan baik.
Mengingat bapak Mukli dan pak Tio sudah menyampaikan niat baik kita untuk mengadakan kopi darat dan menyambung ke belajar bersama Excel ke pihak pihak terkait.
Jika kemarin Pak Tio menyampaikan tempat dengan kapasitas 40 orang dan Pak Mukli belum ada info.Untuk pendataan sampai saat ini sudah berapa banyak ya?
Agar kiranya kita juga bisa menyesuaikan antara ruangan dengan jumlah yang akan hadir.
Mungkin jika saya tidak salah.Acara kopi darat akan diisi dengan tema silatruhrahmi.mungkin kita bisa menambahkan beberapa isi acara sehingga saat ditempatnya acara dapat tersusun dengan baik dan lancar.Mungkin bisa membentuk susunan organisasi atau beberapa rencana menyambut kurus.
Maaf sebelumnya jika terdapat salah salah kata.Mohon dimaklumi saya kurang atau hampir dikatakan tidak pernah ikut organisasi jadi kurang paham dan kurang cakap dalam penyampaian maksud dan tujuan.
Â
Thank
Apriyadi
0822 6024 2325
apriyadi_apry@yahoo.com
________________________________
From: Mulki <mulki@aop.component.astra.co.id >
To: belajar-excel@yahoogroups.com
Sent: Thursday, March 21, 2013 8:57 AM
Subject: [belajar-excel] Ide tempat kopdar & belajar XL
Â
Assalamu'alaikum wr. wb.
Â
Â
Dear rekan2 B-XL,
Â
Melanjutkan topik yg sedang hangatnya dlm 1-2 hari
ini utk mencari tempat kopdar sekalian belajar XL dg para pakarnya, saya
tergelitik utk mengajukan ide tersbt ke Training & Development Department di
kantor saya.
Â
Respon dari T&D Manager di kantor saya sangat
baik dan semoga juga ke bagian yg terkait.
Â
Kiranya nanti (jika memang disetujui) mengadakan
sharing XL di kantor saya, maukah rekan2 berkunjung di seputaran wilayah Kelapa
Gading ?
Â
Mudah2an ide ini bisa diterima dg baik oleh pihak
manajemen dikantor saya dan kesempatan utk bersua dg para master dpt menjadi
kenyataan :)
Â
Insyaallah saya akan kabarkan kelanjutannya dimilis
ini.
Â
Â
Wassalam,
Mulki akbar
Â
Uda ada 2 alternatif ni
1. Alternatif Pak Mukli di Kantor
2. Alternatif Pak Tio di sekolah
Jika keduanya sudah disetujui oleh masing masing pihak terkait, ada baiknya dipilih salah satunya dari sekarang tempat mana yang dipilih atau dibuat bergantian sehingga tidak muncul sesuatu yang tidak diinginkan dan tetap bisa berjalan dengan baik.
Mengingat bapak Mukli dan pak Tio sudah menyampaikan niat baik kita untuk mengadakan kopi darat dan menyambung ke belajar bersama Excel ke pihak pihak terkait.
Jika kemarin Pak Tio menyampaikan tempat dengan kapasitas 40 orang dan Pak Mukli belum ada info.Untuk pendataan sampai saat ini sudah berapa banyak ya?
Agar kiranya kita juga bisa menyesuaikan antara ruangan dengan jumlah yang akan hadir.
Mungkin jika saya tidak salah.Acara kopi darat akan diisi dengan tema silatruhrahmi.
Maaf sebelumnya jika terdapat salah salah kata.Mohon dimaklumi saya kurang atau hampir dikatakan tidak pernah ikut organisasi jadi kurang paham dan kurang cakap dalam penyampaian maksud dan tujuan.
Â
Thank
Apriyadi
0822 6024 2325
apriyadi_apry@
____________
From: Mulki <mulki@aop.component
To: belajar-excel@
Sent: Thursday, March 21, 2013 8:57 AM
Subject: [belajar-excel] Ide tempat kopdar & belajar XL
Â
Assalamu'
Â
Â
Dear rekan2 B-XL,
Â
Melanjutkan topik yg sedang hangatnya dlm 1-2 hari
ini utk mencari tempat kopdar sekalian belajar XL dg para pakarnya, saya
tergelitik utk mengajukan ide tersbt ke Training & Development Department di
kantor saya.
Â
Respon dari T&D Manager di kantor saya sangat
baik dan semoga juga ke bagian yg terkait.
Â
Kiranya nanti (jika memang disetujui) mengadakan
sharing XL di kantor saya, maukah rekan2 berkunjung di seputaran wilayah Kelapa
Gading ?
Â
Mudah2an ide ini bisa diterima dg baik oleh pihak
manajemen dikantor saya dan kesempatan utk bersua dg para master dpt menjadi
kenyataan :)
Â
Insyaallah saya akan kabarkan kelanjutannya dimilis
ini.
Â
Â
Wassalam,
Mulki akbar
Â
Thu Mar 21, 2013 12:19 am (PDT) . Posted by:
"Husnul Faizin" husnulfaizin
saya secara pribadi berharap sekali nantinya ada sebuah buku pintar (membahas cara membuat VBA dari tingkat A-Z) yang di buat oleh pakar-pakar ternama di milis ini seperti Mr. Kid, Miss Jan, Mr. Ghozi, Mr. Hendrik dan master lainnya, agar para member milis ini menjadi pintar semua membuat VBA macro, yang pasti saya tunggu bukunya, dan bisa di promo secara online di milis ini atau jika tidak, bisa kami dapatkan ditoko-toko buku seperti Gramedia dan lainnya.
salam
salam
Thu Mar 21, 2013 1:04 am (PDT) . Posted by:
"Agus Ramiyanto"
Setuju
Pada 21 Mar 2013 15.19, "Husnul Faizin" <husnulfaizin@yahoo.co.id > menulis:
> **
>
>
> saya secara pribadi berharap sekali nantinya ada sebuah buku pintar
> (membahas cara membuat VBA dari tingkat A-Z) yang di buat oleh pakar-pakar
> ternama di milis ini seperti Mr. Kid, Miss Jan, Mr. Ghozi, Mr. Hendrik dan
> master lainnya, agar para member milis ini menjadi pintar semua membuat VBA
> macro, yang pasti saya tunggu bukunya, dan bisa di promo secara online di
> milis ini atau jika tidak, bisa kami dapatkan ditoko-toko buku seperti
> Gramedia dan lainnya.
>
> salam
>
>
Pada 21 Mar 2013 15.19, "Husnul Faizin" <husnulfaizin@
> **
>
>
> saya secara pribadi berharap sekali nantinya ada sebuah buku pintar
> (membahas cara membuat VBA dari tingkat A-Z) yang di buat oleh pakar-pakar
> ternama di milis ini seperti Mr. Kid, Miss Jan, Mr. Ghozi, Mr. Hendrik dan
> master lainnya, agar para member milis ini menjadi pintar semua membuat VBA
> macro, yang pasti saya tunggu bukunya, dan bisa di promo secara online di
> milis ini atau jika tidak, bisa kami dapatkan ditoko-toko buku seperti
> Gramedia dan lainnya.
>
> salam
>
>
Thu Mar 21, 2013 12:19 am (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
Semangat pagi,
Mungkin Formula Countif bisa membantu.
Tetapi karena Formula Countif ini case sensitive jadi saya tambahkan
Data Validation di Kolom input.
Jadi orang tidak bisa menulis nama sembarangan, hanya boleh sesuai nama
yang akan di count.
Coba dipelajari
Salam Excell-ent
On 21/03/2013 7:42, Husnul Faizin wrote:
> assalamu'alaikum wr. wb
> Salampara pakar excel....!
> mohon bantuannya dalam penyelesaian perhitungan perolehan suara OSIS:
> jika siswa mengisi kolom "NAMA USULAN" (B4), sesuai dengan calon
> mereka masing-masing (misalnya banyak pemilih 50 siswa), bagaimanakah
> rumus untuk mencari "PEROLEHAN SUARA" masing-masing kandidat (dalam
> bentuk angka).
> untuk lebih memahami maksud permasalahan saya, maka saya lampirkan
> filenya.
>
> terimakasih sebelumnya
>
> wassalam
> husnul faizin
>
>
>
>
Mungkin Formula Countif bisa membantu.
Tetapi karena Formula Countif ini case sensitive jadi saya tambahkan
Data Validation di Kolom input.
Jadi orang tidak bisa menulis nama sembarangan, hanya boleh sesuai nama
yang akan di count.
Coba dipelajari
Salam Excell-ent
On 21/03/2013 7:42, Husnul Faizin wrote:
> assalamu'
> Salampara pakar excel....!
> mohon bantuannya dalam penyelesaian perhitungan perolehan suara OSIS:
> jika siswa mengisi kolom "NAMA USULAN" (B4), sesuai dengan calon
> mereka masing-masing (misalnya banyak pemilih 50 siswa), bagaimanakah
> rumus untuk mencari "PEROLEHAN SUARA" masing-masing kandidat (dalam
> bentuk angka).
> untuk lebih memahami maksud permasalahan saya, maka saya lampirkan
> filenya.
>
> terimakasih sebelumnya
>
> wassalam
> husnul faizin
>
>
>
>
Pakai Countif, seperti terlampir :
regards,
Tio
Husnul Faizin <husnulfaizin@yahoo.co.id >
Sent by: belajar-excel@yahoogroups.com
03/21/2013 07:42 AM
Please respond to belajar-excel
To: "belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com >
cc:
Subject: [belajar-excel] Hitung Suara
assalamu'alaikum wr. wb
Salam para pakar excel....!
mohon bantuannya dalam penyelesaian perhitungan perolehan suara OSIS:
jika siswa mengisi kolom "NAMA USULAN" (B4), sesuai dengan calon mereka
masing-masing (misalnya banyak pemilih 50 siswa), bagaimanakah rumus untuk
mencari "PEROLEHAN SUARA" masing-masing kandidat (dalam bentuk angka).
untuk lebih memahami maksud permasalahan saya, maka saya lampirkan
filenya.
terimakasih sebelumnya
wassalam
husnul faizin
regards,
Tio
Husnul Faizin <husnulfaizin@
Sent by: belajar-excel@
03/21/2013 07:42 AM
Please respond to belajar-excel
To: "belajar-excel@
cc:
Subject: [belajar-excel] Hitung Suara
assalamu'
Salam para pakar excel....!
mohon bantuannya dalam penyelesaian perhitungan perolehan suara OSIS:
jika siswa mengisi kolom "NAMA USULAN" (B4), sesuai dengan calon mereka
masing-masing (misalnya banyak pemilih 50 siswa), bagaimanakah rumus untuk
mencari "PEROLEHAN SUARA" masing-masing kandidat (dalam bentuk angka).
untuk lebih memahami maksud permasalahan saya, maka saya lampirkan
filenya.
terimakasih sebelumnya
wassalam
husnul faizin
Thu Mar 21, 2013 12:21 am (PDT) . Posted by:
"KRasti Pizza" krasti.house
Wlkm salaam,
Sambil nunggu yg lebih master, saya mau ikut bantu ya..
Bisa pake "Countif" sama Pivot. Mohon dicek di lampiran
Trims.
Wsslm 'Alaikum.
Tiyo-bekasi
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Husnul Faizin
Sent: Thursday, March 21, 2013 7:43 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Hitung Suara
assalamu'alaikum wr. wb
Salam para pakar excel....!
mohon bantuannya dalam penyelesaian perhitungan perolehan suara OSIS:
jika siswa mengisi kolom "NAMA USULAN" (B4), sesuai dengan calon mereka
masing-masing (misalnya banyak pemilih 50 siswa), bagaimanakah rumus untuk
mencari "PEROLEHAN SUARA" masing-masing kandidat (dalam bentuk angka).
untuk lebih memahami maksud permasalahan saya, maka saya lampirkan filenya.
terimakasih sebelumnya
wassalam
husnul faizin
Sambil nunggu yg lebih master, saya mau ikut bantu ya..
Bisa pake "Countif" sama Pivot. Mohon dicek di lampiran
Trims.
Wsslm 'Alaikum.
Tiyo-bekasi
From: belajar-excel@
On Behalf Of Husnul Faizin
Sent: Thursday, March 21, 2013 7:43 AM
To: belajar-excel@
Subject: [belajar-excel] Hitung Suara
assalamu'
Salam para pakar excel....!
mohon bantuannya dalam penyelesaian perhitungan perolehan suara OSIS:
jika siswa mengisi kolom "NAMA USULAN" (B4), sesuai dengan calon mereka
masing-masing (misalnya banyak pemilih 50 siswa), bagaimanakah rumus untuk
mencari "PEROLEHAN SUARA" masing-masing kandidat (dalam bentuk angka).
untuk lebih memahami maksud permasalahan saya, maka saya lampirkan filenya.
terimakasih sebelumnya
wassalam
husnul faizin
Thu Mar 21, 2013 12:21 am (PDT) . Posted by:
"anaanta321" anaanta321
Apa kabar para pakar excel?
para pakar, saya lagi belajar untuk membuat penilaian dari puluhan peserta yang peserta di kasih penilaian oleh 3 juri dengan masing2 juri menilai kriteria yang sama. namun saya bingung untuk membuat hal2 dibawah ini:
1. form input nilai
2. form output (report) dari tiap peserta jika saya ingin melihatnya hanya dengan memanggil no pesertanya.
nah para pakar, saya mohon bantuannya untuk memecahkan masalah tersebut.
Terimakasih belajar-excel.
para pakar, saya lagi belajar untuk membuat penilaian dari puluhan peserta yang peserta di kasih penilaian oleh 3 juri dengan masing2 juri menilai kriteria yang sama. namun saya bingung untuk membuat hal2 dibawah ini:
1. form input nilai
2. form output (report) dari tiap peserta jika saya ingin melihatnya hanya dengan memanggil no pesertanya.
nah para pakar, saya mohon bantuannya untuk memecahkan masalah tersebut.
Terimakasih belajar-excel.
Thu Mar 21, 2013 12:46 am (PDT) . Posted by:
"ana anta" anaanta321
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 12:30 am (PDT) . Posted by:
"Mansur Widayat"
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
kasusnya seperti ini, saya membuka 3 file excel dan salah satunya ada code vba "jika batas waktu telah habis maka file tidak bisa dibuka"
vba sebagai berikut.
Private Sub Workbook_Open(
Dim target As Date, hariini As Date
target = CDate("
hariini = Date
If hariini >= target Then
MsgBox "keluar"
Application.
Close
Else
End If
End Sub
Terima kasih
Thu Mar 21, 2013 1:12 am (PDT) . Posted by:
"Aliif Akbar" aliif.akbar
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
Application.
Pak, yang Application.
Terimakasih.
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
-----Original Message-----
From: "Mansur Widayat" <w-mansur@notes.
Sender: belajar-excel@
Date: Thu, 21 Mar 2013 14:28:09
To: <belajar-excel@
Reply-To: belajar-excel@
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"
vba sebagai berikut.
Private Sub Workbook_Open(
Dim target As Date, hariini As Date
target = CDate("
hariini = Date
If hariini >= target Then
MsgBox "keluar"
Application.
Close
Else
End If
End Sub
Terima kasih
Thu Mar 21, 2013 2:00 am (PDT) . Posted by:
"Jan Raisin"
berhubung Jan gak punya versi 2003 (kalo gak salah kemarin pak Heru instal
ulang office 2003) jadi Jan bantu dengan link-nya saja ya..
http://www.vbaexpress.com/kb/getarticle.php?kb_id=447
Wassalam,
-Miss Jan Raisin-
Pada 21 Maret 2013 09.01, Heru Safrudin <superheruu@gmail.com > menulis:
> **
>
>
> Dear Master,****
>
> ** **
>
> Saya kesulitan ketika ada menjalankan macro di computer lain karena ada
> komponen yg belum diregister dikomputer tersebut****
>
> Bisakah macro menghandel masalah tersebut ? bagaimana tulis codenya ?****
>
> ** **
>
> ** **
>
> وَالسÙ'َلَام٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù****
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> <http://www.carajawab.com/?id=heru.safrudin >****
>
> ****
>
> ** **
>
>
>
ulang office 2003) jadi Jan bantu dengan link-nya saja ya..
http://www.vbaexpre
Wassalam,
-Miss Jan Raisin-
Pada 21 Maret 2013 09.01, Heru Safrudin <superheruu@gmail.
> **
>
>
> Dear Master,****
>
> ** **
>
> Saya kesulitan ketika ada menjalankan macro di computer lain karena ada
> komponen yg belum diregister dikomputer tersebut****
>
> Bisakah macro menghandel masalah tersebut ? bagaimana tulis codenya ?****
>
> ** **
>
> ** **
>
> وَالسÙ'َلَام٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù****
>
> ****** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> <http://www.carajawa
>
> ****
>
> ** **
>
>
>
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
---------------------------------------------------------------------
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