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: [email protected] From: [email protected] 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 <[email protected]>: 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: [email protected] From: [email protected] 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 <[email protected]>: 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.
