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 <syaiful...@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.
>
>
>
