6 Messages
Digest #2833
3
Bgaimana membuat data combobox nama kecamatan berdasarkan nama kabup by "Ahmad Mubarak" thommey2000
Messages
Sun Mar 16, 2014 8:10 pm (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr HK,
maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.
mohon solusinya.
terima kasih,
ASL
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Date: Sat, 15 Mar 2014 04:53:13 +0000
Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,
terima kasih ini sesuai harapan saya.
sudah dapat saya gunakan untuk pekerjaan sehari hari.
terima kasih,
salam.,
ASL
From: hendrikkarnadi@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Fri, 14 Mar 2014 08:57:40 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,Apakah seperti ini yang dimaksud?Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.Jika benar, coba lihat jawaban terlampir.
Salam,HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,debug yang keluar "wbkTarget = Workbooks.Addmohon bantuannya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.comDate: Thu, 13 Mar 2014 17:26:19 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...Wassalam,Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Mr Kid,saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook barudim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=falsewbkapp=thisworkbookwbktarget=workbooks.add
for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endifnext shtwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=true1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheetapplication.displayalerts=falsesheets.add sheets(1)for each sht in thisworkbook.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete endifnext shtif sheets.count>1 then sheets(1).deleteendifapplication.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru >> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbookdim sht as worksheet, lShtNew as longlshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=false
wbkapp=thisworkbookwbktarget=workbooks.addwbkapp.sheets.add wbkapp.sheets(1)for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count) endifnext shtif wbkapp.sheets.count>1 then wbkapp.sheets(1).delete
endifwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=truegitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...Wassalam,Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,saya punya file excel dalam workbook ada 10 sheet : 1. Man-Wkr2. Man-Tpg3. Dnm-Wkr4. Dnm-Wkr-US5. Ks-Wkr6. Dnm-J-Wkr7. Man-Trk8. Man-Fiy9. Dnm-Trk
10. Dnm-Fiy Bagaimana macro :1. bagaimana menghapus beberapa sheet pilihan misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr" arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk2. bagaimana mencopy beberapa sheet pilihan. misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wksemoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.Salam.ASL.
maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.
mohon solusinya.
terima kasih,
ASL
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Date: Sat, 15 Mar 2014 04:53:13 +0000
Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,
terima kasih ini sesuai harapan saya.
sudah dapat saya gunakan untuk pekerjaan sehari hari.
terima kasih,
salam.,
ASL
From: hendrikkarnadi@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Fri, 14 Mar 2014 08:57:40 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,Apakah seperti ini yang dimaksud?Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.Jika benar, coba lihat jawaban terlampir.
Salam,HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,debug yang keluar "wbkTarget = Workbooks.Addmohon bantuannya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.comDate: Thu, 13 Mar 2014 17:26:19 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...Wassalam,Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Mr Kid,saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook barudim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=falsewbkapp=thisworkbookwbktarget=workbooks.add
for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endifnext shtwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=true1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheetapplication.displayalerts=falsesheets.add sheets(1)for each sht in thisworkbook.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete endifnext shtif sheets.count>1 then sheets(1).deleteendifapplication.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru >> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbookdim sht as worksheet, lShtNew as longlshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=false
wbkapp=thisworkbookwbktarget=workbooks.addwbkapp.sheets.add wbkapp.sheets(1)for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count) endifnext shtif wbkapp.sheets.count>1 then wbkapp.sheets(1).delete
endifwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=truegitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...Wassalam,Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,saya punya file excel dalam workbook ada 10 sheet : 1. Man-Wkr2. Man-Tpg3. Dnm-Wkr4. Dnm-Wkr-US5. Ks-Wkr6. Dnm-J-Wkr7. Man-Trk8. Man-Fiy9. Dnm-Trk
10. Dnm-Fiy Bagaimana macro :1. bagaimana menghapus beberapa sheet pilihan misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr" arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.Salam.
Sun Mar 16, 2014 10:14 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sekedar klarifikasi pak.
Setelah kita menghapus seluruh worksheets yang bukan "Wkr" atau "Menu" maka akan tinggal suatu workbook yang terdiri dari worksheets bernama "Menu", "Menu1" dan "Wkr".
Jika anda membutuhkan worksheets bernama "Wkr" saja, mungkin ga perlu membuat Macro untuk mengcopy worksheets lagi melainkan cukup delete worksheets "Menu" dan "Menu1" secara menual kemudian save workbook dengan nama lain.
Salam,
HK
On Monday, 17 March 2014, 10:10, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,
maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.
mohon solusinya.
terima kasih,
ASL
________________________________
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Date: Sat, 15 Mar 2014 04:53:13 +0000
Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,
terima kasih ini sesuai harapan saya.
sudah dapat saya gunakan untuk pekerjaan sehari hari.
terima kasih,
salam.,
ASL
________________________________
From: hendrikkarnadi@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Fri, 14 Mar 2014 08:57:40 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,
Apakah seperti ini yang dimaksud?
1. Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"
2. Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.
Jika benar, coba lihat jawaban terlampir.
Salam,
HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
>Mr Kid,
>saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
>macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
>terlampir file yang dimaksud. mudah2n dapat solusinya.
>
>terima kasih,
>ASL
>
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: mr.nmkid@gmail.com
>Date: Thu, 6 Mar 2014 23:43:28 +0700
>Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
>
>
>
>
>Hai ASL,
>
>2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>1. delete sheet yang namanya punya teks berbunyi 'wkr'
>
>dim sht as worksheet
>
>
>application.displayalerts=false
>
>sheets.add sheets(1)
>
>
>for each sht in thisworkbook.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.delete
>
> endif
>
>next sht
>
>if sheets.count>1 then
>
> sheets(1).delete
>
>endif
>
>application.displayalerts=true
>
>
>0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>
>>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
>
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
>wbkapp.sheets.add wbkapp.sheets(1)
>for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>if wbkapp.sheets.count>1 then
>
> wbkapp.sheets(1).delete
>
>endif
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>gitu kali ya...
>
>silakan dikembangkan sendiri sesuai kebutuhan ya...
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>>
>>
>>
>>Dear BeExceller,
>>saya punya file excel dalam workbook ada 10 sheet :
>>1. Man-Wkr
>>2. Man-Tpg
>>3. Dnm-Wkr
>>4. Dnm-Wkr-US
>>5. Ks-Wkr
>>6. Dnm-J-Wkr
>>7. Man-Trk
>>8. Man-Fiy
>>9. Dnm-Trk
>>10. Dnm-Fiy
>>
>>Bagaimana macro :
>>1. bagaimana menghapus beberapa sheet pilihan
>> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
>> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
>> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>>
>>2. bagaimana mencopy beberapa sheet pilihan.
>> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
>> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>>
>>semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
>>
>>terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
>>
>>Salam.
>>ASL.
>>
>>
>>
>
>
>
Setelah kita menghapus seluruh worksheets yang bukan "Wkr" atau "Menu" maka akan tinggal suatu workbook yang terdiri dari worksheets bernama "Menu", "Menu1" dan "Wkr".
Jika anda membutuhkan worksheets bernama "Wkr" saja, mungkin ga perlu membuat Macro untuk mengcopy worksheets lagi melainkan cukup delete worksheets "Menu" dan "Menu1" secara menual kemudian save workbook dengan nama lain.
Salam,
HK
On Monday, 17 March 2014, 10:10, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,
maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.
mohon solusinya.
terima kasih,
ASL
________________________________
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Date: Sat, 15 Mar 2014 04:53:13 +0000
Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,
terima kasih ini sesuai harapan saya.
sudah dapat saya gunakan untuk pekerjaan sehari hari.
terima kasih,
salam.,
ASL
________________________________
From: hendrikkarnadi@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Fri, 14 Mar 2014 08:57:40 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,
Apakah seperti ini yang dimaksud?
1. Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"
2. Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.
Jika benar, coba lihat jawaban terlampir.
Salam,
HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
>Mr Kid,
>saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
>macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
>terlampir file yang dimaksud. mudah2n dapat solusinya.
>
>terima kasih,
>ASL
>
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: mr.nmkid@gmail.com
>Date: Thu, 6 Mar 2014 23:43:28 +0700
>Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
>
>
>
>
>Hai ASL,
>
>2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>1. delete sheet yang namanya punya teks berbunyi 'wkr'
>
>dim sht as worksheet
>
>
>application.displayalerts=false
>
>sheets.add sheets(1)
>
>
>for each sht in thisworkbook.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.delete
>
> endif
>
>next sht
>
>if sheets.count>1 then
>
> sheets(1).delete
>
>endif
>
>application.displayalerts=true
>
>
>0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>
>>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
>
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
>wbkapp.sheets.add wbkapp.sheets(1)
>for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>if wbkapp.sheets.count>1 then
>
> wbkapp.sheets(1).delete
>
>endif
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>gitu kali ya...
>
>silakan dikembangkan sendiri sesuai kebutuhan ya...
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>>
>>
>>
>>Dear BeExceller,
>>saya punya file excel dalam workbook ada 10 sheet :
>>1. Man-Wkr
>>2. Man-Tpg
>>3. Dnm-Wkr
>>4. Dnm-Wkr-US
>>5. Ks-Wkr
>>6. Dnm-J-Wkr
>>7. Man-Trk
>>8. Man-Fiy
>>9. Dnm-Trk
>>10. Dnm-Fiy
>>
>>Bagaimana macro :
>>1. bagaimana menghapus beberapa sheet pilihan
>> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
>> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
>> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
>>
>>2. bagaimana mencopy beberapa sheet pilihan.
>> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
>> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
>>
>>semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
>>
>>terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
>>
>>Salam.
>>ASL.
>>
>>
>>
>
>
>
Sun Mar 16, 2014 10:58 pm (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr HK,
ceritanya dalam 1 file terdiri dari lebih dari 20 sheet, di antara 20 sheet tsb ada sekitar 8 sheet yang mengandung nama "wkr". jadi macro kemarin sudah jalan terutama macro hapusnya, namun macro copynya jalan tetapi isi datanya tidak tercopy....
demikian, mohon dibantu.
salam,
ASL
nb. padahal ideal macro yang saya butuhkan sih, target "wkr"nya tidak dipantek didalam scrip macronya, melainkan ada pengetikan input target, sehingga agak lebih dinamis. sehingga bila ada target2 yang lainnya tidak perlu diganti discrip macro melainkan tinggal ketik inputannya saja, baru macro tereksekusi.
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Sun, 16 Mar 2014 21:19:17 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Sekedar klarifikasi pak.
Setelah kita menghapus seluruh worksheets yang bukan "Wkr" atau "Menu" maka akan tinggal suatu workbook yang terdiri dari worksheets bernama "Menu", "Menu1" dan "Wkr".
Jika anda membutuhkan worksheets bernama "Wkr" saja, mungkin ga perlu membuat Macro untuk mengcopy worksheets lagi melainkan cukup delete worksheets "Menu" dan "Menu1" secara menual kemudian save workbook dengan nama lain.
Salam,HK
On Monday, 17 March 2014, 10:10, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.mohon solusinya.terima kasih,ASLFrom: syaifullah@hotmail.comTo: belajar-excel@yahoogroups.comDate: Sat, 15 Mar 2014 04:53:13 +0000Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,terima kasih ini sesuai harapan saya.sudah dapat saya gunakan untuk pekerjaan sehari hari.terima kasih,salam.,ASLFrom: hendrikkarnadi@yahoo.comTo: belajar-excel@yahoogroups.comDate: Fri, 14 Mar 2014 08:57:40 -0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,Apakah seperti ini yang dimaksud?Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.Jika benar, coba lihat jawaban terlampir.Salam,HK On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,debug yang keluar "wbkTarget = Workbooks.Addmohon bantuannya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.comDate: Thu, 13 Mar 2014 17:26:19 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...Wassalam,Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Mr Kid,saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook barudim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=falsewbkapp=thisworkbookwbktarget=workbooks.add
for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endifnext shtwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=true1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheetapplication.displayalerts=falsesheets.add sheets(1)for each sht in thisworkbook.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete endifnext shtif sheets.count>1 then sheets(1).deleteendifapplication.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru >> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbookdim sht as worksheet, lShtNew as longlshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=false
wbkapp=thisworkbookwbktarget=workbooks.addwbkapp.sheets.add wbkapp.sheets(1)for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count) endifnext shtif wbkapp.sheets.count>1 then wbkapp.sheets(1).delete
endifwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=truegitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...Wassalam,Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,saya punya file excel dalam workbook ada 10 sheet : 1. Man-Wkr2. Man-Tpg3. Dnm-Wkr4. Dnm-Wkr-US5. Ks-Wkr6. Dnm-J-Wkr7. Man-Trk8. Man-Fiy9. Dnm-Trk
10. Dnm-Fiy Bagaimana macro :1. bagaimana menghapus beberapa sheet pilihan misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr" arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk2. bagaimana mencopy beberapa sheet pilihan. misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wksemoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.Salam.ASL.
ceritanya dalam 1 file terdiri dari lebih dari 20 sheet, di antara 20 sheet tsb ada sekitar 8 sheet yang mengandung nama "wkr". jadi macro kemarin sudah jalan terutama macro hapusnya, namun macro copynya jalan tetapi isi datanya tidak tercopy....
demikian, mohon dibantu.
salam,
ASL
nb. padahal ideal macro yang saya butuhkan sih, target "wkr"nya tidak dipantek didalam scrip macronya, melainkan ada pengetikan input target, sehingga agak lebih dinamis. sehingga bila ada target2 yang lainnya tidak perlu diganti discrip macro melainkan tinggal ketik inputannya saja, baru macro tereksekusi.
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Sun, 16 Mar 2014 21:19:17 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Sekedar klarifikasi pak.
Setelah kita menghapus seluruh worksheets yang bukan "Wkr" atau "Menu" maka akan tinggal suatu workbook yang terdiri dari worksheets bernama "Menu", "Menu1" dan "Wkr".
Jika anda membutuhkan worksheets bernama "Wkr" saja, mungkin ga perlu membuat Macro untuk mengcopy worksheets lagi melainkan cukup delete worksheets "Menu" dan "Menu1" secara menual kemudian save workbook dengan nama lain.
Salam,HK
On Monday, 17 March 2014, 10:10, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.mohon solusinya.terima kasih,ASLFrom: syaifullah@hotmail.comTo: belajar-excel@yahoogroups.comDate: Sat, 15 Mar 2014 04:53:13 +0000Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,terima kasih ini sesuai harapan saya.sudah dapat saya gunakan untuk pekerjaan sehari hari.terima kasih,salam.,ASLFrom: hendrikkarnadi@yahoo.comTo: belajar-excel@yahoogroups.comDate: Fri, 14 Mar 2014 08:57:40 -0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,Apakah seperti ini yang dimaksud?Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.Jika benar, coba lihat jawaban terlampir.Salam,HK On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,debug yang keluar "wbkTarget = Workbooks.Addmohon bantuannya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.comDate: Thu, 13 Mar 2014 17:26:19 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...Wassalam,Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Mr Kid,saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.terima kasih,ASLTo: belajar-excel@yahoogroups.comFrom: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook barudim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=falsewbkapp=thisworkbookwbktarget=workbooks.add
for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endifnext shtwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=true1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheetapplication.displayalerts=falsesheets.add sheets(1)for each sht in thisworkbook.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete endifnext shtif sheets.count>1 then sheets(1).deleteendifapplication.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru >> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbookdim sht as worksheet, lShtNew as longlshtnew=application.sheetsinnewworkbookapplication.sheetsinnewworkbook=1application.displayalerts=false
wbkapp=thisworkbookwbktarget=workbooks.addwbkapp.sheets.add wbkapp.sheets(1)for each sht in wbkapp.worksheets if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count) endifnext shtif wbkapp.sheets.count>1 then wbkapp.sheets(1).delete
endifwbktarget.sheets(1).deleteapplication.sheetsinnewworkbook=lshtnewapplication.displayalerts=truegitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...Wassalam,Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,saya punya file excel dalam workbook ada 10 sheet : 1. Man-Wkr2. Man-Tpg3. Dnm-Wkr4. Dnm-Wkr-US5. Ks-Wkr6. Dnm-J-Wkr7. Man-Trk8. Man-Fiy9. Dnm-Trk
10. Dnm-Fiy Bagaimana macro :1. bagaimana menghapus beberapa sheet pilihan misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr" arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.Salam.
Mon Mar 17, 2014 1:43 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba yang ini pak.
Macronya saya gabung.
Salam,
HK
On Monday, 17 March 2014, 12:58, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,
ceritanya dalam 1 file terdiri dari lebih dari 20 sheet, di antara 20 sheet tsb ada sekitar 8 sheet yang mengandung nama "wkr". jadi macro kemarin sudah jalan terutama macro hapusnya, namun macro copynya jalan tetapi isi datanya tidak tercopy....
demikian, mohon dibantu.
salam,
ASL
nb. padahal ideal macro yang saya butuhkan sih, target "wkr"nya tidak dipantek didalam scrip macronya, melainkan ada pengetikan input target, sehingga agak lebih dinamis. sehingga bila ada target2 yang lainnya tidak perlu diganti discrip macro melainkan tinggal ketik inputannya saja, baru macro tereksekusi.
________________________________
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Sun, 16 Mar 2014 21:19:17 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Sekedar klarifikasi pak.
Setelah kita menghapus seluruh worksheets yang bukan "Wkr" atau "Menu" maka akan tinggal suatu workbook yang terdiri dari worksheets bernama "Menu", "Menu1" dan "Wkr".
Jika anda membutuhkan worksheets bernama "Wkr" saja, mungkin ga perlu membuat Macro untuk mengcopy worksheets lagi melainkan cukup delete worksheets "Menu" dan "Menu1" secara menual kemudian save workbook dengan nama lain.
Salam,
HK
On Monday, 17 March 2014, 10:10, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,
maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.
mohon solusinya.
terima kasih,
ASL
________________________________
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Date: Sat, 15 Mar 2014 04:53:13 +0000
Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,
terima kasih ini sesuai harapan saya.
sudah dapat saya gunakan untuk pekerjaan sehari hari.
terima kasih,
salam.,
ASL
________________________________
From: hendrikkarnadi@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Fri, 14 Mar 2014 08:57:40 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,
Apakah seperti ini yang dimaksud?
1. Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"
2. Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.
Jika benar, coba lihat jawaban terlampir.
Salam,
HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
>Mr Kid,
>saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
>macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
>terlampir file yang dimaksud. mudah2n dapat solusinya.
>
>terima kasih,
>ASL
>
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: mr.nmkid@gmail.com
>Date: Thu, 6 Mar 2014 23:43:28 +0700
>Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
>
>
>
>
>Hai ASL,
>
>2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>1. delete sheet yang namanya punya teks berbunyi 'wkr'
>
>dim sht as worksheet
>
>
>application.displayalerts=false
>
>sheets.add sheets(1)
>
>
>for each sht in thisworkbook.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.delete
>
> endif
>
>next sht
>
>if sheets.count>1 then
>
> sheets(1).delete
>
>endif
>
>application.displayalerts=true
>
>
>0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>
>>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
>
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
>wbkapp.sheets.add wbkapp.sheets(1)
>for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>if wbkapp.sheets.count>1 then
>
> wbkapp.sheets(1).delete
>
>endif
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>gitu kali ya...
>
>silakan dikembangkan sendiri sesuai kebutuhan ya...
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>>
>>
>>
>>Dear BeExceller,
>>saya punya file excel dalam workbook ada 10 sheet :
>>1. Man-Wkr
>>2. Man-Tpg
>>3. Dnm-Wkr
>>4. Dnm-Wkr-US
>>5. Ks-Wkr
>>6. Dnm-J-Wkr
>>7. Man-Trk
>>8. Man-Fiy
>>9. Dnm-Trk
>>10. Dnm-Fiy
>>
>>Bagaimana macro :
>>1. bagaimana menghapus beberapa sheet pilihan
>> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
>> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
>> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>>
>>2. bagaimana mencopy beberapa sheet pilihan.
>> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
>> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
>>
>>semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
>>
>>terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
>>
>>Salam.
>>ASL.
>>
>>
>>
>
>
>
Macronya saya gabung.
Salam,
HK
On Monday, 17 March 2014, 12:58, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,
ceritanya dalam 1 file terdiri dari lebih dari 20 sheet, di antara 20 sheet tsb ada sekitar 8 sheet yang mengandung nama "wkr". jadi macro kemarin sudah jalan terutama macro hapusnya, namun macro copynya jalan tetapi isi datanya tidak tercopy....
demikian, mohon dibantu.
salam,
ASL
nb. padahal ideal macro yang saya butuhkan sih, target "wkr"nya tidak dipantek didalam scrip macronya, melainkan ada pengetikan input target, sehingga agak lebih dinamis. sehingga bila ada target2 yang lainnya tidak perlu diganti discrip macro melainkan tinggal ketik inputannya saja, baru macro tereksekusi.
________________________________
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Sun, 16 Mar 2014 21:19:17 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Sekedar klarifikasi pak.
Setelah kita menghapus seluruh worksheets yang bukan "Wkr" atau "Menu" maka akan tinggal suatu workbook yang terdiri dari worksheets bernama "Menu", "Menu1" dan "Wkr".
Jika anda membutuhkan worksheets bernama "Wkr" saja, mungkin ga perlu membuat Macro untuk mengcopy worksheets lagi melainkan cukup delete worksheets "Menu" dan "Menu1" secara menual kemudian save workbook dengan nama lain.
Salam,
HK
On Monday, 17 March 2014, 10:10, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr HK,
maaf, ternyata setelah saya pakai data kerja yang ada, macro untuk mengcopy seluruh sheet yang mengandung "wkr" ke dalam workbook baru nya hanya nama sheet nya saja yang dicopy, sementara isinya tidak tercopy.
mohon solusinya.
terima kasih,
ASL
________________________________
From: syaifullah@hotmail.com
To: belajar-excel@yahoogroups.com
Date: Sat, 15 Mar 2014 04:53:13 +0000
Subject: RE: [belajar-excel] Menggabungkan data beberapa file
Mr HK,
terima kasih ini sesuai harapan saya.
sudah dapat saya gunakan untuk pekerjaan sehari hari.
terima kasih,
salam.,
ASL
________________________________
From: hendrikkarnadi@yahoo.com
To: belajar-excel@yahoogroups.com
Date: Fri, 14 Mar 2014 08:57:40 -0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file
Pak ASL,
Apakah seperti ini yang dimaksud?
1. Menghapus seluruh Sheet kecuali sheet yang mengandung "Menu" atau "Wkr"
2. Mengcopy seluruh Sheet yang mengandung "Wkr" ke dalam Workbook baru.
Jika benar, coba lihat jawaban terlampir.
Salam,
HK
On Friday, 14 March 2014, 13:20, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
________________________________
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>
>Mr Kid,
>saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
>macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
>terlampir file yang dimaksud. mudah2n dapat solusinya.
>
>terima kasih,
>ASL
>
>
>________________________________
>To: belajar-excel@yahoogroups.com
>From: mr.nmkid@gmail.com
>Date: Thu, 6 Mar 2014 23:43:28 +0700
>Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
>
>
>
>
>Hai ASL,
>
>2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>1. delete sheet yang namanya punya teks berbunyi 'wkr'
>
>dim sht as worksheet
>
>
>application.displayalerts=false
>
>sheets.add sheets(1)
>
>
>for each sht in thisworkbook.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.delete
>
> endif
>
>next sht
>
>if sheets.count>1 then
>
> sheets(1).delete
>
>endif
>
>application.displayalerts=true
>
>
>0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>
>>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
>
>dim wbkApp as workbook,wbkTarget as workbook
>dim sht as worksheet, lShtNew as long
>
>lshtnew=application.sheetsinnewworkbook
>application.sheetsinnewworkbook=1
>application.displayalerts=false
>
>
>wbkapp=thisworkbook
>
>wbktarget=workbooks.add
>
>
>wbkapp.sheets.add wbkapp.sheets(1)
>for each sht in wbkapp.worksheets
>
> if instr(lcase$(sht.name),"wkr")<>0 then
>
> sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
>
> endif
>next sht
>
>if wbkapp.sheets.count>1 then
>
> wbkapp.sheets(1).delete
>
>endif
>wbktarget.sheets(1).delete
>
>application.sheetsinnewworkbook=lshtnew
>application.displayalerts=true
>
>
>gitu kali ya...
>
>silakan dikembangkan sendiri sesuai kebutuhan ya...
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
>
>
>>
>>
>>
>>Dear BeExceller,
>>saya punya file excel dalam workbook ada 10 sheet :
>>1. Man-Wkr
>>2. Man-Tpg
>>3. Dnm-Wkr
>>4. Dnm-Wkr-US
>>5. Ks-Wkr
>>6. Dnm-J-Wkr
>>7. Man-Trk
>>8. Man-Fiy
>>9. Dnm-Trk
>>10. Dnm-Fiy
>>
>>Bagaimana macro :
>>1. bagaimana menghapus beberapa sheet pilihan
>> misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
>> arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
>> sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
>>
>>2. bagaimana mencopy beberapa sheet pilihan.
>> misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
>> sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
>>
>>semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
>>
>>terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
>>
>>Salam.
>>ASL.
>>
>>
>>
>
>
>
Sun Mar 16, 2014 10:14 pm (PDT) . Posted by:
"Haris Rifai" haris.rifai
Assalamu'alaikum Pak Ahmad Mubarak.
File terlampir semoga bisa mambantu. Buat rekan-rekan tolong bantu nomor otomatis dan copy data OptionButton ke worksheet karena saya belum bisa & juga pengen bisa.
terimaksih.
Pada , Haris Rifai <haris.rifai@yahoo.co.id> menulis:
Pada Minggu, 16 Maret 2014 14:18, Ahmad Mubarak <thommey2000@yahoo.com> menulis:
Dear rekan-rekan sekalian. kami mohon bantuan gmn caranya agar form pada excel pada lampiran ini bisa berjalan sesuai yg diinginkan. penjelasan detilnya ada pada lampiran email ini. atas perhatiannya kami ucapkan terima kasih.
"Tommy"
File terlampir semoga bisa mambantu. Buat rekan-rekan tolong bantu nomor otomatis dan copy data OptionButton ke worksheet karena saya belum bisa & juga pengen bisa.
terimaksih.
Pada , Haris Rifai <haris.rifai@yahoo.co.id> menulis:
Pada Minggu, 16 Maret 2014 14:18, Ahmad Mubarak <thommey2000@yahoo.com> menulis:
Dear rekan-rekan sekalian. kami mohon bantuan gmn caranya agar form pada excel pada lampiran ini bisa berjalan sesuai yg diinginkan. penjelasan detilnya ada pada lampiran email ini. atas perhatiannya kami ucapkan terima kasih.
"Tommy"
Sun Mar 16, 2014 10:14 pm (PDT) . Posted by:
"Ahmad Mubarak" thommey2000
Salam rekan-rekan sekalian.
Mohon pencerahannya:
misal ada 2 combobox, combobox1 akan berisi pilihan "kabupaten" . sedangkan combobox2 akan berisi data "kecamatan".
nah misal kita memilih kabupaten *A" di combobox1 maka dicombobox2 isinya adalah nama2 kecamatan yang ada diarea kabupaten "A" saja,
demikian halnya kalau kita memilih combobox1 "kabupaten B" maka pada combobox2 akan tampil nama kecamatan didalam area kabupaten B.
Sekian saja mohon bantuannya.
Mohon pencerahannya:
misal ada 2 combobox, combobox1 akan berisi pilihan "kabupaten&quo
nah misal kita memilih kabupaten *A" di combobox1 maka dicombobox2 isinya adalah nama2 kecamatan yang ada diarea kabupaten "A" saja,
demikian halnya kalau kita memilih combobox1 "kabupaten B" maka pada combobox2 akan tampil nama kecamatan didalam area kabupaten B.
Sekian saja mohon bantuannya.
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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