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> >>> >>> >> > >
