Re: ]] XL-mania [[ menandai record (sel) dengan sekali klik

 

XL-maniawan / XL-maniawati ytc..

Otomatisnya serangkaian action (menulis nama, tgl_jam, mewarnai cell) diperoleh

dengan memanfaatkan Event worksheet_selection_change, yaitu Event yg terjadi 

manakala kita memindahkan seleksi ke object lain. (termasuk pindah pilihan ke cell lain). 

Kala itu, Cell /Range yg baru diselect itu dapat disebut sebagai Target.

Makro ditulis di module worksheet di mana otomatisasi diinginkan / sheet2 (0609)

(bisa juga di level workbook,  EVENT : Workbook_SheetSelectionChange.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   ' coded by siti Vi / 12 jun 2011

   ' group/XL-mania/message/18573

   '---------------------------------

   If Target.Count = 1 Then

      If Target.Column = 1 Then

         If Target.Row > 1 then

         If Not Target.Value = vbNullString Then

            If Not Cells(1, 5).Value = vbNullString Then

               Target.Interior.ColorIndex = 6

               Target(1, 5) = Cells(1, 5)

               Target(1, 6) = Now

               Target(1, 6).NumberFormat = "dd-mmm-yyyy  hh:mm"

            End If

         End If

         End if

      End If

   End If

End Sub

2011/6/10 edy bin sumar <ibnusumar1@yahoo.co.id>

excelwan-excelwati sekalian... kerjaan saya sehari-hari selalu menggunakan excel. Diantaranya adalah melakukan konfirmasi data/record. data saya berupa sebuah tabel database, yang masing-masing record memiliki unik number sebagai identitas record, yang ada di kolom A. Tugas saya adalah melakukan konfirmasi data (hardcopy) yang dibawa oleh pelanggan, ada/tidak di database, dengan mencocokkan unik number di harcopy dengan yang ada di database/tabel, kemudian menandai record yang pernah dikonfirmasi sehingga jika di kemudian hari ada record yang mau dikonfirmasi tapi  ternyata sebelumnya pernah dikonfirmasi maka akan ketahuan. selama ini saya lakukan denga cara manual : saya klik sel berisi unik number, trus saya kasih warna (fill color) kuning. Tanda kalo record tersebut pernah dikonfirmasi, sehingga tidak boleh ada lagi konfirmasi untuk record tersebut. cara tersebut pasti tidak efisien, harus 2x klik, plus tidak ketahuan kapan dan siapa yang minta konfirmasi. dalam sehari, bisa puluhan pelanggan yang minta konfirmasi 1 pelanggan bisa membawa 100 data unik untuk dikonfirmasi setiap hari bertambah lagi data yang baru, dan data-data tersebut saya pisahkan menjadi worksheet-worksheet yang berbeda ssesuai tanggal ----------------------- dapatkan dibuat cara yang lebih efisien (dengan macro): dengan 1x klik di sebuah cell saya bisa menandai sebuah record/baris data misalnya : data ada di kolom ABCD. saya tulis nama pelanggan di E1 kalo saya klik sebuah sel di kolom A (yang berisi unik number), maka sebuah sel di kolom A tersebut otomatis warnanya jadi kuning, trus di kolom E baris yang sama otomatis tercopy value yang saya tulis di E1 (nama pelanggan yg saat itu saya layani), trus di kolom F baris yang sama otomatis terisi tanggal dan jam ketika saya ngeklik sel di kolom A tadi. Kalo ada pelanggan lain yang datang, saya ubah nama di E1, dst   -... file ilustrasi terlampir terima kasih atas jawawbannya....

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 84

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___