4 Messages
Digest #4249
3a
Re: Fw: [belajar-excel] Mengcopy data dari banyak files dalam keadaa by "hendrik karnadi" hendrikkarnadi
Messages
Thu Jul 27, 2017 9:34 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hmmm...
Jadi "*" bukan sebagai tanda pemisah ya ?
Lalu sebagai apa dong ?
;)
On Thu, Jul 27, 2017 at 11:08 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Thanks Mr. Kid atas koreksinya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Thu, Jul 27, 2017 at 22:19, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> hmmm...
>
> Sedikit catatan saja...
> Bagian ini :
>
> Satu hal yang "berbeda" dari Sumproduct adalah *penggunaan tanda kali
> ("*") sebagai tanda pemisah* bukan tanda koma ("*,*") untuk Regional
> selain Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.
>
>
> Silakan dicoba formula sumproduct ini :
> Formula 1 :
> =SumProduct( (1=1) * (4=4) * (7=7) )
>
> Formula 2
> =SumProduct( (1=1) , (4=4) , (7=7) )
>
> Formula 3
> =SumProduct( TRUE * TRUE * TRUE )
>
> Formula 4
> =SumProduct( TRUE , TRUE , TRUE )
>
> Formula 5
> =SumProduct( 1 * 1 * 1 )
>
> Formula 6
> =SumProduct( 1 , 1 , 1 )
>
>
> Andai "*" sebagai tanda pemisah, mestinya hasil seluruh formula di atas
> adalah sama.
> Apakah benar demikian ?
> Andai tidak benar alias hasilnya seluruh formula di atas tidak sama,
> berarti tanda kali "*" bukan sebagai pemisah. Lalu sebagai apa dong ?
>
> It's just my two cents
> So, what is yours ?
>
> Regards,
> Kid
>
> 2017-07-27 11:03 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Be-Excel,
>
> Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang
> menggunakan function Sumproduct (termasuk saya).
> Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu
> Array (ada tanda "{}"), walaupun dalam penjelasan penulisannya
> "=Sumproduct(array1, [array2, [array3], .....)".
>
> Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("***")
> sebagai tanda pemisah bukan tanda koma ("*,*") untuk Regional selain
> Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.
>
> Penulisan array1, array2 dstnya selalu mengacu pada *Range Acuan = Cell*.
> Agar formula Sumproduct dapat dicopy tentunya *Range* *Acuan* tersebut
> harus diberi tanda "*$*" dengan menekan tombol *F4*, sehingga setiap kali
> range yang menjadi acuan berubah maka penulisan *Range Acuan* pada
> Sumproduct harus diubah pula,
>
> Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range
> Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya
> menjadi Table (Insert Table).
> Setelah function Sumproduct mengacu pada Table, jika ada tambahan data
> maka penulisan *Range Acuan (Table)* dalam Sumproduct tidak perlu diubah
> lagi.
>
> Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan
> function Sumproduct untuk menentukan harga satuan pada file terlampir,
> dimana *Range Acuan*nya sdh berupa *Table*.
>
> Selamat mencoba.
>
> Salam,
> HK
>
>
>
>
Jadi "*" bukan sebagai tanda pemisah ya ?
Lalu sebagai apa dong ?
;)
On Thu, Jul 27, 2017 at 11:08 PM, hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Thanks Mr. Kid atas koreksinya.
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Thu, Jul 27, 2017 at 22:19, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> hmmm...
>
> Sedikit catatan saja...
> Bagian ini :
>
> Satu hal yang "berbeda" dari Sumproduct adalah *penggunaan tanda kali
> ("*") sebagai tanda pemisah* bukan tanda koma ("*,*") untuk Regional
> selain Indonesia atau tanda titik koma ("*;*") untuk Regional Indonesia.
>
>
> Silakan dicoba formula sumproduct ini :
> Formula 1 :
> =SumProduct( (1=1) * (4=4) * (7=7) )
>
> Formula 2
> =SumProduct( (1=1) , (4=4) , (7=7) )
>
> Formula 3
> =SumProduct( TRUE * TRUE * TRUE )
>
> Formula 4
> =SumProduct( TRUE , TRUE , TRUE )
>
> Formula 5
> =SumProduct( 1 * 1 * 1 )
>
> Formula 6
> =SumProduct( 1 , 1 , 1 )
>
>
> Andai "*" sebagai tanda pemisah, mestinya hasil seluruh formula di atas
> adalah sama.
> Apakah benar demikian ?
> Andai tidak benar alias hasilnya seluruh formula di atas tidak sama,
> berarti tanda kali "*" bukan sebagai pemisah. Lalu sebagai apa dong ?
>
> It's just my two cents
> So, what is yours ?
>
> Regards,
> Kid
>
> 2017-07-27 11:03 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear Be-Excel,
>
> Coretan kecil ini saya tujukan untuk member Be-Excel yang jarang
> menggunakan function Sumproduct (termasuk saya).
> Sumproduct adalah "array formula (function)" yang penulisannya tidak perlu
> Array (ada tanda "{}"
> "=Sumproduct(
>
> Satu hal yang "berbeda" dari Sumproduct adalah penggunaan tanda kali ("***"
> sebagai tanda pemisah bukan tanda koma ("*,*"
> Indonesia atau tanda titik koma ("*;*"
>
> Penulisan array1, array2 dstnya selalu mengacu pada *Range Acuan = Cell*.
> Agar formula Sumproduct dapat dicopy tentunya *Range* *Acuan* tersebut
> harus diberi tanda "*$*" dengan menekan tombol *F4*, sehingga setiap kali
> range yang menjadi acuan berubah maka penulisan *Range Acuan* pada
> Sumproduct harus diubah pula,
>
> Solusi untuk mengatasi hal tersebut adalah menggunakan Table sebagai Range
> Acuan dengan cara memblok range yang menjadi acuan kemudian menggantinya
> menjadi Table (Insert Table).
> Setelah function Sumproduct mengacu pada Table, jika ada tambahan data
> maka penulisan *Range Acuan (Table)* dalam Sumproduct tidak perlu diubah
> lagi.
>
> Untuk lebih memahami/mendalami penggunaan Sumproduct, silakan gunakan
> function Sumproduct untuk menentukan harga satuan pada file terlampir,
> dimana *Range Acuan*nya sdh berupa *Table*.
>
> Selamat mencoba.
>
> Salam,
> HK
>
>
>
>
Thu Jul 27, 2017 9:52 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Danny,
1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah activex
control, nama-nama checkbox yang diubah nilainya diawali chkKid (seperti
chkKid01, chkKid02, dan sebagainya), cells trigger (yang diubah adalah A1).
Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap oleobject
dalam sheet bernama 'Kid'
if oole.name like "chkKid*" then 'si oleobject yang
diproses memilki nama yang diawali 'chkKid' (case sensitive)
oole.value=false
endif
next oole
endif
endif
2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form control,
nama-nama check box yang diubah nilainya diawali shpChk (seperti shpChk01,
shpChk02, dan sebagainya), cells trigger (yang diubah adalah A1).
dim shp as checkbox
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each shp in sheets("kid").checkboxes
if shp.name like "shpChk*" then 'case sensitive
shp.value=xloff
endif
next shp
endif
endif
Kira-kiranya demikian.
Regards,
Kid
On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Selamat siang, saya ingin bertanya.
>
> Jika setiap kali saya merubah nilai dalam cell L5 (berapapun nilainya)
> maka checkbox yang berada pada sheet aktif tersebut tidak tercentang.
>
> Rumus VBAnya bagaimana yaa?
>
>
>
1. Misal, nama sheetnya adalah 'Kid', semua checkbox adalah activex
control, nama-nama checkbox yang diubah nilainya diawali chkKid (seperti
chkKid01, chkKid02, dan sebagainya), cells trigger (yang diubah adalah A1).
Buat prosedur event di sheet 'Kid' untuk event bernama change. Lalu isi
dengan script seperti ini :
dim oOLE as oleobject
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each oole in sheets("kid").oleobjects 'disetiap oleobject
dalam sheet bernama 'Kid'
if oole.name like "chkKid*" then 'si oleobject yang
diproses memilki nama yang diawali 'chkKid' (case sensitive)
oole.value=false
endif
next oole
endif
endif
2. Misal, nama sheetnya adalah 'Kid', semua check box adalah form control,
nama-nama check box yang diubah nilainya diawali shpChk (seperti shpChk01,
shpChk02, dan sebagainya), cells trigger (yang diubah adalah A1).
dim shp as checkbox
if target.count=1 then 'yang berubah cuma 1 cells doang
if target.address="$A$1" then 'cuma A1 'case sensitive'
for each shp in sheets("kid").checkboxes
if shp.name like "shpChk*" then 'case sensitive
shp.value=xloff
endif
next shp
endif
endif
Kira-kiranya demikian.
Regards,
Kid
On Thu, Jul 27, 2017 at 3:20 PM, Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Selamat siang, saya ingin bertanya.
>
> Jika setiap kali saya merubah nilai dalam cell L5 (berapapun nilainya)
> maka checkbox yang berada pada sheet aktif tersebut tidak tercentang.
>
> Rumus VBAnya bagaimana yaa?
>
>
>
Thu Jul 27, 2017 12:00 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
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
#yiv6004982626 #yiv6004982626 -- #yiv6004982626ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6004982626 #yiv6004982626ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626ads {margin-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad {padding:0 0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad p {margin:0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad a {color:#0000ff;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc {font-family:Arial;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc #yiv6004982626hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc .yiv6004982626ad {margin-bottom:10px;padding:0 0;}#yiv6004982626 #yiv6004982626actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6004982626 #yiv6004982626activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6004982626 #yiv6004982626activity span {font-weight:700;}#yiv6004982626 #yiv6004982626activity span:first-child {text-transform:uppercase;}#yiv6004982626 #yiv6004982626activity span a {color:#5085b6;text-decoration:none;}#yiv6004982626 #yiv6004982626activity span span {color:#ff7900;}#yiv6004982626 #yiv6004982626activity span .yiv6004982626underline {text-decoration:underline;}#yiv6004982626 .yiv6004982626attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6004982626 .yiv6004982626attach div a {text-decoration:none;}#yiv6004982626 .yiv6004982626attach img {border:none;padding-right:5px;}#yiv6004982626 .yiv6004982626attach label {display:block;margin-bottom:5px;}#yiv6004982626 .yiv6004982626attach label a {text-decoration:none;}#yiv6004982626 blockquote {margin:0 0 0 4px;}#yiv6004982626 .yiv6004982626bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6004982626 .yiv6004982626bold a {text-decoration:none;}#yiv6004982626 dd.yiv6004982626last p a {font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span.yiv6004982626yshortcuts {margin-right:0;}#yiv6004982626 div.yiv6004982626attach-table div div a {text-decoration:none;}#yiv6004982626 div.yiv6004982626attach-table {width:400px;}#yiv6004982626 div.yiv6004982626file-title a, #yiv6004982626 div.yiv6004982626file-title a:active, #yiv6004982626 div.yiv6004982626file-title a:hover, #yiv6004982626 div.yiv6004982626file-title a:visited {text-decoration:none;}#yiv6004982626 div.yiv6004982626photo-title a, #yiv6004982626 div.yiv6004982626photo-title a:active, #yiv6004982626 div.yiv6004982626photo-title a:hover, #yiv6004982626 div.yiv6004982626photo-title a:visited {text-decoration:none;}#yiv6004982626 div#yiv6004982626ygrp-mlmsg #yiv6004982626ygrp-msg p a span.yiv6004982626yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6004982626 .yiv6004982626green {color:#628c2a;}#yiv6004982626 .yiv6004982626MsoNormal {margin:0 0 0 0;}#yiv6004982626 o {font-size:0;}#yiv6004982626 #yiv6004982626photos div {float:left;width:72px;}#yiv6004982626 #yiv6004982626photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6004982626 #yiv6004982626photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6004982626 #yiv6004982626reco-category {font-size:77%;}#yiv6004982626 #yiv6004982626reco-desc {font-size:77%;}#yiv6004982626 .yiv6004982626replbq {margin:4px;}#yiv6004982626 #yiv6004982626ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6004982626 #yiv6004982626ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6004982626 #yiv6004982626ygrp-mlmsg select, #yiv6004982626 input, #yiv6004982626 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg pre, #yiv6004982626 code {font:115% monospace;}#yiv6004982626 #yiv6004982626ygrp-mlmsg * {line-height:1.22em;}#yiv6004982626 #yiv6004982626ygrp-mlmsg #yiv6004982626logo {padding-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-msg p a {font-family:Verdana;}#yiv6004982626 #yiv6004982626ygrp-msg p#yiv6004982626attach-count span {color:#1E66AE;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco #yiv6004982626reco-head {color:#ff7900;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li a {font-size:130%;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov ul {margin:0;padding:0 0 0 8px;}#yiv6004982626 #yiv6004982626ygrp-text {font-family:Georgia;}#yiv6004982626 #yiv6004982626ygrp-text p {margin:0 0 1em 0;}#yiv6004982626 #yiv6004982626ygrp-text tt {font-size:120%;}#yiv6004982626 #yiv6004982626ygrp-vital ul li:last-child {border-right:none !important;}#yiv6004982626
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
#yiv6004982626 #yiv6004982626 -- #yiv6004982626ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6004982626 #yiv6004982626ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626ads {margin-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad {padding:0 0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad p {margin:0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad a {color:#0000ff;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc {font-family:Arial;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc #yiv6004982626hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc .yiv6004982626ad {margin-bottom:10px;padding:0 0;}#yiv6004982626 #yiv6004982626actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6004982626 #yiv6004982626activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6004982626 #yiv6004982626activity span {font-weight:700;}#yiv6004982626 #yiv6004982626activity span:first-child {text-transform:uppercase;}#yiv6004982626 #yiv6004982626activity span a {color:#5085b6;text-decoration:none;}#yiv6004982626 #yiv6004982626activity span span {color:#ff7900;}#yiv6004982626 #yiv6004982626activity span .yiv6004982626underline {text-decoration:underline;}#yiv6004982626 .yiv6004982626attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6004982626 .yiv6004982626attach div a {text-decoration:none;}#yiv6004982626 .yiv6004982626attach img {border:none;padding-right:5px;}#yiv6004982626 .yiv6004982626attach label {display:block;margin-bottom:5px;}#yiv6004982626 .yiv6004982626attach label a {text-decoration:none;}#yiv6004982626 blockquote {margin:0 0 0 4px;}#yiv6004982626 .yiv6004982626bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6004982626 .yiv6004982626bold a {text-decoration:none;}#yiv6004982626 dd.yiv6004982626last p a {font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span.yiv6004982626yshortcuts {margin-right:0;}#yiv6004982626 div.yiv6004982626attach-table div div a {text-decoration:none;}#yiv6004982626 div.yiv6004982626attach-table {width:400px;}#yiv6004982626 div.yiv6004982626file-title a, #yiv6004982626 div.yiv6004982626file-title a:active, #yiv6004982626 div.yiv6004982626file-title a:hover, #yiv6004982626 div.yiv6004982626file-title a:visited {text-decoration:none;}#yiv6004982626 div.yiv6004982626photo-title a, #yiv6004982626 div.yiv6004982626photo-title a:active, #yiv6004982626 div.yiv6004982626photo-title a:hover, #yiv6004982626 div.yiv6004982626photo-title a:visited {text-decoration:none;}#yiv6004982626 div#yiv6004982626ygrp-mlmsg #yiv6004982626ygrp-msg p a span.yiv6004982626yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6004982626 .yiv6004982626green {color:#628c2a;}#yiv6004982626 .yiv6004982626MsoNormal {margin:0 0 0 0;}#yiv6004982626 o {font-size:0;}#yiv6004982626 #yiv6004982626photos div {float:left;width:72px;}#yiv6004982626 #yiv6004982626photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6004982626 #yiv6004982626photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6004982626 #yiv6004982626reco-category {font-size:77%;}#yiv6004982626 #yiv6004982626reco-desc {font-size:77%;}#yiv6004982626 .yiv6004982626replbq {margin:4px;}#yiv6004982626 #yiv6004982626ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6004982626 #yiv6004982626ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6004982626 #yiv6004982626ygrp-mlmsg select, #yiv6004982626 input, #yiv6004982626 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg pre, #yiv6004982626 code {font:115% monospace;}#yiv6004982626 #yiv6004982626ygrp-mlmsg * {line-height:1.22em;}#yiv6004982626 #yiv6004982626ygrp-mlmsg #yiv6004982626logo {padding-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-msg p a {font-family:Verdana;}#yiv6004982626 #yiv6004982626ygrp-msg p#yiv6004982626attach-count span {color:#1E66AE;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco #yiv6004982626reco-head {color:#ff7900;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li a {font-size:130%;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov ul {margin:0;padding:0 0 0 8px;}#yiv6004982626 #yiv6004982626ygrp-text {font-family:Georgia;}#yiv6004982626 #yiv6004982626ygrp-text p {margin:0 0 1em 0;}#yiv6004982626 #yiv6004982626ygrp-text tt {font-size:120%;}#yiv6004982626 #yiv6004982626ygrp-vital ul li:last-child {border-right:none !important;}#yiv6004982626
.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
#yiv6004982626 #yiv6004982626 -- #yiv6004982626ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6004982626 #yiv6004982626ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6004982626 #yiv6004982626ygrp-mkp #yiv6004982626ads {margin-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad {padding:0 0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad p {margin:0;}#yiv6004982626 #yiv6004982626ygrp-mkp .yiv6004982626ad a {color:#0000ff;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc {font-family:Arial;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc #yiv6004982626hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ygrp-lc .yiv6004982626ad {margin-bottom:10px;padding:0 0;}#yiv6004982626 #yiv6004982626actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6004982626 #yiv6004982626activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6004982626 #yiv6004982626activity span {font-weight:700;}#yiv6004982626 #yiv6004982626activity span:first-child {text-transform:uppercase;}#yiv6004982626 #yiv6004982626activity span a {color:#5085b6;text-decoration:none;}#yiv6004982626 #yiv6004982626activity span span {color:#ff7900;}#yiv6004982626 #yiv6004982626activity span .yiv6004982626underline {text-decoration:underline;}#yiv6004982626 .yiv6004982626attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6004982626 .yiv6004982626attach div a {text-decoration:none;}#yiv6004982626 .yiv6004982626attach img {border:none;padding-right:5px;}#yiv6004982626 .yiv6004982626attach label {display:block;margin-bottom:5px;}#yiv6004982626 .yiv6004982626attach label a {text-decoration:none;}#yiv6004982626 blockquote {margin:0 0 0 4px;}#yiv6004982626 .yiv6004982626bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6004982626 .yiv6004982626bold a {text-decoration:none;}#yiv6004982626 dd.yiv6004982626last p a {font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6004982626 dd.yiv6004982626last p span.yiv6004982626yshortcuts {margin-right:0;}#yiv6004982626 div.yiv6004982626attach-table div div a {text-decoration:none;}#yiv6004982626 div.yiv6004982626attach-table {width:400px;}#yiv6004982626 div.yiv6004982626file-title a, #yiv6004982626 div.yiv6004982626file-title a:active, #yiv6004982626 div.yiv6004982626file-title a:hover, #yiv6004982626 div.yiv6004982626file-title a:visited {text-decoration:none;}#yiv6004982626 div.yiv6004982626photo-title a, #yiv6004982626 div.yiv6004982626photo-title a:active, #yiv6004982626 div.yiv6004982626photo-title a:hover, #yiv6004982626 div.yiv6004982626photo-title a:visited {text-decoration:none;}#yiv6004982626 div#yiv6004982626ygrp-mlmsg #yiv6004982626ygrp-msg p a span.yiv6004982626yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6004982626 .yiv6004982626green {color:#628c2a;}#yiv6004982626 .yiv6004982626MsoNormal {margin:0 0 0 0;}#yiv6004982626 o {font-size:0;}#yiv6004982626 #yiv6004982626photos div {float:left;width:72px;}#yiv6004982626 #yiv6004982626photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6004982626 #yiv6004982626photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6004982626 #yiv6004982626reco-category {font-size:77%;}#yiv6004982626 #yiv6004982626reco-desc {font-size:77%;}#yiv6004982626 .yiv6004982626replbq {margin:4px;}#yiv6004982626 #yiv6004982626ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6004982626 #yiv6004982626ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6004982626 #yiv6004982626ygrp-mlmsg select, #yiv6004982626 input, #yiv6004982626 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6004982626 #yiv6004982626ygrp-mlmsg pre, #yiv6004982626 code {font:115% monospace;}#yiv6004982626 #yiv6004982626ygrp-mlmsg * {line-height:1.22em;}#yiv6004982626 #yiv6004982626ygrp-mlmsg #yiv6004982626logo {padding-bottom:10px;}#yiv6004982626 #yiv6004982626ygrp-msg p a {font-family:Verdana;}#yiv6004982626 #yiv6004982626ygrp-msg p#yiv6004982626attach-count span {color:#1E66AE;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco #yiv6004982626reco-head {color:#ff7900;font-weight:700;}#yiv6004982626 #yiv6004982626ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li a {font-size:130%;text-decoration:none;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6004982626 #yiv6004982626ygrp-sponsor #yiv6004982626ov ul {margin:0;padding:0 0 0 8px;}#yiv6004982626 #yiv6004982626ygrp-text {font-family:Georgia;}#yiv6004982626 #yiv6004982626ygrp-text p {margin:0 0 1em 0;}#yiv6004982626 #yiv6004982626ygrp-text tt {font-size:120%;}#yiv6004982626 #yiv6004982626ygrp-vital ul li:last-child {border-right:none !important;}#yiv6004982626
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
#yiv6004982626 #yiv6004982626 -- #yiv6004982626ygrp-
Thu Jul 27, 2017 5:22 pm (PDT) . Posted by:
zainul_ulum
Dear Be-Excelers,
Selain menggunakan pivot table, saya menggunakan SQL dengan Microsoft Query di Excel untuk merangkum tabel dari beberapa file.
Kira-kira contohnya seperti di ini:
'=====================
SELECT [COMPANY],SUM([AMOUNT]) AS [TOTAL AMOUNT]
FROM
(
SELECT
UCASE(mat.[COMPANY NAME]) AS [COMPANY],
mat.[RFM_ID],
mat.[DESCRIPTION],
mat.[AMOUNT]
FROM [Y:\LOKASI FILE\FILEPERTAMA.xlsx].[MTRL$] mat
UNION ALL
SELECT
UCASE(work.[COMPANY NAME]) AS [COMPANY],
work.[WO_ID],
work.[DESCRIPTION],
work.[AMOUNT]
FROM [Y:\LOKASIFILE\FILEKEDUA.xlsx].[WORK$] work
)
GROUP BY [COMPANY]
'===========================
Untuk menampilkan [Grand Total], saya biasanya menggunakan bantuan pivot table, tetapi bagaimanakah caranya untuk menampilkan grandtotal dengan GROUP BY WITH ROLLUP di SQL? ataukah ada cara lainnya ?
Terimakasih,
-zainul
Selain menggunakan pivot table, saya menggunakan SQL dengan Microsoft Query di Excel untuk merangkum tabel dari beberapa file.
Kira-kira contohnya seperti di ini:
'=======
SELECT [COMPANY],SUM(
FROM
(
SELECT
UCASE(mat.[COMPANY NAME]) AS [COMPANY],
mat.[RFM_ID]
mat.[DESCRIPTION]
mat.[AMOUNT]
FROM [Y:\LOKASI FILE\FILEPERTAM
UNION ALL
SELECT
UCASE(work.[
work.[WO_ID]
work.[DESCRIPTION]
work.[AMOUNT]
FROM [Y:\LOKASIFILE&
)
GROUP BY [COMPANY]
'=======
Untuk menampilkan [Grand Total], saya biasanya menggunakan bantuan pivot table, tetapi bagaimanakah caranya untuk menampilkan grandtotal dengan GROUP BY WITH ROLLUP di SQL? ataukah ada cara lainnya ?
Terimakasih,
-zainul
============================================================
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