Coba kita renungkan lagi codeFileku = ActiveWorkbook.PathTujuan dari code ini
adalah menggunakan Path (Folder\SubFolder) dari file yang aktif
(ActiveWorkbook) sebagai Folder\SubFolder dari Fileku (Folder\SubFolder untuk
file output) artinya Folder\Subfolder dari file output akan sama dengan
Folder\SubFolder dari file input.Coba renungkan sampai disini dulu, jika sdh
mengerti maka kita lanjutkan....
Jika folder output tidak sama dengan input maka Fileku = ......... diganti
dengan PATH (yang berbeda),mis. PATH = "Tes\SubTes", dengan terlebih dahulu
mendeklarasikannyaDIM PATH AS STRING.
Jika sampai tahap ini sdh dimengerti maka silakan ganti code:Workbooks.Open
Fileku & "\" & "Master.xls" dengan mengacu pada penjelasan di atas.
Selamat mencoba.
Salam,HK
Sent from Yahoo Mail on Android
On Tue, Feb 27, 2018 at 10:21, Stephen Saputro stephensapu...@gmail.com
[belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Terima kasih banyak Pak Kid, Pak Hendrik, dan yang lainnya untuk masukannya..
Saya sangat bersyukur bisa join di milis ini karena banyak yang bisa saya
pelajari. Baik dari masalah yang saya hadapi, maupun dari masalah orang lain
yang bisa saya pelajari. Pada saat saya mempelajari kasus yang di lemparkan
orang lain di milis ini, maka saya ( saya rasa yang lainnya juga ) akan merujuk
pada data, attachment yang sama yang di kirim oleh orang tersebut. Dari data
itu bisa saja masalahnya berkembang kesana kesini, namanya juga proses belajar,
rasa ingin tahu pasti ada. Apalagi untuk orang seperti saya yang nota bene
sangat beda jurusannya dengan hal2 yang berbau programer.Kembali lagi ke bagian
"Data yang sama" yang di ambil dari masalah orang lain yang di kirimkan ke
milis, itu bukan berarti bahwa kita hanya sekedar copy paste. Mungkin ada
beberapa yang malas belajar, dan murni copy paste tanpa ngerti (mungkin orang2
ini harus di jitak hehe ), tapi saya rasa kita juga tau kalau ada orang2 lain
juga yang sudah mencari referensi kesana kesini, browsing kesana kesini hingga
larut malam hanya untuk menemukan bagaimana caranya untul solve problem yang
ternyata mungkin hanyalah hal kecil bagi mereka yang betul2 sudah paham.
Perihal tool tips atau biasanya saya sebut sintax ( ga tau benar or gak hehehe
) seperti yang sudah di jelaskan Pak Kid, sudah saya coba juga dan sudah saya
jabarkan di email saya sebeleumnya "
"Terima kasih Banyak Pak Kid, Pak Hendrik dan juga Pak Soni.
Saya lagi coba pelajari script yang di kasih pak Roni, dan lagi coba menelaah
penjelasan Pak Kid.
Mohon kiranya dapat di bantu :
1. Script ini maksudnya file output dan file input di folder yang sama ya :
Workbooks.Open fileku & "\" & "Master.xls"
2. Saya lagi coba buat untuk di input dan output ada di folder yang berbeda..
Saya coba script dibawah ini :'
workbooks.Open fileku,W:\"Master.xls" tapi tetap tidak bisa . Mohon kiranya
dapat di bantu scriptnya untuk input dan output di folder yang berbeda
Yang saya highlight adalah yang saya coba ketik sendiri dengan mengikuti
petunjuk sintax atau tool tip yang muncul, hanya saja tetap tidak bisa, jadinya
saya tanyakan ke milis hehe
Sekali lagi terima kasih untuk semua masukannya, dan juga bantuannya.
2018-02-27 8:14 GMT+07:00 Pak Cik Lukman pakcikluk...@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
Setuju mas kids,Kita2 ini enggan untuk belajar atu kurang rasa ingin tau untuk
bisa dpt belajar dpt ilmu banyak dan lebih dalam. Padahal excel sdh memberikan
bantuan mengatasi problem dgn HELPS/F1... Atau tooltips dalam setiap mengetik
formula.
Namun capability ssrng yg tidak seragam atau Rasa ingin cepat atau tdk mau
repot shg, dgn mengirim dummy probem bisa sgr teratasi.
Padahal, rata2 problem non vba yg dikirim adalah masalah lookup & preference.
Ayuuk deh rekan2 semangat belajar
Sent from my iPhone
On Feb 27, 2018, at 5:50 AM, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com > wrote:
Hai Saputro,
Proses belajar ada baiknya berusaha menghindari Copy Paste contoh. Alangkah
baiknya diketik sendiri saja setiap barisnya, agar bisa lebih cepat paham.
Apakah ketika akan mempelajari vLookUp cukup dengan Copy Paste ?
Bukankah ketika mengetik =vLookUp( maka akan ada hal baru yang bisa didapatkan ?
Contohnya begini ketika mengetikkan =vLookUp(
<xl028_fn02xlfn.gif>
Bukankah tooltips yang muncul TIDAK patut untuk diabaikan ?
Dengan tidak mengabaikan tooltip yang muncul, maka proses belajar menjadi
berlipat kali lebih cepat untuk menuju paham.
Begitu juga ketika di dalam VBA, bukankah ketika mengetikkan (BUKAN COPY PASTE)
workbooks.open akan tampak seperti ini :
<xl028_fn01vba.gif>
Tooltips yang muncul begitu panjangnya itu BUKANLAH hiasan supaya tampak keren
loh.....
Tapi memang tooltips seperti itu untuk yang beneran mau belajar kok...
*** Catatan untuk yang targetnya adalah cepat bisa menggunakan Excel maupun VBA
Record Macro dan Copy Paste contoh yang ada BUKANLAH untuk pemula atau yang
sedang berusaha untuk kenal
Andai berhasrat untuk kenal apalagi sampai paham, pliis bingitz, bersedialah
untuk tidak Record Macro maupun Copy Paste.
Supaya bertemu dengan tooltips yang akan mempercepat proses belajar.
Bisa menggunakan akan mempercepat penyelesaian suatu masalah, karena akan
mengurangi waktu terbuang menunggu reply dari BeExceller lain...
Regards,
Kid
2018-02-26 16:39 GMT+07:00 Stephen Saputro stephensapu...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com >:
Dear Pak Hendrik dan semuanya,
Mohon di bantu lagi, apakah seperti ini :
Workbooks.Open fileku, "D:\SS\Master Test2.xls:" sudah di coba tapi debug.
mohon bantuannya.
Script lengkapnya masih seperti script yang di kasih pak Roni :
Dim rc As LongDim fileku As StringDim wb As Workbook
Application.ScreenUpdating = Falsefileku = ActiveWorkbook.Pathrc =
ActiveSheet.UsedRange.Rows.Cou nt
Workbooks.Open fileku, "D:\SS\Master Test2.xls:"Set wb = ActiveWorkbookrc =
ActiveSheet.UsedRange.Rows.Cou ntWith Sheets(1).Range("A1").Offset(rc, 0).Value
= Me.TextBox1..Value.Offset(rc, 1).Value = Me.TextBox2.Value.Offset(rc,
2).Value = Me.TextBox3.Value.Offset(rc, 3).Value = Left(Thisheet.Name,
Len(Thissheet.Name) - 4) 'nama dari workbook yang entryEnd With
wb.Savewb.Close 'tutup workbook masterApplication.ScreenUpdating = TrueUnload
MeEntry_Form.ShowEnd Sub
On Mon, Feb 26, 2018 at 11:48 AM, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Hai Stephen,
Ya pasti ga bisa, mau cari Luna yang diklik Siska.....Yang harus diubah adalah
setting direktori fileku nya atau ditulis lengkap dalam tanda petik
"Dir\SubDir\namafile.ext"
Salam,HK
Sent from Yahoo Mail on Android
On Mon, Feb 26, 2018 at 11:23, Stephen Saputro stephensapu...@gmail.com
[belajar-excel]<belajar-excel@yahoogroups.com > wrote:
Terima kasih Banyak Pak Kid, Pak Hendrik dan juga Pak Soni..
Saya lagi coba pelajari script yang di kasih pak Roni, dan lagi coba menelaah
penjelasan Pak Kid.
Mohon kiranya dapat di bantu :
1. Script ini maksudnya file output dan file input di folder yang sama ya :
Workbooks.Open fileku & "\" & "Master.xls"
2. Saya lagi coba buat untuk di input dan output ada di folder yang berbeda..
Saya coba script dibawah ini :'
workbooks.Open fileku,W:\"Master.xls" tapi tetap tidak bisa . Mohon kiranya
dapat di bantu scriptnya untuk input dan output di folder yang berbeda
2018-02-19 10:16 GMT+07:00 y.ron...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com >:
Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
#yiv3541144242 #yiv3541144242 -- #yiv3541144242ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3541144242
#yiv3541144242ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3541144242
#yiv3541144242ygrp-mkp #yiv3541144242hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv3541144242 #yiv3541144242ygrp-mkp #yiv3541144242ads
{margin-bottom:10px;}#yiv3541144242 #yiv3541144242ygrp-mkp .yiv3541144242ad
{padding:0 0;}#yiv3541144242 #yiv3541144242ygrp-mkp .yiv3541144242ad p
{margin:0;}#yiv3541144242 #yiv3541144242ygrp-mkp .yiv3541144242ad a
{color:#0000ff;text-decoration:none;}#yiv3541144242 #yiv3541144242ygrp-sponsor
#yiv3541144242ygrp-lc {font-family:Arial;}#yiv3541144242
#yiv3541144242ygrp-sponsor #yiv3541144242ygrp-lc #yiv3541144242hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3541144242
#yiv3541144242ygrp-sponsor #yiv3541144242ygrp-lc .yiv3541144242ad
{margin-bottom:10px;padding:0 0;}#yiv3541144242 #yiv3541144242actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3541144242
#yiv3541144242activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3541144242
#yiv3541144242activity span {font-weight:700;}#yiv3541144242
#yiv3541144242activity span:first-child
{text-transform:uppercase;}#yiv3541144242 #yiv3541144242activity span a
{color:#5085b6;text-decoration:none;}#yiv3541144242 #yiv3541144242activity span
span {color:#ff7900;}#yiv3541144242 #yiv3541144242activity span
.yiv3541144242underline {text-decoration:underline;}#yiv3541144242
.yiv3541144242attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv3541144242 .yiv3541144242attach div a
{text-decoration:none;}#yiv3541144242 .yiv3541144242attach img
{border:none;padding-right:5px;}#yiv3541144242 .yiv3541144242attach label
{display:block;margin-bottom:5px;}#yiv3541144242 .yiv3541144242attach label a
{text-decoration:none;}#yiv3541144242 blockquote {margin:0 0 0
4px;}#yiv3541144242 .yiv3541144242bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv3541144242
.yiv3541144242bold a {text-decoration:none;}#yiv3541144242 dd.yiv3541144242last
p a {font-family:Verdana;font-weight:700;}#yiv3541144242 dd.yiv3541144242last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3541144242
dd.yiv3541144242last p span.yiv3541144242yshortcuts
{margin-right:0;}#yiv3541144242 div.yiv3541144242attach-table div div a
{text-decoration:none;}#yiv3541144242 div.yiv3541144242attach-table
{width:400px;}#yiv3541144242 div.yiv3541144242file-title a, #yiv3541144242
div.yiv3541144242file-title a:active, #yiv3541144242
div.yiv3541144242file-title a:hover, #yiv3541144242 div.yiv3541144242file-title
a:visited {text-decoration:none;}#yiv3541144242 div.yiv3541144242photo-title a,
#yiv3541144242 div.yiv3541144242photo-title a:active, #yiv3541144242
div.yiv3541144242photo-title a:hover, #yiv3541144242
div.yiv3541144242photo-title a:visited {text-decoration:none;}#yiv3541144242
div#yiv3541144242ygrp-mlmsg #yiv3541144242ygrp-msg p a
span.yiv3541144242yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3541144242
.yiv3541144242green {color:#628c2a;}#yiv3541144242 .yiv3541144242MsoNormal
{margin:0 0 0 0;}#yiv3541144242 o {font-size:0;}#yiv3541144242
#yiv3541144242photos div {float:left;width:72px;}#yiv3541144242
#yiv3541144242photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv3541144242
#yiv3541144242photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3541144242
#yiv3541144242reco-category {font-size:77%;}#yiv3541144242
#yiv3541144242reco-desc {font-size:77%;}#yiv3541144242 .yiv3541144242replbq
{margin:4px;}#yiv3541144242 #yiv3541144242ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv3541144242 #yiv3541144242ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3541144242
#yiv3541144242ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3541144242
#yiv3541144242ygrp-mlmsg select, #yiv3541144242 input, #yiv3541144242 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv3541144242
#yiv3541144242ygrp-mlmsg pre, #yiv3541144242 code {font:115%
monospace;}#yiv3541144242 #yiv3541144242ygrp-mlmsg *
{line-height:1.22em;}#yiv3541144242 #yiv3541144242ygrp-mlmsg #yiv3541144242logo
{padding-bottom:10px;}#yiv3541144242 #yiv3541144242ygrp-msg p a
{font-family:Verdana;}#yiv3541144242 #yiv3541144242ygrp-msg
p#yiv3541144242attach-count span {color:#1E66AE;font-weight:700;}#yiv3541144242
#yiv3541144242ygrp-reco #yiv3541144242reco-head
{color:#ff7900;font-weight:700;}#yiv3541144242 #yiv3541144242ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv3541144242 #yiv3541144242ygrp-sponsor
#yiv3541144242ov li a {font-size:130%;text-decoration:none;}#yiv3541144242
#yiv3541144242ygrp-sponsor #yiv3541144242ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv3541144242
#yiv3541144242ygrp-sponsor #yiv3541144242ov ul {margin:0;padding:0 0 0
8px;}#yiv3541144242 #yiv3541144242ygrp-text
{font-family:Georgia;}#yiv3541144242 #yiv3541144242ygrp-text p {margin:0 0 1em
0;}#yiv3541144242 #yiv3541144242ygrp-text tt {font-size:120%;}#yiv3541144242
#yiv3541144242ygrp-vital ul li:last-child {border-right:none
!important;}#yiv3541144242
