Re: ]] XL-mania [[ Makro buat Save file Sheet tertentu

 

sebetulnya workbook yg dilampirkan tidak hanya berisi 2 sheets itu saja
melainkan masih ada 5 sheets lainnya dlm status Hidden (FCS Jan s/d FCS May)

makro untuk men-SAVE AS  wokbuk tsb menjadi bernama FCS_OKTOBER.xls
(atau nama lain sesuai kehendak anda 9tuliskan di inputbox) dan hanya berisi
dua sheet yg disebutkan di email, kira-kira seperti ini...

Sub SaveAsNewBook()
   ' siti Vi / bluewater, 10 okt 2010
   '---------------------------------
   Dim NamaFile As String
   ' menawarkan kesempatan memberi nama lain selain default
   NamaFile = InputBox( _
      Prompt:="Tuliskan Nama Workbook Baru yg anda kehendaki", _
      Title:="2 sheet ituhh mau di save sbg book baru..", _
      Default:="FSC_OKTOBER")
   ' melaksanakan saving 2 sheets menjadi book baru
   ' (hanya jika inputBox TIDAK dikosongkan,
   '  dan isinya valid sbg nama file)
   If Len(NamaFile) > 0 Then
      Sheets(Array("DISTRIBUTOR", "SUMMARY AREA")).Copy
      ActiveWorkbook.SaveAs _
        Filename:=ThisWorkbook.Path & "\" & NamaFile & ".xls", _
        FileFormat:=xlExcel8
   End If
End Sub

jalankan makro melalui tombol Alt + F8 >> pilih nama makro >> RUN





2010/10/8 DEDI <dedi.herdiana_74@yahoo.co.id>
> Dear rekan2 XL-Mania,
> Saya sangat bangga dengan rekan2 XL-Mania terutama pakar2 XL yang Ruarrrr... Biassa...
> Gimana nch makronya jika saya mau Save file tapi hanya Sheet tertentu saja.
> Saya lampirkan file yang isinya Sheet DISTRIBUTOR dan SUMMARY AREA,
> saya hanya ingin save file namanya FCS_OKTOBER tapi yang diambil hanya Sheet DISTRIBUTOR saja
> menggunakan makro.
> XL-Mania pasti Ok dch, saya tunggu ya pencerahannya
> Salam XL-Mania,
> dedi

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 118

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ooooOOooOooOooOooOoooOoo ngantuukkkkk... badday pasti berlalu...  |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___