Dear All,
Saya punya
file excel yang jumlah sheetnya sangat banyak sekali, sehingga file tsb
ukurannya sangat besar.
Salah satu
sheet dalam file tersebut akan saya kirim ke tempat lain dengan sarana email,
untuk diedit oleh orang lain.
Sheet
tersebut akan saya copy ke workbook baru dengan nama seperti nama sheet
tersebut, sehingga file yang saya kirim menjadi kecil ukurannya.
Saya sudah
mencoba membuat VBA nya, tetapi kok nggak jalan-2 ….. maklum sudah pikun ……
Mohon
bantuan XL-Mania-er untujk memberikan pencerahan kepada saya.
VBA yang
sudah saya buat adalah sebagai berikut:
Sub Macro1()
'
' Macro1 Macro
'
Dim wbAwal As String, wbBaru As String
Dim shtAwal As String, shtBaru As String
wbAwal = ActiveWorkbook.Name
wbBaru = InputBox(Prompt:="Masukkan Nama
Workbook Baru dengan memilih sheet dalam workbook ini", _
Title:="Membuat WorkBook Baru")
shtAwal = wbBaru
wbBaru = wbBaru + ".xls"
Workbooks.Add
SelectedWorkbook.Name = wbBaru
Workbooks(wbAwal).Activate
Sheets(shtAwal).Select
Sheets(shtAwal).Copy
After:=Workbooks(wbBaru).Sheets(1)
Sheets("Sheet1").Select
SelectedSheets.Delete
End Sub
Terima
kasih.
Best
regards.
Get your new Email address!
Grab the Email name you've always wanted before someone else does!
http://mail.promotions.yahoo.com/newdomains/aa/
