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 <shenly_excelma...@yahoo.co.id> > ** > > > 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 <mr.nm...@gmail.com> > *Kepada:* BeExcel <belajar-excel@yahoogroups.com> > *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 <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 ^^* > > > > > > > > >