Re: ]] XL-mania [[ macro utk create worksheet ....

Sat, 28 Nov 2009 16:59:50 -0800 

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

End Sub



----- Original Message ----- 
From: Ahmad Dian HS 
To: [email protected] 
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 ...

Attachment: Makro Untuk.xls
Description: MS-Excel spreadsheet

Kirim email ke