Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 28 de janeiro de 2010

]] XL-mania [[ Copy sheet ke Workbook baru dengan nama spt sheet tsb

 

Dear XL-Mania-er,

 

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.

 

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |  
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog