ia Mr itu saya ga ngerti, terus ada yg di bawah2nya jga,
intinya sih coding yang Mr kasih ini
Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah
barisnya
Dim rngTarget As Range 'variabel range posisi paste di
kolom A
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record
data input kolom A + 1 baris kosong terbawah
lRows = rngData.Rows.Count - 1 'jumlah
record
Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range
posisi paste di kolom A
rngData.Resize(lRows, 1).Copy 'copy input
kolom A
rngTarget.PasteSpecial xlPasteValues 'paste
values di posisi target kolom A
rngData.Offset(0, 1).Resize(lRows, 2).Copy 'copy
input yang 2 kolom data setelah lompat 1 kolom ke kanan
rngTarget.Offset(0, 2).PasteSpecial xlPasteValues
'paste values di posisi target kolom A lompat 2 kolom ke kanan
itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi
Judul kolomnya ke Baris 4, pasti kan ada baris kosong 3 baris di atas kolom
Judulnya,
nah itu yang perlu di edit di codingnya yang mana? trs di ubah jadi berapa ?
hehehehe
maaf yah Mr , begini lah klo sama org Oon mah hehehe
Salam
Shenly ^^*
________________________________
Dari: Mr. Kid <[email protected]>
Kepada: BeExcel <[email protected]>
Dikirim: Sabtu, 5 Oktober 2013 22:29
Judul: Re: [belajar-excel] VBA copy paste????
Baris ini maksudnya :
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record data
input kolom A + 1 baris kosong terbawah
Wassalam,
Kid.
2013/10/5 Shenly <[email protected]>
>
>udah saya coba mr. kid tapi ga bisa2, malah puyeng
>maaf soalnya sya belum ngrti sma, Irow, Offset, dkk nya
>tadi kan posisi header tabelnya di clom 1, terus sya pindah ke colom 4, jadi
>ada 3 kolom diatas header yg kosong, jadi yng harus sya rubah posisinya yg
>mana yah...
>tulung, help me yah Mr
>
>
>
>
>Salam
>Shenly ^^*
>
>
>
>________________________________
>
>Dari: Mr. Kid <[email protected]>
>Kepada: BeExcel <[email protected]>
>Dikirim: Sabtu, 5 Oktober 2013 18:50
>
>Judul: Re: [belajar-excel] VBA copy paste????
>
>
>
>
>Dalam Scriptnya ada yang merujuk ke range tertentu kan. Sesuaikan saja script
>yang merujuk ke range tertentu itu sesuai kebutuhan. Cukup dicek kembali saja,
>dulu si area range Anda letakkan dimana, lalu cari alamat rangenya di script.
>Kemudian sekarang ingin digeser kemana, maka sesuaikan alamat range
>discriptnya.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/10/5 Shenly <[email protected]>
>
>
>>
>>terima kasih mr. kid buat jawabannya, sangat jitu sekali, tapi ko ketika saya
>>pindah posisi Row nya ko jadi error yah
>>mohon dibantu lagi hehe
>>
>>file terlampir
>>
>>
>>Salam
>>Shenly ^^*
>>
>>
>>
>>________________________________
>> Dari: Mr. Kid <[email protected]>
>>Kepada: BeExcel <[email protected]>
>>Dikirim: Sabtu, 5 Oktober 2013 2:37
>>Judul: Re: [belajar-excel] VBA copy paste????
>>
>>
>>
>>
>>Hai Shenly,
>>
>>Coba isi prosedurnya diberi script berikut :
>> Dim rngData As Range, lRows As Long 'variabel range data beserta
>>jumlah barisnya
>> Dim rngTarget As Range 'variabel range posisi paste di
>>kolom A
>>
>> Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record
>>data input kolom A + 1 baris kosong terbawah
>> lRows = rngData.Rows.Count - 1 'jumlah
>>record
>>
>> Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range
>>posisi paste di kolom A
>> rngData.Resize(lRows, 1).Copy 'copy
>>input kolom A
>> rngTarget.PasteSpecial xlPasteValues 'paste
>>values di posisi target kolom A
>> rngData.Offset(0, 1).Resize(lRows, 2).Copy 'copy
>>input yang 2 kolom data setelah lompat 1 kolom ke kanan
>> rngTarget.Offset(0, 2).PasteSpecial xlPasteValues 'paste
>>values di posisi target kolom A lompat 2 kolom ke kanan
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>
>>
>>2013/10/5 Shenly <[email protected]>
>>
>>
>>>
>>>Assalamualikum...
>>>mohon bantuannya kembali teman2,
>>>saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya
>>>tidak sesuai yang saya inginkan,
>>>harap bantuannya dari teman2 sekalin...
>>>untuk lebih jelas sya sudah lapirkan filenya
>>>
>>>
>>>terima kasih
>>>
>>>Salam
>>>Shenly ^^*
>>
>>
>>
>
>
>
