ya tinggal nambah"in" perintah menghapus gambar tombol saja dong.
(sambil diperingkas dikittt...)
Sub CopySheet()
Sheets("Template Sheet").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = InputBox("Silakan masukan Nama sheet yang akan Anda
create", "Sheet Baru")
ActiveSheet.Shapes("button 1").Delete
End Sub
----- Original Message -----
From: Herry Sutjipto
To: [email protected]
Sent: Tuesday, January 12, 2010 7:22 AM
Subject: RE: ]] XL-mania [[ mengunci dan mengunci
Dear Mr Syamsul and all,
Good idea ... tapi gimana dong supaya Command button tidak ikut tercopy? He
he he .. Nambahin kerjaan ajah .
Best regards
Herry Sutjipto
From: [email protected] [mailto:[email protected]] On Behalf Of
Syamsul Arief
Sent: 10 Januari 2010 10:20
To: [email protected]
Subject: Re: ]] XL-mania [[ mengunci dan mengunci
Sbg tambahan sahaja, untuk kasus2 semacam ini (copy sheet/form baru) saya akan
bikin satu sheet 'generic' dulu yg kosong tapi berformat, selajutnya copy new
sheet/form dari situ.
syamsul
ctv_MyBook111111.xls
Description: MS-Excel spreadsheet
