]] XL-mania [[ Code Macro untuk Meng-ubah Caption LabelBox sesuai kondisi suatu cell

 

Dear All Master Excel Saya punya kode Macro untuk merubah Caption LabelBox apabila Kursor pindah dari Cell D4 ke yang lain dengan merujuk pada Value pada cell B21. Code ini pada saat di run untuk pertama kali bisa berjalan dengan baik dan hasilnya sesuai dengan keinginan, Caption LabelBox Tgl, Qty,M3 bisa berubah sesuai dengan kondisi cell B21, namun saat file tsb saya save dan saya open lagi code ini ngak berfungsi lagi dan tidak ada pesan error/bug....????? Saya coba untuk tulis ulang Code nya namun tetap tidak meng-ubah Caption LabelBox. Mohon Bantuan Para Master, kira2 apa yang salah/kurang/kelebihan pada code ini. Private Sub Worksheet_SelectionChange(ByVal Target As Range)     Dim LResult As String     LResult = Right(Range("B21"), 1)     If LResult = "k" Then     Tgl.Caption = "Tgl Keluar"     Qty.Caption = "Qty Keluar"     M3.Caption = "M3 Keluar"     Else     Tgl.Caption = "Tanggal SJ"     Qty.Caption = "Qty Masuk"     M3.Caption = "M3 Masuk"     End If End Sub Hormat saya Anton

__._,_.___

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

Messages in this topic (1)

Recent Activity:

• New Members 118

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| sorry... moderasi super lemot... momods lagi sakit parah...       |
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku  |
| aplikasi bisnis dan buku komputer. isinya tidak biasa!            |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| 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

.

__,_._,___