Re: ]] XL-mania [[ Membuat sheet baru dari master sheet yang sudah ada

 

hai gentayangan.. (ich syeremm..)

mungkin listing vba-code - nya seperti ini

Private Sub CmdCreate_Click()

   ' vba coded by: indri hapsari 20 feb 2012

   '----------------------------------------

   Dim NewSht As Worksheet, ShName As String

   If CboMonth.ListIndex >= 0 Then

      If IsNumeric(TxtYear) Then

         If Len(TxtYear) = 4 Then

            ShName = CboMonth & "-" & TxtYear

            If SheetFound(ShName) Then

               MsgBox "Jangan membuat sheet baru yg NAMANYA sudah ada!!", 48

               Sheets(ShName).Activate

               ListBox01.Selected(Sheets(ShName).Index - 1) = True

               Exit Sub

            Else

               Set NewSht = Worksheets.Add(After:=Sheets(Sheets.Count))

               NewSht.Name = ShName

               Sheets("Master").Range("A1:G1").Copy NewSht.Range("A1:G1")

               ListBox01.AddItem NewSht.Name

               ListBox01.ListIndex = ListBox01.ListCount - 1

            End If

         End If

      End If

   End If

End Sub

'--------------------------

- iHaps

2012/2/19 Genta Yangan <genta_yangan92@yahoo.com>

 

Dear master excel

salam kenal dari saya genta.

mohon bantuannya dalam membangun data membuat sheet baru dengan menggunakan master form yang menjadi acuan serta melistkan kedalam vb

data terlampir

salam

genta

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 67

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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

.

__,_._,___