Sub Kerjakan()
Dim dRng As Range, jml As Integer, n As Integer
jml = WorksheetFunction.CountA(Sheets("Master").Range("A:A"))
Set dRng = Sheets("Master").Range("A1").Resize(jml, 1)
For n = 1 To jml
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = dRng(n, 1)
Sheets("Data").Range("B1:B3").Copy ActiveSheet.Range("A1")
Next
Dim dRng As Range, jml As Integer, n As Integer
jml = WorksheetFunction.
Set dRng = Sheets("Master"
For n = 1 To jml
Worksheets.Add after:=Sheets(
ActiveSheet.
Sheets("Data"
Next
End Sub
----- Original Message -----
From: Ahmad Dian HS
To: XL-mania@yahoogroup
Sent: Wednesday, November 25, 2009 9:40 AM
Subject: ]] XL-mania [[ macro utk create worksheet ....
Dear all,
Mohon dibantu pencerahannya atas masalah macro yg saya hadapi sebagai berikut.
Saya punya dua buah sheet dengan nama MASTER dan DATA.
Pada sheet MASTER di sel A1 s/d A3 berisi data A, B, dan C.
Dan pada sheet DATA pada sel b1 s/d b3 berisi data A1, B1 dan C1.
Bagaimana macronya untuk membuat sheet-sheet baru dengan nama yang diambil dari cell2 yang ada di sheet MASTER (sheet A, sheet B dan sheet C) dan masing2 sheet baru tersebut (sheet A, sheet B dan sheet C) berisi data yang diambil dari cell2 yang terdapat pada sheet DATA (data A1, data B1 dan data C1).
data yang diambil dari sheet DATA pada sheet A, sheet B dan sheet C di copy mulai di cell A1 s/d A3 pada masing sheet....... .
Mohon dbantu bro ...
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Momods lagi hanimuuunnn... |
| 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 |
+-------------------------------------------------------------------+
| Momods lagi hanimuuunnn... |
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário