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

 

Dear edy,

Berikut cuplikan vba-nya :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
If Target.Count = 1 Then
If Target <> vbNullString Then
Target.Interior.Color = vbYellow
Cells(Target.Row, 5) = Cells(1, 5)
Cells(Target.Row, 6) = Format(Now, "dd/mm/yyyy hh:mm:ss")
End If
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub

Warna dibuat kuning (vbYellow), dapat diganti dengan warna di E1
dengan mengganti coding
Target.Interior.Color = vbYellow menjadi Target.Interior.Color =
Cells(1, 5).Interior.Color

Untuk warna pink, hanya sebagai pembanding saja dengan data lama.

CMIIW

Blessings,

Fran'z

On 6/10/11, edy bin sumar <ibnusumar1@yahoo.co.id> wrote:
> 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 (2)

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

.

__,_._,___