thanks Mr Kid. tapi masih error. jika tidak salah workbook yang baru berisi sheet "txtsheet" ya. jadi disini kita ngisinya manual. jika kita kita mau sheet lain. kita harus rubah VB nya. jika saya coba baca VB nya seperti itu. maaf kalo salah karena baru belajar. untuk nama sheetnya kita menggunakan panduan combo box (seperti dalam contoh fle) bagaimana ya Mr kid bunyi VB nya? ohya untuk combo boxnya bagaimana kita membuat pilihannya. thank. D Nozz
________________________________ Dari: Mr. Kid <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Selasa, 19 Februari 2013 11:01 Judul: Re: [belajar-excel] Open New File 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 langsungdim >lDefShtCount as long dim wbk as workbookset wbk = >thisworkbookldefshtcount=application.sheetsinnewworkbook 'simpan dulu >jumlah sheet default yang dipakai >sekarangapplication.sheetsinnewworkbook=7workbooks.addwbk.activateapplication.sheetsinnewworkbook=ldefshtcountWassalam,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 NJika 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 macro3. beri nama macro (misal : BuatWorkbookBaru)4. pada shortcut isi >>dengan huruf N5. tekan OK6. tekan CTRL N7. tekan tombol Stop recording8. save >>as workbook dengan menekan ALT F A atau menekan F129. pada save as type, >>pilih .xlsm10. tekan tombol Save11. coba tekan CTRL SHIFT NJika 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 ) -> OK3. save (CTRL S)4. klik sebuah cell5. >>klik shapeJika ingin lihat script untuk buat workbook baru :1. ke VBE dengan >>menekan ALT F112. double click Module13. 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 baru5. kembali ke worksheet dengan menekan ALT F11Jika ingin buat secara langsung tanpa record macro :1. ke VBE2. menu Insert -> Module3. copas script berikut :public sub ContohBuatWorkbookBaru() workbooks.addend sub4. kembali ke worksheet5. 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???
