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