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 <shenly_excelma...@yahoo.co.id>
> **
>
>
> 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 ^^*
>
>
>
>
>
>
