Hai Odhy, Coba file yang ada disini <https://app.box.com/s/fk487us4h7t09eoqfbl8>disesuaikan dengan data setempat.
Wassalam, Kid. 2013/12/7 Odhy <[email protected]> > > > Dear Mr. Kid, > > Begini pak... > Saya ingin mencopy data dari file luar (tetap file excel), kemudian saya > masukkan ke workbook template ini, data yang ingin saya copy itu > berdasarkan header/judul kolom (bukan posisi kolom) karena terkadang posisi > kolom pada file luar itu berubah. data yang ingin saya copy itu yaitu > dengan header : Plant, Material dan ClosingBalQty. > > > Terima Kasih atas pencerahannya, > > Odhy. > > > On Friday, December 6, 2013 11:39 PM, Mr. Kid <[email protected]> > wrote: > > 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. > > > > > >
