Re: ]] XL-mania [[ copy data dari file lainnnya

dengan makro seperti ini


Sub SheetsToBook()
   Dim sht As Worksheet
   Dim wbPath As String
   Dim newNm As String
  
   wbPath = ThisWorkbook.Path & "\"
  
   For Each sht In Worksheets
      If sht.Name <> "jadi file terpisah" Then
      newNm = wbPath & "ex-" & sht.Name
      sht.Move
      ActiveWorkbook.SaveAs _
      Filename:=newNm, FileFormat:=xlNormal
      ThisWorkbook.Activate
      End If
   Next sht
End Sub

On Wed, Jul 29, 2009 at 10:44 AM, agt <antoni.ginting@kpi.co.id> wrote:

Dear Pakar

 

Mohon bantuannya utk problem seperti attach:

Saya mau copy data dari sheet 1, 2 dan 3 ke file baru seperti di sheet 4. Kalau dgn cara = klik kolom sih bisa, tapi karna datanya banyak dan selalu update, adakah cara yg simple dan manjur?

 

Saya sudah utak-atik di data base belum ketemu nih.

 

Best Regards,
 
Antoni Ginting

Jr. Inspection Spt.

Plant/Head Office:

Mailing Address :

Wisma KPI

Jl. Pupuk Raya Km.2

Bontang -75314

Kalimantan Timur

Phone : +62-548-41091 ext.6211
Fax     : +62-548-41417
HP      : +628125521121
email: antoni.ginting@kpi.co.id