]] XL-mania [[ Membuat Workbook yg Otomatis jumlah dan nama Sheets-nya Sesuai List

anda punya Daftar / List !
misalnya deretan angka 01 s/d 31 (menggambarkan tanggal dlm sebulan)
atau: Jan, Feb, Mar dst sampai Des (nama bulan dlm satu tahun)
atau: List lain apapun yg berisi items sesuai keperluan anda
Lalu setiap item ingin dibuatkan 1 sheet dan nama item tertulis sbg nama Sheet;
dan semua itu tergabung dlm sebuah workbook.

Jika List tsb sudah tertulis di sekolom (atau sebaris) cells, (kita sebut RangeList)
untuk membuat workbooknya anda tidak perlu repot, karena
(misal dlm kasus ingin workbook berisi 12 sheet nama-nama bulan)

1.
untuk mengetahui jumlah 12, kan bisa dicari dengan rumus, misal ROWS(RangeList)
2.
untuk membuka workbook yg pasti berisi 12 sheet, sebelumnya kita tinggal mengatur
setting (pada dialog options)  Sheets In New Workbooks = 12
3.
Untuk memberi nama tiap sheets = teks di tiap cell pada RangeList, secara urut,
kita tinggal memberi nama dari sheet paling depan, diberi nama ex text yg kita baca
dari RangeList mulai dari cell paling atas / paling kiri.
4.
Setelah selesai jangan lupa mengembalikan nilai setting Sheets In New Workbooks
ke nilai semula.

Rangkaian semua tindakan tsb boleh saja anda lakukan secara manual, tetapi akan
lebih cepat kalau dicodekan lebih dulu, agar untuk mengerjakan keperluan sejenis
di lain hari, kita tinggal menyentuh tombol saja

Listnya tidak harus sama dengan List yg pernah dibuat,
anda dapat membuat List apa saja, kapan saja...
Blok RangeList-nya !  Pencet Tombol nya ! 
Jadi Sir!   Yes, We Can, Sir !

------------------
Sub Add_New_Special_WorkBook()
   ' siti Vi / membuat NewBook dgn Jumlah & Nama Sheets
   ' sesuai Name-List yg ditentukan lebih dulu, sekehendakmu...
   ' jkt 29 mei 2009
   '-------------------------------------------------
   Dim NameList As Range
   Dim nSheetsOpt As Integer
   Dim n As Integer

   ' setting Jml SheetsInNewBook diingat dlm sebuah variable
   nSheetsOpt = Application.SheetsInNewWorkbook

   On Error Resume Next 
   ' dgn InputBox ini User dapat menentukan Range ( berisi List ) pilihannya...
   Set NameList = Application.InputBox( _
       Prompt:="Pilih List Nama yg anda kehendaki", _
       Title:="Membuat Nama Sheets sesuai List", _
       Default:=Selection.Address, Type:=8)

   ' setting Jml Sheet dlm NewBook di atur = jml cell dlm List
   Application.SheetsInNewWorkbook = NameList.Cells.Count

   '  dibuka Book baru, 
     '  (yg jumlah sheets-nya tentu sesuai jumlah item dlm List anda !!)
   Workbooks.Add
  
   ' looping mengunjungi semua sheets mulai dari depan;  setiap
   ' kunjungan = mengubah NAMA sheet sesuai urutan data NameList
   For n = 1 To NameList.Cells.Count
      Worksheets(n).Name = NameList(n)
   Next n
  
   '  kembalikan nilai SheetInNewBook  = nilai settingan semula
   Application.SheetsInNewWorkbook = nSheetsOpt
  
   ' msgBox sbg informasi kpd user
   MsgBox ActiveWorkbook.Name & " ini belum disave," & _
      vbCr & "Silahkan diatur sendiri savingnya.. ", _
      64, "NewBook with Customized SheetNames"
End Sub
----------------------

__._,_.___

Messages in this topic (1) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Uanggggg... di manakah kau beradaaaa?                             |
| 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              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Recent Activity

•  68
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___