Hot Fox: Re: ]] XL-mania [[ Copy sheet ke Workbook baru dengan nama spt sheet tsb

sexta-feira, 29 de janeiro de 2010

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

bila diringkas bisa seperti ini

( dengan asumsi bahwa: user akan selalu mengetikkan nama sheet dgn baek & benar

& tidak di blank-kan & sheet yg diketik (bukan dipilih **) namanya itu memang ADA

di workbook ybs )

Sub CopySheet_to_wbBaru()
' Copy Sheet to New Workbook
   Dim wbBaru As String
   wbBaru = InputBox("Ketikkan Nama Sheet yang akan diCopy", _
                     "Copy Sheet ke WorkBook Baru")
   Sheets(wbBaru).Copy
   ActiveWorkbook.SaveAs Filename:=wbBaru + ".xls"
End Sub

** karena InputBox jenis tsb hanya mengijinkan user mengisi textbox dengan ketikan

bukan membiarkan user memilih suatu object di luar inputbox,

(ada dua jenis InputBox didlam excel & vba, yg berlainan sifat & perilakunya )

----- Original Message -----
From: Herry Sutjipto
To: XL-mania@yahoogroups.com
Sent: Friday, January 29, 2010 8:37 AM
Subject: 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

__._,_.___

Reply to sender | Reply to group

Messages in this topic (4)

Recent Activity:

New Members 108

Visit Your Group Start a New Topic

+-:: 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living