Mohon bantuan para Master, atas kasus yg sy alami di atas.... Terima Kasih atas pencerahannya, Odhy.
On Thursday, December 5, 2013 8:31 AM, Odhy <[email protected]> wrote: Dear Mr. Daeng, bagaimana code macro selengkapnya, sudh sy coba tp belum bisa.. agar tiga kategori judul kolom : plant, material,ClosingBalQty dicopy bersamaan. Terima Kasih atas pencerahannya, Odhy. On Wednesday, December 4, 2013 9:25 PM, Daeng Ngila <[email protected]> wrote: 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
