Dear Mr. HK, Maksud saya mengcopy berdasarkan Header / judul kolom, jadi dimanapun posisi kolom dengan nama header/ judul kolom :Plant, Material, ClosingBalQty, maka itu yang akan dicopy.
Terima Kasih atas pencerahannya, Odhy. On Wednesday, December 4, 2013 11:42 AM, hendrik karnadi <[email protected]> wrote: 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.
