mungkin ada typo atau sheet nama sheet seperti nama yang ditentukan sebagai lokasi paste.
2018-03-16 16:28 GMT+07:00 Cari Kebenaran [email protected] [belajar-excel] <[email protected]>: > > > ini saya kirim file dan pesan kesalahannya > > 2018-03-16 16:11 GMT+07:00 Cari Kebenaran <[email protected]>: > >> Seperti ini ya master: >> >> saya ambil dari: http://b-excel.blogspot.co.id/2013/08/belajarvba-007-p >> roperty-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] >>>> <[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] >>>>>> <[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> >>>>>> >>>>>> >>>>> >>>> >>> >> > >
