hehehe... jadi permasalahannya adalah copy sheet ke workbook baru.
Misal input di sheet bernama Input dan nama sheet yang akan di copy dalam
textbox bernama txtSheet di sheet input.
(letakkan script berikut ini pada event click tombol untuk proses salin
sheet)
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets("input").txtsheet.text
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
set wbknew=workbooks.add
application.sheetsinnewworkbook=lsht
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama
sheet seperti asalnya
sheets(sshtname).cells.copy wbknew.sheets(1).range("a1")
wbknew.sheets(1).name=sshtname
msgbox "Done."
Wassalam,
Kid.
2013/2/19 agung aldhino <[email protected]>
> maaf Mr Kid,
> pertanyaannya belum disertai contoh file.
> berikut contoh file nya.....
> mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
> maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai
> mengolah kata-kata.....
>
> best regards
> D Nozz
>
> *Dari:* Mr. Kid <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Senin, 18 Februari 2013 16:46
>
> *Judul:* Re: [belajar-excel] Open New File
> **
>
> Oh... gitu.
>
> Sekarang, maksud berisi sheet tertentu itu apa ?
> >> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet
> kosong langsung
> dim lDefShtCount as long
> dim wbk as workbook
> set wbk = thisworkbook
> ldefshtcount=application.sheetsinnewworkbook 'simpan dulu jumlah
> sheet default yang dipakai sekarang
> application.sheetsinnewworkbook=7
> workbooks.add
> wbk.activate
> application.sheetsinnewworkbook=ldefshtcount
>
> Wassalam,
> Kid.
>
>
> 2013/2/18 agung aldhino <[email protected]>**
>
> **
>
> Dear Mr Kid,
> maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file
> yang berisi sheet tertentu.
> maaf mr kid. kesalahan pertanyaan ada pada saya.
>
> best regards
> d Nozz
>
> *Dari:* Mr. Kid <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Senin, 18 Februari 2013 16:12
> *Judul:* Re: [belajar-excel] Open New File
> **
>
> Hai Agung,****Biasanya tanpa macro bisa dengan menekan CTRL N****Jika
> ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)**1.
> menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button
> -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon ->
> OK)**2. tekan tombol record macro**3. beri nama macro (misal :
> BuatWorkbookBaru)**4. pada shortcut isi dengan huruf N**5. tekan OK**6.
> tekan CTRL N**7. tekan tombol Stop recording**8. save as workbook dengan
> menekan ALT F A atau menekan F12**9. pada save as type, pilih .xlsm**10.
> tekan tombol Save**11. coba tekan CTRL SHIFT N****Jika ingin membuat
> tombol khusus dalam worksheet :**1. insert shape (misal rectangle)**2.
> klik kanan shape -> pilih Assign Macro -> pilih nama macro (misal tadi
> record macro bernama BuatWorkbookBaru ) -> OK**3. save (CTRL S)**4. klik
> sebuah cell**5. klik shape****Jika ingin lihat script untuk buat workbook
> baru :**1. ke VBE dengan menekan ALT F11**2. double click Module1**3.
> cari prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan
> menekan CTRL F dan pilih Current Project)**4. dalam prosedur (antara
> tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru**5.
> kembali ke worksheet dengan menekan ALT F11****Jika ingin buat secara
> langsung tanpa record macro :**1. ke VBE**2. menu Insert -> Module**3.
> copas script berikut :**public sub ContohBuatWorkbookBaru()**
> workbooks.add**end sub**4. kembali ke worksheet**5. insert shape dan
> assign macro ke prosedur ContohBuatWorkbookBaru [bila perlu]****Wassalam,*
> *Kid.
> ******
> 2013/2/18 agung aldhino <[email protected]>**
>
> **
>
> dear master excel,
> saya lagi belajar excel nich. ada yang mau saya tanyakan ke master2
> sekalian. untuk membuat new file dari sheet yang ada lewat macro bagaimana
> yach master2???
>
> **
> ****
>
> **
>
> ****
>
