Re: ]] XL-mania [[ macro userform

 

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 (3)

Recent Activity:

• New Members 98

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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

.

__,_._,___