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

 

Sub SheetToNewBook_2()
'------------------------
' siti Vi / 29 jan 2010
'------------------------
   Dim Rng As Range, prm As String
   Dim SelSheet As Worksheet
  
   prm = "TUNJUK / PILIH Tab Sheet yg akan di copy" & vbCrLf
   prm = prm + "Kemudian tunjuk/pilih salah satu/sembarang cell"
  
   Set Rng = Application.InputBox( _
             Prompt:=prm, Title:="Copy Sheet to a NewBook", _
             Default:=ActiveCell.Address, Type:=8)

   ' diharapkan user memilih salah satu TabSheet dengan mouse-pointernya

      '  + satu cell di sheet tsb

   Set SelSheet = Rng.Parent
  
   SelSheet.Copy
   ActiveWorkbook.SaveAs _
   Filename:=ThisWorkbook.Path & "\" & SelSheet.Name & ".xls"
  
   ThisWorkbook.Activate
  
End Sub

 

jadi sebetulnya yg DIPILIH adalah Range dari sebuah Sheet

Padahal Range itu punya orang tua (Parent) yg namana Worksheet

Makanya kita dapat menentukan WORKSHEET yg akan diproses

ya itu tadi .......: orang-tua dari Range yg dipulih..

 

-ctv-

 

 

 

---

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

__._,_.___

Reply to sender | Reply to group

Messages in this topic (6)

Recent Activity:

• New Members 118

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

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

.

__,_._,___