Re: ]] XL-mania [[ macro userform

 

Siang Master Vi Saya memodifikasi Macro User Form milik Mbak, ini cobe yang asli Dim tbl As Range Private Sub UserForm_Initialize()    Dim i As Long    Set tbl = Sheets("Sheet1").Range("B5").CurrentRegion    ComboBox1.Clear    For i = 2 To tbl.Rows.Count       ComboBox1.AddItem tbl(i, 2)    Next End Sub Private Sub ComboBox1_Change()    With ComboBox1       txtNo = tbl(.ListIndex + 2, 1)       txtUmur = tbl(.ListIndex + 2, 3)       txtAlm = tbl(.ListIndex + 2, 4)       txtTelp = tbl(.ListIndex + 2, 5)    End With End Sub dan ini code saya Option Explicit Dim tbl As Range Private Sub UserForm_Initialize()    Dim i As Long    Set tbl = Sheets("Master Cust.").Range("B2") '.CurrentRegion    ComboBox1.Clear    For i = 2 To tbl.Rows.Count       ComboBox1.AddItem tbl(i, 2)    Next End Sub Private Sub CommandButton1_Click()    Range("d5").Select    If txtNo = "" Then    Unload Me    Else    ActiveCell = txtNo    Unload Me    Range("d6").Select    End If End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub ComboBox1_Change()    With ComboBox1     txtNo = tbl(.ListIndex + 2, 1)     txtSales = tbl(.ListIndex + 2, 3)     txtAlm = tbl(.ListIndex + 2, 9)     txtTelp = tbl(.ListIndex + 2, 6)    End With End Sub Code yang saya buat ini angin-anginan, kadang bisa kadang ngak... pada saat cmd button di klik selalu bug dan muncul pesan error run-time error 124.....(800....) type mismatch. saya coba telusuri, ternyata kalo code ".Currentregion" saya non aktifkan, form bisa tampil tapi pada combobox tidak nge-load ke sheet "Master Cust"....kira2 apa yang salah ya...? Mohon review dari Master Terima Kasih Anton --- Pada Kam, 17/2/11, STDEV(i) <setiyowati.devi@gmail.com> menulis: Dari: STDEV(i) <setiyowati.devi@gmail.com> Judul: Re: ]] XL-mania [[ macro userform Kepada: XL-mania@yahoogroups.com Tanggal: Kamis, 17 Februari, 2011, 3:02 PM   mungkin module userform hanya berisi beberapa procedures seperti ini Dim tbl As Range Private Sub UserForm_Initialize()    Dim i As Long    Set tbl = Sheets("Sheet1").Range("B5").CurrentRegion    ComboBox1.Clear    For i = 2 To tbl.Rows.Count       ComboBox1.AddItem tbl(i, 2)    Next End Sub Private Sub ComboBox1_Change()    With ComboBox1       txtNo = tbl(.ListIndex + 2, 1)       txtUmur = tbl(.ListIndex + 2, 3)       txtAlm = tbl(.ListIndex + 2, 4)       txtTelp = tbl(.ListIndex + 2, 5)    End With End Sub 2011/2/14 Yudi Arya <yuart20@yahoo.com> > > Selamat Siang para pakar XL, > Setelah saya join dengan groups XL-mania, banyak ilmu yang saya dapat. Sehingga saya dapat banyak pencerahan guna dalam menyelesaikan pekerjaan baik dikantor maupun dirumah. > Berikut ini saya ada permasalahan mengenai macro terutama dengan userform. Saya ada contoh kasus(attc) dinama yang diperlukan saya cuman mengisi nama anak, kemudian data anak tersebut bisa keluar dengan menggunakan macro userform. >   > Demikan permasalahan yang saya hadapi, semoga para teman dan para pakar XL dapat membantu. >   > Terima kasih atas bantuannya > Yudi aryanto No Nama Alamat Umur No telp 1 Adi  Jl. Kusuma bangsa no.5 surabaya 5 Tahun 54620440 2 Budi Jl. Pucang anom gang II no 34 Surbaya 6 Tahun 78820342 3 Candra Jl. Barata jaya no 123 Surabaya 5 Tahun 57329012

__._,_.___

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

Messages in this topic (4)

Recent Activity:

• New Members 105

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

.

__,_._,___