Seperti ini ya master: saya ambil dari: http://b-excel.blogspot.co.id/2013/08/belajarvba-007-property-methods-events.html
Lihat lampiran. 2018-03-16 15:53 GMT+07:00 Cari Kebenaran <[email protected]>: > Maaf Master, hasil akhirnya seperti apa..? Biar nanti saya pelajari line > by line (kalau sudah script-nya jalan). Hee hee > Maunya ingin copy dalam sheet yang sama (bukan paste ke sheet lain). > > Terima kasih Master. > > 2018-03-16 15:40 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] < > [email protected]>: > >> >> >> eh... >> >> baris copy-nya betul begitu. >> tapi prosedurnya pakai prosedur event milik sheet lokasi input. Tentang >> event object dalam Excel VBA bisa dilihat disini >> <http://b-excel.blogspot...co.id/2013/08/belajarvba-007-property-methods-events.html> >> . >> >> >> >> >> 2018-03-16 15:35 GMT+07:00 Cari Kebenaran [email protected] >> [belajar-excel] <[email protected]>: >> >>> >>> >>> Jadi seperti ini ya Master? >>> >>> Sub copas() >>> If target.Count = 1 Then 'hanya 1 cells yang berubah isinya >>> If target.Column = 1 Then 'yaitu di kolom ke-1 [A] >>> Application.EnableEvents = False 'cegah terpicunya events >>> target.copy >>> With Sheets("DATA") 'pada sheet 'lokasi paste' >>> .cells( ..rows.count , "C" ).end(xlup)..offset(1).pastespecial >>> xlpastevalues 'paste values ke cells pertama di bawah data terakhir di >>> kolom C >>> End With 'selesai kerja di sheet 'lokasi paste' >>> Application.EnableEvents = True 'events boleh terpicu lagi >>> End If >>> End If >>> End Sub >>> >>> 2018-03-16 15:20 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] >>> <[email protected]>: >>> >>>> >>>> >>>> Oh sorry, belum ada baris copy nya >>>> Sebelum baris : With blabla >>>> Diberi baris : target..copy >>>> >>>> Hehehe..... >>>> Mohon maaf atas ketidak nyamanannya >>>> >>>> Sent from my smart enough phone >>>> >>>> On Mar 16, 2018, at 09:27, Cari Kebenaran [email protected] >>>> [belajar-excel] <[email protected]> wrote: >>>> >>>> >>>> >>>> Terima kasih master atas responnya. >>>> >>>> Saya sudah coba code yang master berikan, tetapi gak jalan master. >>>> Untuk menjalankan code itu pakai tombol apa Master? Saya lampirkan file >>>> excel yang sudah "mengandung" VBA code dimaksud. >>>> >>>> Inginnya copy paste dalam 1 (satu) sheet saja yg sama. Tidak antar >>>> sheet. Terima kasih. >>>> >>>> 2018-03-16 7:49 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] >>>> <[email protected]>: >>>> >>>>> >>>>> >>>>> Wa'alaikumussalam wr wb >>>>> >>>>> Bisa, tetapi terlalu beresiko. >>>>> Jika user salah entri (bukan tidak lolos validasi ya, tetapi salah >>>>> input data, harusnya input record client A, malah input record client B), >>>>> maka akan ribet mengatur perbaikannya.. >>>>> >>>>> Caranya dengan memanfaatkan event change milik worksheet. >>>>> Contoh script dalam event change milik worksheet, untuk salin isi >>>>> cells yang di-input di kolom A dibaris mana saja ke kolom C berurutan >>>>> >>>>> if target.count=1 then 'hanya 1 cells yang berubah isinya >>>>> if target.column=1 then 'yaitu di kolom ke-1 [A] >>>>> application.enableevents=false 'cegah terpicunya events >>>>> with sheets("lokasi paste") 'pada sheet 'lokasi paste' >>>>> .cells( ..rows.count , "C" ).end(xlup).offset(1).pastespecial >>>>> xlpastevalues 'paste values ke cells pertama di bawah data terakhir di >>>>> kolom C >>>>> end with 'selesai kerja di sheet 'lokasi paste' >>>>> application.enableevents=true 'events boleh terpicu lagi >>>>> endif >>>>> endif >>>>> >>>>> Wassalamu'alaikum wr wb >>>>> Kid >>>>> >>>>> >>>>> >>>>> >>>>> 2018-03-16 7:11 GMT+07:00 Cari Kebenaran [email protected] >>>>> [belajar-excel] <[email protected]>: >>>>> >>>>>> >>>>>> >>>>>> Assalamu'alaikum Wr. Wb. >>>>>> >>>>>> Setelah membaca dan mempraktekkan tutorial dahsyat dan sangat >>>>>> bermanfaat dari Master Kid tentang copy paste, maka muncul pertanyaan >>>>>> baru, >>>>>> yaitu: bisakah excel melakukan copy paste dengan hanya 1 (baca: satu) >>>>>> tombol di keyboard, misalnya pakai tombol ENTER atau F1, F2, dan >>>>>> sebagainya..? Jadi tidak menggunakan shape atau button atau shortcut >>>>>> macro >>>>>> untuk mengeksekusi/menjalankan macro/VBA code. >>>>>> >>>>>> Sebagai ilustrasi dan pelengkap pertanyaan, saya lampirkan 2 lampiran. >>>>>> >>>>>> Terima kasih >>>>>> >>>>>> Assalamu'alaikum Wr. Wb. >>>>>> >>>>>> >>>>> >>>> <Copy Data dengan 1 Tombol Keyboard.xlsm> >>>> >>>> >>> >> >> > >
event.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
