[belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

2018-03-16 Thread y.ron...@yahoo.com [belajar-excel] 
Saya Mau Tanya Lagi. 

 Untuk File:
 1. File MASTER agar terpassword biar masing2 USER tidak bisa FULL CONTROL 
apakah bisa?
 2. untuk file MASTER saat di modify maka file USER akan berubah. apakah bisa?

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread Cari Kebenaran cahayailm...@gmail.com [belajar-excel] 
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.nm...@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 cahayailm...@gmail.com
> [belajar-excel] :
>
>>
>>
>> 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
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
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 cahayailm...@gmail.com 
> [belajar-excel]  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.nm...@gmail.com [belajar-excel] 
> :
>>  
>> 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 cahayailm...@gmail.com 
>> [belajar-excel] :
>>>  
>>> 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. 
>> 
> 
> 
>

Re: [belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

2018-03-16 Thread 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
Tentang :
1. File MASTER agar terpassword biar masing2 USER tidak bisa FULL CONTROL
apakah bisa?
> Excel tidak menyediakan fitur yang baik untuk hal ini.
> Fitur shared workbook, bisa diatur area yang boleh diubah user tertentu,
tetapi area tersebut bisa dengan mudah diatur ulang oleh setiap user.
> Memanfaatkan VBA, harus disediakan daftar nama user, password, membuat
script mengisi user dan password, dan sebagainya. Tetapi tetap bisa dengan
mudah dibongkar oleh user.
> VBA dan proteksi file (bukan proteksi workbook), maka perlu disediakan
pengisian password file. Semua user yang tahu password (hanya ada 1
password untuk semua user) bisa membukanya secara langsung

2. untuk file MASTER saat di modify maka file USER akan berubah. apakah
bisa?
> di file inputan bisa disediakan sheet berisi hasil koneksi data dengan
fitur Get External Data (pastikan koneksi dalam mode readonly).
> pastikan koneksi data di-set auto referesh setiap 1 menit (hanya dalam
satuan menit), atau menggunakan VBA memanfaatkan timer untuk melakukan
refresh setiap N detik.

Regards,
Kid



2018-03-16 14:38 GMT+07:00 y.ron...@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Saya Mau Tanya Lagi.
>
> Untuk File:
> 1. File MASTER agar terpassword biar masing2 USER tidak bisa FULL CONTROL
> apakah bisa?
> 2. untuk file MASTER saat di modify maka file USER akan berubah. apakah
> bisa?
>
> 
>

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread Cari Kebenaran cahayailm...@gmail.com [belajar-excel] 
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.nm...@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 cahayailm...@gmail.com
> [belajar-excel]  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.nm...@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 cahayailm...@gmail.com
>> [belajar-excel] :
>>
>>>
>>>
>>> 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.
>>>
>>>
>>
> 
>
>
>

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
eh...

baris copy-nya betul begitu.
tapi prosedurnya pakai prosedur event milik sheet lokasi input. Tentang
event object dalam Excel VBA bisa dilihat disini

..




2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
[belajar-excel] :

>
>
> 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.nm...@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 cahayailm...@gmail.com
>> [belajar-excel]  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.nm...@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 cahayailm...@gmail.com
>>> [belajar-excel] :
>>>


 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.


>>>
>> 
>>
>>
> 
>

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread Cari Kebenaran cahayailm...@gmail.com [belajar-excel] 
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.nm...@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
> 
> .
>
>
>
>
> 2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
> [belajar-excel] :
>
>>
>>
>> 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.nm...@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 cahayailm...@gmail.com
>>> [belajar-excel]  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.nm...@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 cahayailm...@gmail.com
 [belajar-excel] :

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

>>> 
>>>
>>>
>>
> 
>

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread Cari Kebenaran cahayailm...@gmail.com [belajar-excel] 
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 :

> 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.nm...@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
>> 
>> .
>>
>>
>>
>>
>> 2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>> [belajar-excel] :
>>
>>>
>>>
>>> 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.nm...@gmail.com [belajar-excel]
>>> :
>>>


 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 cahayailm...@gmail.com
 [belajar-excel]  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.nm...@gmail.com [belajar-excel]
 :

>
>
> 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 cahayailm...@gmail.com
> [belajar-excel] :
>
>>
>>
>> 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.
>>
>>
>
 


>>>
>>
>>
>
>


event.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
Yup itu contoh prosedur event change milik worksheet tersebut.

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

>
>
> 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 :
>
>> 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.nm...@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
>>> 
>>> .
>>>
>>>
>>>
>>>
>>> 2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
>>> [belajar-excel] :
>>>


 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.nm...@gmail.com
 [belajar-excel] :

>
>
> 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 cahayailm...@gmail.com
> [belajar-excel]  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.nm...@gmail.com
> [belajar-excel] :
>
>>
>>
>> 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 cahayailm...@gmail.com
>> [belajar-excel] :
>>
>>>
>>>
>>> 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.
>>>
>>>
>>
> 
>
>

>>>
>>
> 
>

Re: [belajar-excel] Bisakah copy paste pakai 1 (satu) tombol keyboard..?

2018-03-16 Thread 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
mungkin ada typo atau sheet nama sheet seperti nama yang ditentukan sebagai
lokasi paste.

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

>
>
> ini saya kirim file dan pesan kesalahannya
>
> 2018-03-16 16:11 GMT+07:00 Cari Kebenaran :
>
>> 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 :
>>
>>> 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.nm...@gmail.com [belajar-excel]
>>> :
>>>


 eh...

 baris copy-nya betul begitu.
 tapi prosedurnya pakai prosedur event milik sheet lokasi input. Tentang
 event object dalam Excel VBA bisa dilihat disini
 
 .




 2018-03-16 15:35 GMT+07:00 Cari Kebenaran cahayailm...@gmail.com
 [belajar-excel] >>> >:

>
>
> 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.nm...@gmail.com
> [belajar-excel] :
>
>>
>>
>> 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 cahayailm...@gmail.com
>> [belajar-excel]  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.nm...@gmail.com
>>  [belajar-excel] 
>> :
>>
>>>
>>>
>>> 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 cahayailm...@gmail.com
>>> [belajar-excel] :
>>>


 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.


>>>
>> 
>>
>>
>

>>>
>>
> 
>

Bls: Re: [belajar-excel] Deteksi Waktu Tandem

2018-03-16 Thread Eira I Arie cheivory_bri...@yahoo.com [belajar-excel] 
Yth. Mr. Kid terimakasih penyelesaian nya.
Oiya Mr. Kid, file data dummy yg saya kirim itu hanya satu matakuliah (bedah). 
Sementara file data aslinya itu terdiri dari 16 matakuliah (1 sheet = 1 
matakuliah, jadi ada 16 sheet matakuliah, 1 sheet gabung). Andaikata, 
penyelesaian Mr. Kid tsb (ada array formula nya) saya terapkan ke sheet 
matakuliah yg lain, apakah sangat memberatkan fungsi kerja excelnya ? Adakah 
solusinya ?
Informasi :- file data asli saat ini berukuran 2.5-3 MB- 1 sheet gabung, tdpt 
macro gabung sheet, hasil gabung format Excel tablet- 16 sheet matakuliah, 
tidak ada pengaturan Border Cell, ada fungsi conditional formatting di satu 
kolom.
Terimakasih, mohon pencerahannya lagi.
Dikirim dari Yahoo Mail di Android

  Pada Jum, 16 Mar 2018 pada 11:15, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] menulis:    

Wa'alaikumussalam wr wb

File terlampir menggunakan kolom helper dan ada yang berisi array formula 
dengan running (resizing) references.

Wassalamu'alaikum wr wb
Kid


2018-03-01 13:08 GMT+07:00 cheivory_bri...@yahoo.com [belajar-excel] 
:

  


Yth.  B-Exceler




Assalaamu'alaikum Wr Wb




Mohon kiranya dapat dibantu mendapatkan informasi deteksi waktu tandem.

Case terlampir.




Terima kasih.




Wassalaamu'alaikum Wr Wb




Ari




  #yiv9007769558 #yiv9007769558 -- #yiv9007769558ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9007769558 
#yiv9007769558ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9007769558 
#yiv9007769558ygrp-mkp #yiv9007769558hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv9007769558 #yiv9007769558ygrp-mkp #yiv9007769558ads 
{margin-bottom:10px;}#yiv9007769558 #yiv9007769558ygrp-mkp .yiv9007769558ad 
{padding:0 0;}#yiv9007769558 #yiv9007769558ygrp-mkp .yiv9007769558ad p 
{margin:0;}#yiv9007769558 #yiv9007769558ygrp-mkp .yiv9007769558ad a 
{color:#ff;text-decoration:none;}#yiv9007769558 #yiv9007769558ygrp-sponsor 
#yiv9007769558ygrp-lc {font-family:Arial;}#yiv9007769558 
#yiv9007769558ygrp-sponsor #yiv9007769558ygrp-lc #yiv9007769558hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9007769558 
#yiv9007769558ygrp-sponsor #yiv9007769558ygrp-lc .yiv9007769558ad 
{margin-bottom:10px;padding:0 0;}#yiv9007769558 #yiv9007769558actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9007769558 
#yiv9007769558activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9007769558
 #yiv9007769558activity span {font-weight:700;}#yiv9007769558 
#yiv9007769558activity span:first-child 
{text-transform:uppercase;}#yiv9007769558 #yiv9007769558activity span a 
{color:#5085b6;text-decoration:none;}#yiv9007769558 #yiv9007769558activity span 
span {color:#ff7900;}#yiv9007769558 #yiv9007769558activity span 
.yiv9007769558underline {text-decoration:underline;}#yiv9007769558 
.yiv9007769558attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv9007769558 .yiv9007769558attach div a 
{text-decoration:none;}#yiv9007769558 .yiv9007769558attach img 
{border:none;padding-right:5px;}#yiv9007769558 .yiv9007769558attach label 
{display:block;margin-bottom:5px;}#yiv9007769558 .yiv9007769558attach label a 
{text-decoration:none;}#yiv9007769558 blockquote {margin:0 0 0 
4px;}#yiv9007769558 .yiv9007769558bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9007769558 
.yiv9007769558bold a {text-decoration:none;}#yiv9007769558 dd.yiv9007769558last 
p a {font-family:Verdana;font-weight:700;}#yiv9007769558 dd.yiv9007769558last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9007769558 
dd.yiv9007769558last p span.yiv9007769558yshortcuts 
{margin-right:0;}#yiv9007769558 div.yiv9007769558attach-table div div a 
{text-decoration:none;}#yiv9007769558 div.yiv9007769558attach-table 
{width:400px;}#yiv9007769558 div.yiv9007769558file-title a, #yiv9007769558 
div.yiv9007769558file-title a:active, #yiv9007769558 
div.yiv9007769558file-title a:hover, #yiv9007769558 div.yiv9007769558file-title 
a:visited {text-decoration:none;}#yiv9007769558 div.yiv9007769558photo-title a, 
#yiv9007769558 div.yiv9007769558photo-title a:active, #yiv9007769558 
div.yiv9007769558photo-title a:hover, #yiv9007769558 
div.yiv9007769558photo-title a:visited {text-decoration:none;}#yiv9007769558 
div#yiv9007769558ygrp-mlmsg #yiv9007769558ygrp-msg p a 
span.yiv9007769558yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9007769558 
.yiv9007769558green {color:#628c2a;}#yiv9007769558 .yiv9007769558MsoNormal 
{margin:0 0 0 0;}#yiv9007769558 o {font-size:0;}#yiv9007769558 
#yiv9007769558photos div {float:left;width:72px;}#yiv9007769558 
#yiv9007769558photos div div {border:1px solid 
#66;min-height:62px;overflow:hidden;width:62px;}#yiv9007769558 
#yiv9007769558photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9007769558
 #yiv

[belajar-excel] Copy formula Table

2018-03-16 Thread Nangagus nanga...@gmail.com [belajar-excel] 

Asalamu'alaikum warahmatullah,

Dear member B-excel.

Saya membuat formula sederhana:
=Data[[#This Row];[debet]]

bagaimana caranya agar formula tersebut absolut column? agar tidak 
berubah colomnya apabila dicopy ke kolom lain.


Formula tersebut kalau dicopy ke kolom selanjutnya menjadi:=Data[[#This 
Row];[kredit]]


apakah memang data table tidak dapat dibuat absolut?

terima kasih

wasalammu'alaikum warahmatullah.

KenangAgus

[belajar-excel] Re: Copy formula Table

2018-03-16 Thread Nangagus nanga...@gmail.com [belajar-excel] 

Asalamualaikum warahmatullah,

Setelah cari di google caranya adalah mendobelkan nama column tersebut

=Data[[#This Row];[debet]:[debet]]

salam

NangAgus


On 18/03/2018 7:48, Nangagus wrote:


Asalamu'alaikum warahmatullah,

Dear member B-excel.

Saya membuat formula sederhana:
=Data[[#This Row];[debet]]

bagaimana caranya agar formula tersebut absolut column? agar tidak 
berubah colomnya apabila dicopy ke kolom lain.


Formula tersebut kalau dicopy ke kolom selanjutnya 
menjadi:=Data[[#This Row];[kredit]]


apakah memang data table tidak dapat dibuat absolut?

terima kasih

wasalammu'alaikum warahmatullah.

KenangAgus

Re: [belajar-excel] Re: Copy formula Table

2018-03-16 Thread hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel] 
Mas Nang?Sudah coba pake $ di depan [debit] menjadi [$debit] ?
Salam,HK

Sent from Yahoo Mail on Android 
 
  On Sat, Mar 17, 2018 at 8:03, Nangagus nanga...@gmail.com 
[belajar-excel] wrote:       
 

Asalamualaikum warahmatullah,
 
Setelah cari di google caranya adalah mendobelkan nama column tersebut 
 
 
=Data[[#This Row];[debet]:[debet]]
 
salam
 
NangAgus
 
 
 On 18/03/2018 7:48, Nangagus wrote:
  
 
Asalamu'alaikum warahmatullah,
 
Dear member B-excel. 
 
 
Saya membuat formula sederhana:
 =Data[[#This Row];[debet]]
 
bagaimana caranya agar formula tersebut absolut column? agar tidak berubah 
colomnya apabila dicopy ke kolom lain.
 
Formula tersebut kalau dicopy ke kolom selanjutnya menjadi:=Data[[#This 
Row];[kredit]]
 
apakah memang data table tidak dapat dibuat absolut?
 
terima kasih
 
wasalammu'alaikum warahmatullah.
 
KenangAgus
 
 
 
  #yiv2042335854 #yiv2042335854 -- #yiv2042335854ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2042335854 
#yiv2042335854ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2042335854 
#yiv2042335854ygrp-mkp #yiv2042335854hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv2042335854 #yiv2042335854ygrp-mkp #yiv2042335854ads 
{margin-bottom:10px;}#yiv2042335854 #yiv2042335854ygrp-mkp .yiv2042335854ad 
{padding:0 0;}#yiv2042335854 #yiv2042335854ygrp-mkp .yiv2042335854ad p 
{margin:0;}#yiv2042335854 #yiv2042335854ygrp-mkp .yiv2042335854ad a 
{color:#ff;text-decoration:none;}#yiv2042335854 #yiv2042335854ygrp-sponsor 
#yiv2042335854ygrp-lc {font-family:Arial;}#yiv2042335854 
#yiv2042335854ygrp-sponsor #yiv2042335854ygrp-lc #yiv2042335854hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2042335854 
#yiv2042335854ygrp-sponsor #yiv2042335854ygrp-lc .yiv2042335854ad 
{margin-bottom:10px;padding:0 0;}#yiv2042335854 #yiv2042335854actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2042335854 
#yiv2042335854activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2042335854
 #yiv2042335854activity span {font-weight:700;}#yiv2042335854 
#yiv2042335854activity span:first-child 
{text-transform:uppercase;}#yiv2042335854 #yiv2042335854activity span a 
{color:#5085b6;text-decoration:none;}#yiv2042335854 #yiv2042335854activity span 
span {color:#ff7900;}#yiv2042335854 #yiv2042335854activity span 
.yiv2042335854underline {text-decoration:underline;}#yiv2042335854 
.yiv2042335854attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv2042335854 .yiv2042335854attach div a 
{text-decoration:none;}#yiv2042335854 .yiv2042335854attach img 
{border:none;padding-right:5px;}#yiv2042335854 .yiv2042335854attach label 
{display:block;margin-bottom:5px;}#yiv2042335854 .yiv2042335854attach label a 
{text-decoration:none;}#yiv2042335854 blockquote {margin:0 0 0 
4px;}#yiv2042335854 .yiv2042335854bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2042335854 
.yiv2042335854bold a {text-decoration:none;}#yiv2042335854 dd.yiv2042335854last 
p a {font-family:Verdana;font-weight:700;}#yiv2042335854 dd.yiv2042335854last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2042335854 
dd.yiv2042335854last p span.yiv2042335854yshortcuts 
{margin-right:0;}#yiv2042335854 div.yiv2042335854attach-table div div a 
{text-decoration:none;}#yiv2042335854 div.yiv2042335854attach-table 
{width:400px;}#yiv2042335854 div.yiv2042335854file-title a, #yiv2042335854 
div.yiv2042335854file-title a:active, #yiv2042335854 
div.yiv2042335854file-title a:hover, #yiv2042335854 div.yiv2042335854file-title 
a:visited {text-decoration:none;}#yiv2042335854 div.yiv2042335854photo-title a, 
#yiv2042335854 div.yiv2042335854photo-title a:active, #yiv2042335854 
div.yiv2042335854photo-title a:hover, #yiv2042335854 
div.yiv2042335854photo-title a:visited {text-decoration:none;}#yiv2042335854 
div#yiv2042335854ygrp-mlmsg #yiv2042335854ygrp-msg p a 
span.yiv2042335854yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2042335854 
.yiv2042335854green {color:#628c2a;}#yiv2042335854 .yiv2042335854MsoNormal 
{margin:0 0 0 0;}#yiv2042335854 o {font-size:0;}#yiv2042335854 
#yiv2042335854photos div {float:left;width:72px;}#yiv2042335854 
#yiv2042335854photos div div {border:1px solid 
#66;min-height:62px;overflow:hidden;width:62px;}#yiv2042335854 
#yiv2042335854photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2042335854
 #yiv2042335854reco-category {font-size:77%;}#yiv2042335854 
#yiv2042335854reco-desc {font-size:77%;}#yiv2042335854 .yiv2042335854replbq 
{margin:4px;}#yiv2042335854 #yiv2042335854ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv2042335854 #yiv2042335854ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2042335854 
#yiv2042335854ygrp-mlmsg table {font-size:inherit;font:100