Tecnologia, programação e muito Visual FoxPro.

sexta-feira, 29 de janeiro de 2010

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

 

Dear Miss Siti Vi,

 

Terima kasih, ternyata macro buatan MS Office (Recorded Macro oleh Excel sendiri) pun masih bisa disederhanakan oleh mBak Siti, hebat!

Boleh nggak kalau pertanyaannya saya kembangkan lagi?

1.       Kalau input box nya tinggal milih dari sheet-sheet yang ada gimana ya?

2.       Trus ceritaknya begini lho … setelah saya kirim dengan email untuk diperbaiki oleh orang lain, dikembalikan lagi ke saya ……

3.       Nah ini …. Trus menggabungkannya dengan workbook awal gimana yah ( ini nama nya orang males ya …. nggak mau mikir sendiri).

Terima kasih lagi ya mBak …….

 

Best regards

Herry Sutjipto

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of siti Vi
Sent: 29 Januari 2010 12:13
To: XL-mania@yahoogroups.com
Subject: 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
 

__._,_.___
+-:: 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