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 [image: *'@^@|||
> pusing]
> 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 ^^*
>
>
>
>
>
>
>
>
>
