Jwb atas pertanyaan 1:
Range("A:A, D:D, F:F").Copy Range("G1")
Source ; Kolom A,D,F
Dest : Range("G1")
Jwb atas pertanyaan 2:
ActiveWorkbook.Close SaveChanges:=False
False artinya langsung tutup tanpa Save
Salam,
HK
On Wednesday, 4 December 2013, 11:03, Odhy <[email protected]> wrote:
Dear Para Master,
1. Dibawa ini code VBA yang saya gunakan untuk
mengcopy data pada kolom yang sudah saya tentukan, akan tetapi ternyata posisi
kolom yang saya copy posisinya berubah-rubah, yang ingin saya tanyakan
bagaimana caranya mengcopy kolom berdasarkan Header / judul kolom (3 kolom):
Misalnya saya mau mengcopy semua data pada kolom |Plant|,
|Material|,|ClosingBalQty|,
Private Sub
CommandButton9_Click()FileTerpilih =
Application.GetOpenFilename _ ("Excel 2003(*.xls),*.xls, Excel 2010
(*.xlsx),*.xlsx", Title:="Open file", MultiSelect:=True) If
VarType(FileTerpilih) = vbBoolean Then Exit Sub End If NamaFileUtama =
ActiveWorkbook.Name JumlahFile = UBound(FileTerpilih)
Application.DisplayAlerts = False For i = 1 To JumlahFile Workbooks.Open
FileTerpilih(i) With ActiveWorkbook.Worksheets(1)
Selection.AutoFilter Field:=3,
Criteria1:=1000 BarisTerakhirFilePilihan =
.Cells(.Rows.Count, 1).End(xlUp).Row BarisTerakhirFileUtama =
Workbooks(NamaFileUtama).Worksheets(1) _
.Cells(Workbooks(NamaFileUtama).Worksheets(1).Rows.Count,
1).End(xlUp).Row
.Range("A2:A100,A2:A100,X2:X100").Copy
//bagaimana mengcopy 3 kolom??
End With
With
Workbooks(NamaFileUtama).Worksheets("DATA")
Range("A4").PasteSpecial
Paste:=xlValues
End With
ActiveWorkbook.Close
Next i
Application.DisplayAlerts = True
End Sub
2. Kalau saya menggunakan code : Application.Quit
maka semua workbook akan tertutup semua, atau kadang2 worbook yang lain
terhide, nah bagaimana caranya agar apabila menutup sebuah workbook menggunakan
code VBA hanya workbook tersebut yang tertutup/ diclose.
Terima Kasih atas pencerahannya,
Odhy.
