Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 28 de janeiro de 2010

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

 

Dear XL-Mania-er,

 

Perihal tersebut di atas, sudah saya dapatkan caranya, VBA nya sbb:

 

Sub CopySheet_to_wbBaru()

'

' Copy Selected Sheet to New Workbook name as Selected Sheet

'

Dim wbAwal As String, wbBaru As String, shtAwal As String

    wbAwal = ActiveWorkbook.Name

   

    wbBaru = InputBox(Prompt:="Pilih Nama Sheet yang akan di copy", _

               Title:="Copy Sheet ke WorkBook Baru")

    shtAwal = wbBaru

    wbBaru = wbBaru + ".xls"

    Sheets(shtAwal).Select

    Sheets(shtAwal).Copy

    ActiveWorkbook.SaveAs Filename:=wbBaru, FileFormat:=xlExcel8

End Sub

 

Cara buatnya :

1.       Start Record macro di aktifkan.

2.       Lakukan secara manual step-stepnya.

3.       Stop Record macro.

4.       Modifikasi dikit.

Selesai deh ……

 

Maaf nggangu ajah …….

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Herry Sutjipto
Sent: 28 Januari 2010 21:17
To: XL-mania@yahoogroups.com
Subject: ]] 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