Bagaimana kalau untuk mencari kolomnya pake ...
Range("1:1").Find("Plant").Column (... dst tetap pake metode Pak Hendrik)
---
Maaf kalo asbun maklom blum sempat lihat file lampiran!Pada 4 Desember 2013 15.09, Odhy <[email protected]> menulis: > > > 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. > > > > > > -- Daeng Ngila
