Yup itu contoh prosedur event change milik worksheet tersebut. 2018-03-16 16:11 GMT+07:00 Cari Kebenaran [email protected] [belajar-excel] <[email protected]>:
> > > 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> >>>>> >>>>> >>>> >>> >> > >
