Hai Odhy, Bisa diperjelas bagaimana cara meng-copy manualnya ?
Jika isi file A berisi 5 record akan di copy ke file B berisi 19 record hanya pada kolom Kol1,kol9,kol13 saja, apa saja yang menjadi kolom-kolom kunci dari tabel data tersebut ? Bagaimana nasib sisa 14 record yang sudah ada di file B ? Wassalam, Kid. 2013/12/4 Odhy <[email protected]> > > > 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. > > >
