hehehe ada error ya...
mungkin penyebabnya di baris :
if sheets(sshtname) is nothing then
coba ubah jadi seperti :
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
on error resume next
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
err.clear
on error goto 0
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
err.clear
on error goto 0
msgbox "Done."
persiapan : (sesuaikan script dengan kebutuhan. jika tidak ingin mengubah
script di atas, pastikan hal berikut ini)
1. nama sheet lokasi tombol adalah bernama input
2. dalam sheet input tersebut ada control textbox yang diberi nama txtsheet
(insert textbox ke worksheet, klik kanan pilih properties, pada
properti *(Name)* ganti nilainya dengan txtsheet)
3. copas script di atas ke event click tombol pengaktif proses salin sheet
ke workbook lain
Wassalam,
Kid.
2013/2/19 agung aldhino <[email protected]>
> **
>
>
> 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
>
>
>
