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 ^^*
>
>
>
