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