Minggu, 06 Oktober 2013

[belajar-excel] Digest Number 2582

4 New Messages

Digest #2582
1a
Bls: [belajar-excel] VBA copy paste???? by "Shenly" shenly_excelmania
1b
Re: VBA copy paste???? by "Mr. Kid" nmkid.family@ymail.com
1c
Bls: [belajar-excel] VBA copy paste???? by "Shenly" shenly_excelmania
1d
Re: Bls: [belajar-excel] VBA copy paste???? by "hendrik karnadi" hendrikkarnadi

Messages

Sat Oct 5, 2013 7:24 am (PDT) . Posted by:

"Shenly" shenly_excelmania

udah saya coba mr. kid tapi ga bisa2, malah puyeng
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.nmkid@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_excelmania@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.nmkid@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_excelmania@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 ^^*
>
>
>

Sat Oct 5, 2013 7:29 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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_excelmania@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.nmkid@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_excelmania@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.nmkid@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_excelmania@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 ^^*
>
>
>
>
>
>
>
>
>

Sat Oct 5, 2013 8:21 am (PDT) . Posted by:

"Shenly" shenly_excelmania

ia Mr itu saya ga ngerti, terus ada yg di bawah2nya jga,

intinya sih coding yang Mr kasih ini

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

itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4, pasti kan ada baris kosong 3 baris di atas kolom Judulnya,

nah itu yang perlu di edit di codingnya yang mana? trs di ubah jadi berapa ? hehehehe
maaf yah Mr , begini lah klo sama org Oon mah hehehe

 
Salam
Shenly ^^*

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 5 Oktober 2013 22:29
Judul: Re: [belajar-excel] VBA copy paste????


 
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_excelmania@yahoo.co.id>

> 
>udah saya coba mr. kid tapi ga bisa2, malah puyeng
>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.nmkid@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_excelmania@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.nmkid@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_excelmania@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 ^^*
>>
>>
>>
>
>
>

Sat Oct 5, 2013 9:44 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hi Shenly,

Boleh ikutan ya Mr Kid? (CMIIW)

Mengutip pertanyaan anda,
"itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4"
nah, karena headernya bergeser dari baris 1 ke baris ke 4 maka
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) akan menjadi

Set rngData = Range("f4").CurrentRegion.Offset(1).Resize(, 1) bukan ?

Kemudian bagaimana mengenai rngTarget nya?
Nah (lagi) karena pastenya pada baris kosong setelah data terakhir (baris berapapun) maka rngTarget nya tidak perlu diubah.

Sedikit tambahan, kalau mau mendelete isi tabel harus mendelete melalui tabel (klik kanan mouse, delete, Table Columns/Rows) bukan dengan menekan tombol "delete". Karena jika kita menekan tombol delete, isinya memang terhapus tetapi "bekasnya"; masih ada sehingga pada waktu paste berikutnya seolah-olah melompat (ada baris "kosong" ditengahnya).

Untuk mengusir "barisan semut" perlu tambahan code:
Application.CutCopyMode = False

pada bagian akhir setelah code:
rngTarget.Offset(0, 2).PasteSpecial xlPasteValues

Selamat mencoba (kalau belum tidur).

Salam,
HK

________________________________
From: Shenly <shenly_excelmania@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Saturday, 5 October 2013, 22:18
Subject: Bls: [belajar-excel] VBA copy paste????


 
ia Mr itu saya ga ngerti, terus ada yg di bawah2nya jga,

intinya sih coding yang Mr kasih ini

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

itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4, pasti kan ada baris kosong 3 baris di atas kolom Judulnya,

nah itu yang perlu di edit di codingnya yang mana? trs di ubah jadi berapa ? hehehehe
maaf yah Mr , begini lah klo sama org Oon mah hehehe

 
Salam
Shenly ^^*

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 5 Oktober 2013 22:29
Judul: Re: [belajar-excel] VBA copy paste????


 
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_excelmania@yahoo.co.id>

> 
>udah saya coba mr. kid tapi ga bisa2, malah puyeng
>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.nmkid@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_excelmania@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.nmkid@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_excelmania@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 ^^*
>>
>>
>>
>
>
>

GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.33

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)