Oh belum dicoba ya...
Kalau gak salah pastenya paste values transpose kan.
Paste ke C202 dan C203. Yang kolom B masik ke C202 dan kolom X ke C203
semua menjadi horisontal alias sebanyak 49 kolom.
Setelah dicoba keluar error value apa ?
Wassalam,
Kid.
2012/12/18 <odhyz83_assas...@yahoo.com>
> **
>
>
> ** Mr.Kid,
> Trus untuk pastenya gmn soalnya pastenya berbeda cell jg.
>
> Trima kasih
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
> ------------------------------
> *From: * "Mr. Kid" <mr.nm...@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Tue, 18 Dec 2012 14:07:07 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *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 <odhyz83_assas...@yahoo.com>
>
>> **
>>
>>
>> **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****
>> **
>> ** **
>>
>>
>
>
