Jumat, 16 Maret 2018

[belajar-excel] Digest Number 4456

5 Messages

Digest #4456

Messages

Fri Mar 16, 2018 7:58 am (PDT) . Posted by:

"Cari Kebenaran"

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' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> 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 cahayailmu71@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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 cahayailmu71@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> 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' mr.nmkid@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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 cahayailmu71@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> 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>
>>>
>>>
>>
>
>

Fri Mar 16, 2018 7:59 am (PDT) . Posted by:

"Cari Kebenaran"

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 <cahayailmu71@gmail.com>:

> 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' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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 cahayailmu71@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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 cahayailmu71@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com> 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' mr.nmkid@gmail.com [belajar-excel]
>>>> <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> 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 cahayailmu71@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> 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>
>>>>
>>>>
>>>
>>
>>
>
>

Fri Mar 16, 2018 8:00 am (PDT) . Posted by:

"Cari Kebenaran"

ini saya kirim file dan pesan kesalahannya

2018-03-16 16:11 GMT+07:00 Cari Kebenaran <cahayailmu71@gmail.com>:

> 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 <cahayailmu71@gmail.com>:
>
>> 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' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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 cahayailmu71@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> 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 cahayailmu71@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com> 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' mr.nmkid@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> 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 cahayailmu71@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 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>
>>>>>
>>>>>
>>>>
>>>
>>>
>>
>>
>

Fri Mar 16, 2018 8:01 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Yup itu contoh prosedur event change milik worksheet tersebut.

2018-03-16 16:11 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> 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 <cahayailmu71@gmail.com>:
>
>> 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' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> 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 cahayailmu71@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> 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 cahayailmu71@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com> 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' mr.nmkid@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> 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 cahayailmu71@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 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>
>>>>>
>>>>>
>>>>
>>>
>>
>
>

Fri Mar 16, 2018 8:11 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

mungkin ada typo atau sheet nama sheet seperti nama yang ditentukan sebagai
lokasi paste.

2018-03-16 16:28 GMT+07:00 Cari Kebenaran cahayailmu71@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> ini saya kirim file dan pesan kesalahannya
>
> 2018-03-16 16:11 GMT+07:00 Cari Kebenaran <cahayailmu71@gmail.com>:
>
>> 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 <cahayailmu71@gmail.com>:
>>
>>> 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' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> 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 cahayailmu71@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups..com
>>>> <belajar-excel@yahoogroups.com>>:
>>>>
>>>>>
>>>>>
>>>>> 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' mr.nmkid@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> 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 cahayailmu71@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com> 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' mr.nmkid@gmail.com
>>>>>> <mr..nmkid@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com>
>>>>>> :
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 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 cahayailmu71@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 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>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 10.15

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)