Mr.Kid, Trus untuk pastenya gmn soalnya pastenya berbeda cell jg. Trima kasih Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message----- From: "Mr. Kid" <[email protected]> Sender: [email protected] Date: Tue, 18 Dec 2012 14:07:07 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] modifikasi function open file Pak Rodhy, Coba ganti proses copy di salah satu prosedur dari yang tadinya : .Range("B2:B50").Copy menjadi : .Range("B2:B50,X2:X50").Copy Coba jalankan prosedur yang sudah diganti bagian proses copy-nya. Prosedur lainnya ndak usah dijalankan. Wassalam, Kid. 2012/12/18 rodhy hakim <[email protected]> > ** > > > **Dear Master,**** > Dibawah ini saya mempunyai code VBA untuk mengkopy data dari worksheet > berbeda dengan menggunakan Dua Tombol, saya mengkopi data di satu worksheet > tetapi dua kali kerja yaitu tombol pertama saya harus mengkopi ITEM > CODE nya, kedua saya tekan tombol yang kedua untuk mengkopi DATA nya. Nah > bagaimana caranya hanya dengan menggunakan satu buah tombol untuk > menyelesaikan dua pekerjaan tersebut. Kemudian pertanyaan saya yang kedua, > bagaimana caranya ketika function open file, agar semua jenis file Excel > bisa muncul semua, karena yang sekarang saya harus memilih versi 2003 atau > 2010.**** > ** ** > ///////////////////////////////////////////////////////////////////////////////// > Sub CopySenin()**** > FileTerpilih = Application.GetOpenFilename _**** > ("Excel 2010(*.xlsx),*.xlsx, Excel 2003 (*.xls),*.xls", 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**** > ActiveWorkbook.Save**** > 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("B2:B50").Copy**** > End With**** > With Workbooks(NamaFileUtama).Worksheets(2)**** > .Range("C202").PasteSpecial Paste:=xlValues, Transpose:=True** > ** > End With**** > ActiveWorkbook.Close**** > Next i**** > Application.DisplayAlerts = True**** > End Sub**** > Sub CopyDataSenin()**** > FileTerpilih = Application.GetOpenFilename _**** > ("Excel 2010(*.xlsx),*.xlsx, Excel 2003 (*.xls),*.xls", 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)**** > 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("X2:X50").Copy**** > End With**** > With Workbooks(NamaFileUtama).Worksheets(2)**** > .Range("C203").PasteSpecial Paste:=xlValues, Transpose:=True** > ** > End With**** > ActiveWorkbook.Close**** > Next i**** > Application.DisplayAlerts = True**** > End Sub**** > > ///////////////////////////////////////////////////////////////////////////////////////////// > **** > ** **Atas pencerahannya saya ucapkan banyak terima kasih,**** > Salam,**** > Odhy**** > ** > ** ** > > >
