9 Messages
Digest #4253
2a
Re: Mengcopy data dari banyak files dalam keadaan tertutup (seluruh by "hendrik karnadi" hendrikkarnadi
2c
Re: Mengcopy data dari banyak files dalam keadaan tertutup (seluruh by "hendrik karnadi" hendrikkarnadi
2d
Re: Mengcopy data dari banyak files dalam keadaan tertutup (seluruh by "rodhy hakim" odhyz83_assasaky
2e
Re: Mengcopy data dari banyak files dalam keadaan tertutup (seluruh by "Mr. Kid" nmkid.family@ymail.com
Messages
Fri Jul 28, 2017 7:08 pm (PDT) . Posted by:
"Zerlinda Seismica" seismica
Alhamdulilah sipp closed kasusnya...makasih Mr Kid...kelihatan blinger buat saya tapi sangat simpel buat Suhu Mr Kid
Mengingatkan sama Almarhum "Mbk Siti" klo kasih solusi...semoga dia mendapat pengampunan dan kemudahanan di alam kubur atas memberi kemudahan jalan untuk kesulitan saudaranya...aamiin...
Makasih Mr. Kid
SalamSeismica
Pada Jumat, 28 Juli 2017 23:48, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
#yiv3723556975 -- .yiv3723556975ygrp-photo-title{clear:both;font-size:smaller;min-height:15px;overflow:hidden;text-align:center;width:75px;}#yiv3723556975 div.yiv3723556975ygrp-photo{background-position:center;background-repeat:no-repeat;background-color:white;border:1px solid black;min-height:62px;width:62px;}#yiv3723556975 div.yiv3723556975photo-title a, #yiv3723556975 div.yiv3723556975photo-title a:active, #yiv3723556975 div.yiv3723556975photo-title a:hover, #yiv3723556975 div.yiv3723556975photo-title a:visited {text-decoration:none;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row {clear:both;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row div {float:left;}#yiv3723556975 p {clear:both;padding:15px 0 3px 0;overflow:hidden;}#yiv3723556975 div.yiv3723556975ygrp-file {width:30px;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row div div a {text-decoration:none;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row div div span {font-weight:normal;}#yiv3723556975 div.yiv3723556975ygrp-file-title {font-weight:bold;}#yiv3723556975 #yiv3723556975 --#yiv3723556975ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3723556975 #yiv3723556975ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3723556975 #yiv3723556975ygrp-mkp #yiv3723556975hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3723556975 #yiv3723556975ygrp-mkp #yiv3723556975ads {margin-bottom:10px;}#yiv3723556975 #yiv3723556975ygrp-mkp .yiv3723556975ad {padding:0 0;}#yiv3723556975 #yiv3723556975ygrp-mkp .yiv3723556975ad p {margin:0;}#yiv3723556975 #yiv3723556975ygrp-mkp .yiv3723556975ad a {color:#0000ff;text-decoration:none;}#yiv3723556975
Wa'alaikumussalam wr wb
Hai Seismica,
Pada file terlampir, output ada yang menggunakan pivot table maupun formula.
Output dengan pivot table lebih mudah dan cepat, terutama pada data yang sangat banyak.
Output dengan formula bisa memberatkan kerja komputasi Excel pada data yang sangat banyak.
Pastikan data sorted by Kode dan Nilai secara ascending. Lakukan sort (atau reapply sort) jika ada pengubahan data.
Jika memilih output dengan pivot table, pastikan melakukan refresh all jika ada pengubahan data.
Wassalamu'alaikum wr wb
Kid
2017-07-28 21:23 GMT+07:00 Zerlinda Seismica seismica@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum wrwb
Semoga bapak dan ibu diberi kesehatan dan kejernihan dalam berkreasi..malu untuk kesekian kalinya karena belum berkontribusi ikut rembug kasih solusi tapi malah kasih masalah..tapi Insya Allah solusi yang sudah sering dikasih ke saya dari bapak ibu saya share ketemen yang lain ditempat saya...
Rasanya sulit saya jelaskan disini tanpa melihat ke lampiran yang Insya Allah datanya terlihat sangat sederhana namun data yang diinginkan bentuknya terlihat jadi jelimet menurut...
Mohon maaf bapak ibu bisa buka lampiran saya dulu..semoga penjelasan dalam lampiran bisa lebih jelas
WassalamSeismica
Mengingatkan sama Almarhum "Mbk Siti" klo kasih solusi...semoga dia mendapat pengampunan dan kemudahanan di alam kubur atas memberi kemudahan jalan untuk kesulitan saudaranya...aamiin...
Makasih Mr. Kid
SalamSeismica
Pada Jumat, 28 Juli 2017 23:48, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
#yiv3723556975 -- .yiv3723556975ygrp-photo-title{clear:both;font-size:smaller;min-height:15px;overflow:hidden;text-align:center;width:75px;}#yiv3723556975 div.yiv3723556975ygrp-photo{background-position:center;background-repeat:no-repeat;background-color:white;border:1px solid black;min-height:62px;width:62px;}#yiv3723556975 div.yiv3723556975photo-title a, #yiv3723556975 div.yiv3723556975photo-title a:active, #yiv3723556975 div.yiv3723556975photo-title a:hover, #yiv3723556975 div.yiv3723556975photo-title a:visited {text-decoration:none;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row {clear:both;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row div {float:left;}#yiv3723556975 p {clear:both;padding:15px 0 3px 0;overflow:hidden;}#yiv3723556975 div.yiv3723556975ygrp-file {width:30px;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row div div a {text-decoration:none;}#yiv3723556975 div.yiv3723556975attach-table div.yiv3723556975attach-row div div span {font-weight:normal;}#yiv3723556975 div.yiv3723556975ygrp-file-title {font-weight:bold;}#yiv3723556975 #yiv3723556975 --#yiv3723556975ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3723556975 #yiv3723556975ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3723556975 #yiv3723556975ygrp-mkp #yiv3723556975hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3723556975 #yiv3723556975ygrp-mkp #yiv3723556975ads {margin-bottom:10px;}#yiv3723556975 #yiv3723556975ygrp-mkp .yiv3723556975ad {padding:0 0;}#yiv3723556975 #yiv3723556975ygrp-mkp .yiv3723556975ad p {margin:0;}#yiv3723556975 #yiv3723556975ygrp-mkp .yiv3723556975ad a {color:#0000ff;text-decoration:none;}#yiv3723556975
Wa'alaikumussalam wr wb
Hai Seismica,
Pada file terlampir, output ada yang menggunakan pivot table maupun formula.
Output dengan pivot table lebih mudah dan cepat, terutama pada data yang sangat banyak.
Output dengan formula bisa memberatkan kerja komputasi Excel pada data yang sangat banyak.
Pastikan data sorted by Kode dan Nilai secara ascending. Lakukan sort (atau reapply sort) jika ada pengubahan data.
Jika memilih output dengan pivot table, pastikan melakukan refresh all jika ada pengubahan data.
Wassalamu'alaikum wr wb
Kid
2017-07-28 21:23 GMT+07:00 Zerlinda Seismica seismica@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Assalamualaikum wrwb
Semoga bapak dan ibu diberi kesehatan dan kejernihan dalam berkreasi..malu untuk kesekian kalinya karena belum berkontribusi ikut rembug kasih solusi tapi malah kasih masalah..tapi Insya Allah solusi yang sudah sering dikasih ke saya dari bapak ibu saya share ketemen yang lain ditempat saya...
Rasanya sulit saya jelaskan disini tanpa melihat ke lampiran yang Insya Allah datanya terlihat sangat sederhana namun data yang diinginkan bentuknya terlihat jadi jelimet menurut...
Mohon maaf bapak ibu bisa buka lampiran saya dulu..semoga penjelasan dalam lampiran bisa lebih jelas
WassalamSeismica
Fri Jul 28, 2017 9:02 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear Odhy,Coba kirim .zip dummy filenya.
Salam,HK
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 23:43, rodhy hakim odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..
Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy.
On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK
Sent from Yahoo Mail on Android
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
#yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092
On Fri, Jul 28, 2017 at 23:43, rodhy hakim odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..
Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy.
On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK
Sent from Yahoo Mail on Android
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
#yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092
On Fri, Jul 28, 2017 at 23:43, rodhy hakim odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..
Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy.
On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK
Sent from Yahoo Mail on Android
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
#yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092
Salam,HK
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 23:43, rodhy hakim odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..
Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy.
On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK
Sent from Yahoo Mail on Android
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
#yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092
On Fri, Jul 28, 2017 at 23:43, rodhy hakim odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..
Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy.
On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK
Sent from Yahoo Mail on Android
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
#yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7480228092 #yiv7480228092ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7480228092 #yiv7480228092ygrp-mkp #yiv7480228092ads {margin-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad {padding:0 0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad p {margin:0;}#yiv7480228092 #yiv7480228092ygrp-mkp .yiv7480228092ad a {color:#0000ff;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc {font-family:Arial;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc #yiv7480228092hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ygrp-lc .yiv7480228092ad {margin-bottom:10px;padding:0 0;}#yiv7480228092 #yiv7480228092actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7480228092 #yiv7480228092activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7480228092 #yiv7480228092activity span {font-weight:700;}#yiv7480228092 #yiv7480228092activity span:first-child {text-transform:uppercase;}#yiv7480228092 #yiv7480228092activity span a {color:#5085b6;text-decoration:none;}#yiv7480228092 #yiv7480228092activity span span {color:#ff7900;}#yiv7480228092 #yiv7480228092activity span .yiv7480228092underline {text-decoration:underline;}#yiv7480228092 .yiv7480228092attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7480228092 .yiv7480228092attach div a {text-decoration:none;}#yiv7480228092 .yiv7480228092attach img {border:none;padding-right:5px;}#yiv7480228092 .yiv7480228092attach label {display:block;margin-bottom:5px;}#yiv7480228092 .yiv7480228092attach label a {text-decoration:none;}#yiv7480228092 blockquote {margin:0 0 0 4px;}#yiv7480228092 .yiv7480228092bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7480228092 .yiv7480228092bold a {text-decoration:none;}#yiv7480228092 dd.yiv7480228092last p a {font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7480228092 dd.yiv7480228092last p span.yiv7480228092yshortcuts {margin-right:0;}#yiv7480228092 div.yiv7480228092attach-table div div a {text-decoration:none;}#yiv7480228092 div.yiv7480228092attach-table {width:400px;}#yiv7480228092 div.yiv7480228092file-title a, #yiv7480228092 div.yiv7480228092file-title a:active, #yiv7480228092 div.yiv7480228092file-title a:hover, #yiv7480228092 div.yiv7480228092file-title a:visited {text-decoration:none;}#yiv7480228092 div.yiv7480228092photo-title a, #yiv7480228092 div.yiv7480228092photo-title a:active, #yiv7480228092 div.yiv7480228092photo-title a:hover, #yiv7480228092 div.yiv7480228092photo-title a:visited {text-decoration:none;}#yiv7480228092 div#yiv7480228092ygrp-mlmsg #yiv7480228092ygrp-msg p a span.yiv7480228092yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7480228092 .yiv7480228092green {color:#628c2a;}#yiv7480228092 .yiv7480228092MsoNormal {margin:0 0 0 0;}#yiv7480228092 o {font-size:0;}#yiv7480228092 #yiv7480228092photos div {float:left;width:72px;}#yiv7480228092 #yiv7480228092photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7480228092 #yiv7480228092photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7480228092 #yiv7480228092reco-category {font-size:77%;}#yiv7480228092 #yiv7480228092reco-desc {font-size:77%;}#yiv7480228092 .yiv7480228092replbq {margin:4px;}#yiv7480228092 #yiv7480228092ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7480228092 #yiv7480228092ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7480228092 #yiv7480228092ygrp-mlmsg select, #yiv7480228092 input, #yiv7480228092 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7480228092 #yiv7480228092ygrp-mlmsg pre, #yiv7480228092 code {font:115% monospace;}#yiv7480228092 #yiv7480228092ygrp-mlmsg * {line-height:1.22em;}#yiv7480228092 #yiv7480228092ygrp-mlmsg #yiv7480228092logo {padding-bottom:10px;}#yiv7480228092 #yiv7480228092ygrp-msg p a {font-family:Verdana;}#yiv7480228092 #yiv7480228092ygrp-msg p#yiv7480228092attach-count span {color:#1E66AE;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco #yiv7480228092reco-head {color:#ff7900;font-weight:700;}#yiv7480228092 #yiv7480228092ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li a {font-size:130%;text-decoration:none;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7480228092 #yiv7480228092ygrp-sponsor #yiv7480228092ov ul {margin:0;padding:0 0 0 8px;}#yiv7480228092 #yiv7480228092ygrp-text {font-family:Georgia;}#yiv7480228092 #yiv7480228092ygrp-text p {margin:0 0 1em 0;}#yiv7480228092 #yiv7480228092ygrp-text tt {font-size:120%;}#yiv7480228092 #yiv7480228092ygrp-vital ul li:last-child {border-right:none !important;}#yiv7480228092
On Fri, Jul 28, 2017 at 23:43, rodhy hakim odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr HK, Sudah sesuai tidak yg sy rubah, file master masih dlm folder gabungan..
Dikirim dari iPhone saya
Pada 28 Jul 2017, pukul 23.02, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Hai Odhy,
Nama File di Sheet2 Range("A1") sdh sesuai dengan nama file gabungannya (dalam contoh saya namanya "Master") ?
Salam,Hk
Sent from Yahoo Mail on Android
On Fri, Jul 28, 2017 at 21:17, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Sudah saya ekstrak di drive C: (lengkapnya : C:\CombineTestRev)dan di file master di sheet 2, cell A2 sy ganti dengan C:\CombineTestRev
setelah saya tekan tombol datanya masing kosong.
Terima Kasih atas pencerahannya, Odhy.
On Fri Jul 28 2017 02:00:51 GMT+0700 (SE Asia Standard Time), hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Odhy,
.zip filenya harus diextract dulu ke salah satu Dir, mis.D:
Filenya dibuka dari Sub Folder itu, bukan lgs dari .zip file.
Silakan dicoba lagi.
Salam,HK
Sent from Yahoo Mail on Android
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasinya adalah sebagai berikut :
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
On Thu, Jul 27, 2017 at 17:21, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. Hendrik,Saya sudah coba filenya tapi hasilnya kosong , kira2 salahnya dimana? sya ganti patch sprt dibawah ini :
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFs.GetFolder("C:\Users\Fhakim3\AppData\Local\My Private Documents\ Tutorial\New folder\CombineTestRev") ' THE PATH FOR THE FILES
Terima Kasih atas pencerahannya, Odhy.
On Friday, July 21, 2017 10:55:31 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Sebagai tambahan...file master boleh berada (disimpan) di Dir. apa saja.
----- Forwarded Message -----From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: Friday, July 21, 2017, 10:47:43 AM GMT+7Subject: [belajar-excel] Mengcopy data dari banyak files dalam keadaan tertutup (seluruh files yang akan diambil datanya berada dalam satu folder) [1 Attachment]
Dear Be-Excel,
Hasil utak atik bahan dari internet saya menemukan cara bagaimana mengcopy semua data di atas dalam bentuk value. Buat saya ini hal yang cukup menarik, bagaimana kita bisa membaca seluruh data diatas hanya dalam 1 sheet, sehingga saya mencoba mensharingkannya disini dalam bentuk .rar.Silakan diextract ke salah satu directory, mis. D:
Contoh yang saya lampirkan di sini adalah hasil modifikasi dari 2 sumber di internet.Ilustrasin
- Saya mempunyai satu file gabungan (sebut saja Master, boleh pakai nama lain) dimana sheet1 saya jadikan tempat untuk mengcopy seluruh data dalam bentuk value.- Sheet2 sel A1 saya isi dengan nama file gabungan tersebut dan sel A2 saya isi dengan Directory dari files yang akan saya ambil datanya. Files bisa terdiri dari banyak file dan jumlah sheets dari masing2 file tidak harus sama dan boleh kosong. Nama files dan sheets boleh apa saja.
Dalam hasil rekap saya sebutkan sumbernya (nama file dan sheetnya).
Selamat mencoba dan silakan dikembangkan lebih lanjut.
Salam,HK
#yiv7480228092 #yiv7480228092 -- #yiv7480228092ygrp-
Sat Jul 29, 2017 1:08 am (PDT) . Posted by:
"Odhy" odhyz83_assasaky
Dear Mr. HK,
Berikut Filenya...
Terima Kasih atas pencerahannya, Odhy.
On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,
HK
Sent from Yahoo Mail on Android https://overview.mail.yahoo.com/mobile/?.src=Android
Berikut Filenya...
Terima Kasih atas pencerahannya, Odhy.
On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,
HK
Sent from Yahoo Mail on Android https://overview.mail.yahoo.com/mobile/?.src=Android
Sat Jul 29, 2017 9:09 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
Salam,HK
Sent from Yahoo Mail on Android
On Sat, Jul 29, 2017 at 15:09, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. HK,Berikut Filenya...
Terima Kasih atas pencerahannya, Odhy.
On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,HK
Sent from Yahoo Mail on Android
#yiv0455186430 #yiv0455186430 -- #yiv0455186430ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0455186430 #yiv0455186430ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0455186430 #yiv0455186430ygrp-mkp #yiv0455186430hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0455186430 #yiv0455186430ygrp-mkp #yiv0455186430ads {margin-bottom:10px;}#yiv0455186430 #yiv0455186430ygrp-mkp .yiv0455186430ad {padding:0 0;}#yiv0455186430 #yiv0455186430ygrp-mkp .yiv0455186430ad p {margin:0;}#yiv0455186430 #yiv0455186430ygrp-mkp .yiv0455186430ad a {color:#0000ff;text-decoration:none;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ygrp-lc {font-family:Arial;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ygrp-lc #yiv0455186430hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ygrp-lc .yiv0455186430ad {margin-bottom:10px;padding:0 0;}#yiv0455186430 #yiv0455186430actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0455186430 #yiv0455186430activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0455186430 #yiv0455186430activity span {font-weight:700;}#yiv0455186430 #yiv0455186430activity span:first-child {text-transform:uppercase;}#yiv0455186430 #yiv0455186430activity span a {color:#5085b6;text-decoration:none;}#yiv0455186430 #yiv0455186430activity span span {color:#ff7900;}#yiv0455186430 #yiv0455186430activity span .yiv0455186430underline {text-decoration:underline;}#yiv0455186430 .yiv0455186430attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0455186430 .yiv0455186430attach div a {text-decoration:none;}#yiv0455186430 .yiv0455186430attach img {border:none;padding-right:5px;}#yiv0455186430 .yiv0455186430attach label {display:block;margin-bottom:5px;}#yiv0455186430 .yiv0455186430attach label a {text-decoration:none;}#yiv0455186430 blockquote {margin:0 0 0 4px;}#yiv0455186430 .yiv0455186430bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0455186430 .yiv0455186430bold a {text-decoration:none;}#yiv0455186430 dd.yiv0455186430last p a {font-family:Verdana;font-weight:700;}#yiv0455186430 dd.yiv0455186430last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0455186430 dd.yiv0455186430last p span.yiv0455186430yshortcuts {margin-right:0;}#yiv0455186430 div.yiv0455186430attach-table div div a {text-decoration:none;}#yiv0455186430 div.yiv0455186430attach-table {width:400px;}#yiv0455186430 div.yiv0455186430file-title a, #yiv0455186430 div.yiv0455186430file-title a:active, #yiv0455186430 div.yiv0455186430file-title a:hover, #yiv0455186430 div.yiv0455186430file-title a:visited {text-decoration:none;}#yiv0455186430 div.yiv0455186430photo-title a, #yiv0455186430 div.yiv0455186430photo-title a:active, #yiv0455186430 div.yiv0455186430photo-title a:hover, #yiv0455186430 div.yiv0455186430photo-title a:visited {text-decoration:none;}#yiv0455186430 div#yiv0455186430ygrp-mlmsg #yiv0455186430ygrp-msg p a span.yiv0455186430yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0455186430 .yiv0455186430green {color:#628c2a;}#yiv0455186430 .yiv0455186430MsoNormal {margin:0 0 0 0;}#yiv0455186430 o {font-size:0;}#yiv0455186430 #yiv0455186430photos div {float:left;width:72px;}#yiv0455186430 #yiv0455186430photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv0455186430 #yiv0455186430photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0455186430 #yiv0455186430reco-category {font-size:77%;}#yiv0455186430 #yiv0455186430reco-desc {font-size:77%;}#yiv0455186430 .yiv0455186430replbq {margin:4px;}#yiv0455186430 #yiv0455186430ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0455186430 #yiv0455186430ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0455186430 #yiv0455186430ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0455186430 #yiv0455186430ygrp-mlmsg select, #yiv0455186430 input, #yiv0455186430 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0455186430 #yiv0455186430ygrp-mlmsg pre, #yiv0455186430 code {font:115% monospace;}#yiv0455186430 #yiv0455186430ygrp-mlmsg * {line-height:1.22em;}#yiv0455186430 #yiv0455186430ygrp-mlmsg #yiv0455186430logo {padding-bottom:10px;}#yiv0455186430 #yiv0455186430ygrp-msg p a {font-family:Verdana;}#yiv0455186430 #yiv0455186430ygrp-msg p#yiv0455186430attach-count span {color:#1E66AE;font-weight:700;}#yiv0455186430 #yiv0455186430ygrp-reco #yiv0455186430reco-head {color:#ff7900;font-weight:700;}#yiv0455186430 #yiv0455186430ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ov li a {font-size:130%;text-decoration:none;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0455186430 #yiv0455186430ygrp-sponsor #yiv0455186430ov ul {margin:0;padding:0 0 0 8px;}#yiv0455186430 #yiv0455186430ygrp-text {font-family:Georgia;}#yiv0455186430 #yiv0455186430ygrp-text p {margin:0 0 1em 0;}#yiv0455186430 #yiv0455186430ygrp-text tt {font-size:120%;}#yiv0455186430 #yiv0455186430ygrp-vital ul li:last-child {border-right:none !important;}#yiv0455186430
Salam,HK
Sent from Yahoo Mail on Android
On Sat, Jul 29, 2017 at 15:09, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Dear Mr. HK,Berikut Filenya...
Terima Kasih atas pencerahannya, Odhy.
On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
Dear Odhy,
Coba kirim .zip dummy filenya.
Salam,HK
Sent from Yahoo Mail on Android
#yiv0455186430 #yiv0455186430 -- #yiv0455186430ygrp-
Sat Jul 29, 2017 2:04 pm (PDT) . Posted by:
"rodhy hakim" odhyz83_assasaky
Dear Mr.HK,
Kemungkinan tidak mau di drive C:
Sy menggunakan laptop kantor yg hanya tersedia drive C: .
Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas bantuannya....
Salam
odhy.
Dikirim dari iPhone saya
Pada 30 Jul 2017, pukul 00.05, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
>
> On Sat, Jul 29, 2017 at 15:09, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
>
>
>
> Dear Odhy,
>
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
>
>
>
Kemungkinan tidak mau di drive C:
Sy menggunakan laptop kantor yg hanya tersedia drive C: .
Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas bantuannya....
Salam
odhy.
Dikirim dari iPhone saya
Pada 30 Jul 2017, pukul 00.05, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
>
> On Sat, Jul 29, 2017 at 15:09, Odhy odhyz83_assasaky@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
>
>
>
> Dear Odhy,
>
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
>
>
>
Sat Jul 29, 2017 4:19 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
eh...
dah selesai tritnya ?
gitu doang ?
ayoklah...
gini...
script yang ada di file dari pak HK itu (entah dapat darimana atau diubah
apanya gak tau dah) tergantung suatu nilai referensi.
referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti
jadi lainnya).
A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows
explorer, lalu tulis nama file tersebut persis seperti yang ada di windows
explorer.
kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1
bunyi 'Master.Kid' gitu...
*** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus
di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file
itu juga.
*** nama sheet yang ada tombol commandbutton nya jangan diganti jadi
nama lainnya, harus 'sheet1'
A2 : diisi nama folder files yang akan di-merge. lihat windows explorer
lagi, masuk ke folder yang berisi files yang akan di-merge,
lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
*** pastikan isi foldernya cuma file yang akan di-merge.
*** jangan ada file lainnya, apalagi file pilem iklan perusahaan
yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh
Excel oleh si script.
tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB
sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...
Regards,
Kid
2017-07-29 23:35 GMT+07:00 rodhy hakim odhyz83_assasaky@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr.HK,
> Kemungkinan tidak mau di drive C:
> Sy menggunakan laptop kantor yg hanya tersedia drive C: .
> Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas
> bantuannya....
>
> Salam
> odhy.
>
> Dikirim dari iPhone saya
>
> Pada 30 Jul 2017, pukul 00.05, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sat, Jul 29, 2017 at 15:09, Odhy odhyz83_assasaky@yahoo.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik
> karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
>
>
>
>
> Dear Odhy,
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
dah selesai tritnya ?
gitu doang ?
ayoklah...
gini...
script yang ada di file dari pak HK itu (entah dapat darimana atau diubah
apanya gak tau dah) tergantung suatu nilai referensi.
referensi tersebut ada di sheet bernama 'sheet2' (nama sheet boleh diganti
jadi lainnya).
A1 : diisi nama file yang menggabungkan tersebut. Catatannya, buka windows
explorer, lalu tulis nama file tersebut persis seperti yang ada di windows
explorer.
kalau di windows explorer tertulis bunyi 'Master.Kid', tulils di A1
bunyi 'Master.Kid' gitu...
*** Ingat loh ya, script ini gak bisa nulis ke workbook lain, harus
di workbook yang ada script-nya itu doang. Hasil gabungannya cuma di file
itu juga.
*** nama sheet yang ada tombol commandbutton nya jangan diganti jadi
nama lainnya, harus 'sheet1'
A2 : diisi nama folder files yang akan di-merge. lihat windows explorer
lagi, masuk ke folder yang berisi files yang akan di-merge,
lalu copy bunyi forlder yang ada di url bar nya, paste ke A2
*** pastikan isi foldernya cuma file yang akan di-merge.
*** jangan ada file lainnya, apalagi file pilem iklan perusahaan
yang gedenya sampai puluhan bahkan ratusan MB. Bisa dibuat cerewet tuh
Excel oleh si script.
tapi kalo cuma file jpg isinya gambar selfie yang dibawah 2MB
sih boleh lah... sapa tahu mo lihat selfie-nya di Excel... bhuahahaha...
Regards,
Kid
2017-07-29 23:35 GMT+07:00 rodhy hakim odhyz83_assasaky@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Mr.HK,
> Kemungkinan tidak mau di drive C:
> Sy menggunakan laptop kantor yg hanya tersedia drive C: .
> Jadi harus bersabar krn gak bisa coba.... tapi terima kasih banyak atas
> bantuannya....
>
> Salam
> odhy.
>
> Dikirim dari iPhone saya
>
> Pada 30 Jul 2017, pukul 00.05, hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Saya ganti jadi dir D:\CombineTestRev koq bisa jalan ya di komputer saya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Sat, Jul 29, 2017 at 15:09, Odhy odhyz83_assasaky@yahoo.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Mr. HK,
> Berikut Filenya...
>
> Terima Kasih atas pencerahannya, Odhy.
>
>
>
> On Saturday, July 29, 2017 11:03:04 AM WIB, hendrik
> karnadi hendrikkarnadi@yahoo.com [belajar-excel] wrote:
>
>
>
>
> Dear Odhy,
> Coba kirim .zip dummy filenya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
Sat Jul 29, 2017 1:06 am (PDT) . Posted by:
abduh_suryadi
Saya mempunya function seperti ini,
Function myFunc()
sheets("sheet1").activate
msgbox "hai"
End Function
pertanyaan: kenapa msgbox nya tidak jalan? padahal sheet1 sukses di aktifkan. kode seperti berhenti di situ. apa ada mslh dengan software excel saya? saya menggunakan excel 2007. terima kasih atas bantuannya
Function myFunc()
sheets("
msgbox "hai"
End Function
pertanyaan: kenapa msgbox nya tidak jalan? padahal sheet1 sukses di aktifkan. kode seperti berhenti di situ. apa ada mslh dengan software excel saya? saya menggunakan excel 2007. terima kasih atas bantuannya
Sat Jul 29, 2017 4:22 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Abduh,
Bolehkah diperjelas lagi kasusnya ?
Karena begini :
1. kenapa msgbox nya tidak jalan?
*** biasanya, msgbox cuma muncul dan menunggu diklik oleh user. jadi
memang tiak jalan kemana-mana, supaya user gampang nge-klik-nya.
2. padahal sheet1 sukses di aktifkan. kode seperti berhenti di situ.
*** diklik dulu msgbox yang muncul tersebut, barulah nanti kode
berikutnya dieksekusi oleh VBA.
3. apa ada mslh dengan software excel saya? saya menggunakan excel 2007
*** kalau proses eksekusi kode pernah sukses, besar kemungkinan Excel
Anda baik-baik saja.
Jangan-jangan malah Anda yang sedang ada masalah, lalu nularin ke
Excel-nya, seperti sedang panik misalnya...
;)
Regards,
Kid
2017-07-29 14:41 GMT+07:00 abduhsuryadi@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Saya mempunya function seperti ini,
>
> Function myFunc()
>
> sheets("sheet1").activate
> msgbox "hai"
>
> End Function
>
>
> pertanyaan: kenapa msgbox nya tidak jalan? padahal sheet1 sukses di
> aktifkan. kode seperti berhenti di situ. apa ada mslh dengan software excel
> saya? saya menggunakan excel 2007. terima kasih atas bantuannya
>
>
>
Bolehkah diperjelas lagi kasusnya ?
Karena begini :
1. kenapa msgbox nya tidak jalan?
*** biasanya, msgbox cuma muncul dan menunggu diklik oleh user. jadi
memang tiak jalan kemana-mana, supaya user gampang nge-klik-nya.
2. padahal sheet1 sukses di aktifkan. kode seperti berhenti di situ.
*** diklik dulu msgbox yang muncul tersebut, barulah nanti kode
berikutnya dieksekusi oleh VBA.
3. apa ada mslh dengan software excel saya? saya menggunakan excel 2007
*** kalau proses eksekusi kode pernah sukses, besar kemungkinan Excel
Anda baik-baik saja.
Jangan-jangan malah Anda yang sedang ada masalah, lalu nularin ke
Excel-nya, seperti sedang panik misalnya...
;)
Regards,
Kid
2017-07-29 14:41 GMT+07:00 abduhsuryadi@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Saya mempunya function seperti ini,
>
> Function myFunc()
>
> sheets("
> msgbox "hai"
>
> End Function
>
>
> pertanyaan: kenapa msgbox nya tidak jalan? padahal sheet1 sukses di
> aktifkan. kode seperti berhenti di situ. apa ada mslh dengan software excel
> saya? saya menggunakan excel 2007. terima kasih atas bantuannya
>
>
>
Sat Jul 29, 2017 4:13 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Lan,
Coba lihat blok if disini
<http://b-excel.blogspot.co.id/2013/08/belajarvba-008-blok-if.html>.
Set seluruh elemen kembali ke posisi awal, maka akan mulai dari awal lagi.
Jadi dibutuhkan 1 blok if (conditional) yang melakukan peletakan seluruh
elemen ke posisi awal. Gak perlu banyak if untuk kondisi yang sama, karena
1 blok bisa diisi suatu proses yang biasanya terdiri dari banyak baris
kode.
Regards,
Kid
2017-07-28 15:58 GMT+07:00 Lan M lanm31@ymail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> mohon penecerahnnya masterku ...
> lagi belajar looping tapi mentok diakhir ..
> mohon pencerahannya
> file terlampir ..
>
>
>
Coba lihat blok if disini
<http://b-excel.blogspot.co.id/2013/08/belajarvba-008-blok-if.html>.
Set seluruh elemen kembali ke posisi awal, maka akan mulai dari awal lagi.
Jadi dibutuhkan 1 blok if (conditional) yang melakukan peletakan seluruh
elemen ke posisi awal. Gak perlu banyak if untuk kondisi yang sama, karena
1 blok bisa diisi suatu proses yang biasanya terdiri dari banyak baris
kode.
Regards,
Kid
2017-07-28 15:58 GMT+07:00 Lan M lanm31@ymail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> mohon penecerahnnya masterku ...
> lagi belajar looping tapi mentok diakhir ..
> mohon pencerahannya
> file terlampir ..
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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