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 <mr.nm...@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
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 <shenly_excelma...@yahoo.co.id>
>
>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 ^^*
tst.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
