loh, ndak perlu 2 kali paste di beda tempat.
Copa paste transpose :
dari 49 baris x 2 kolom menjadi 2 baris x 49 kolom
yang di copy sudah 49 baris x 2 kolom,
maka paste di pojok kiri atas range 2 baris x 49 kolom, yaitu di C202 saja.
Kan yang diganti cuma baris perintah Copy saja. ndak ada penjelasan ganti
bagian paste.
Wassalam
Kid.
2012/12/18 <odhyz83_assas...@yahoo.com>
> **
>
>
> ** Ya pak soalnya lagi gak di depan komputer,
> Pastenya sperti ini ya?:
>
> .Range("C202").PasteSpecial Paste:=xlValues, Transpose:=True
> .Range("C203").PasteSpecial Paste:=xlValues, Transpose:=True
>
> digabung di satu prosedur?
> Trus kalo untuk memunculkan semua type file excel saat open file bagaimana
> pak?
>
> Salam,
> Odhy
> 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 17:39:28 +0700
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] modifikasi function open file
>
>
>
> 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****
>>> **
>>> ** **
>>>
>>>
>>
>
>
