Yth, Bapak dan Ibu Master Excel,
Saya akan memindahkan data dari 121 file dengan nama yang berbeda (AA, AB, AC
.... ZZ) ke dalam file ALL, yang masing-masing file tersebut tersusun
berturutan ke bawah.
Untuk memindahkan 1 file, perintahkan telah saya buat sebagai berikut:
ChDir "H:\Folder Kerja"
Workbooks.Open Filename:= _
"H:\Folder Kerja\AI.xls"
Range("H1").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-5]"
Range("I1").Select
ActiveCell.FormulaR1C1 = "=R[0]C[-6]"
Range("J1").Select
ActiveCell.FormulaR1C1 = "=R[8]C[-7]"
Range("K1").Select
ActiveCell.FormulaR1C1 = "=R[8]C[-7]"
Range("L1").Select
ActiveCell.FormulaR1C1 = "=R[9]C[-9]"
Range("M1").Select
ActiveCell.FormulaR1C1 = "=R[9]C[-9]"
Range("N1").Select
ActiveCell.FormulaR1C1 = "=R[12]C[-11]"
Range("O1").Select
ActiveCell.FormulaR1C1 = "=R[12]C[-11]"
Range("P1").Select
ActiveCell.FormulaR1C1 = "=R[13]C[-13]"
Range("Q1").Select
ActiveCell.FormulaR1C1 = "=R[13]C[-13]"
Range("R1").Select
ActiveCell.FormulaR1C1 = "=R[16]C[-15]"
Range("S1").Select
ActiveCell.FormulaR1C1 = "=R[16]C[-15]"
Range("T1").Select
ActiveCell.FormulaR1C1 = "=R[17]C[-17]"
Range("U1").Select
ActiveCell.FormulaR1C1 = "=R[17]C[-17]"
Range("H1:U1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("J1:U1").Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
Range("H1:I1").Select
Selection.Copy
Windows("ALL.xls").Activate
Range("C7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("AI.xls").Activate
Range("J1:M1").Select
Selection.Copy
Windows("ALL.xls").Activate
Range("E7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("AI.xls").Activate
Range("N1:Q1").Select
Selection.Copy
Windows("ALL.xls").Activate
Range("L7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("AI.xls").Activate
Range("R1:U1").Select
Selection.Copy
Windows("ALL.xls").Activate
Range("Q7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("AI.xls").Activate
ActiveWindow.Close savechanges = False
Mohon bantuannya, bagaimana caranya membuat perintah Looping untuk 121 kali
tersebut.
Atas bantuannya, kami ucapkan terima kasih.
Wassalam,
Hendro Supardi
___________________________________________________________________________
Nama baru untuk Anda!
Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail.
Cepat sebelum diambil orang lain!
http://mail.promotions.yahoo.com/newdomains/id/
