thanks ya ud dibuatin contoh codingnya Miss Jan Raisin







________________________________
 From: Jan Raisin <[email protected]>
To: [email protected]
Sent: Wednesday, October 2, 2013 4:30 PM
Subject: Re: [belajar-excel] cara membuar coding pada combobox dan text box [1 
Attachment]





 
Hai Iga,


coba script berikut ini:


Private Sub cboGlass_Change()
Dim idx As Integer


idx = cboGlass.ListIndex
txtGlass = Cells(idx + 2, 2).Value
End Sub


Private Sub UserForm_Activate()
Dim rgData As Range, celData As Range
Dim lRow As Long
Dim idx As Integer


lRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgData = Range(Cells(2, 1), Cells(lRow, 1))
For Each celData In rgData
    cboGlass.AddItem celData.Value, idx
    idx = idx + 1
Next celData
End Sub


file terlampir




Salam,


-Miss Jan Raisin-




Pada 2 Oktober 2013 16.05, Iga Aprilia <[email protected]> menulis:



> 
>dear all
>
>
>saya coba membuat sebuah user form dengan menambahkan combo box dan textbox 
>apabila saya meng-klik combo box
>maka secara otomatis pada text box  glass-name muncul nama yang ada pada 
>database glass name.
>yang ingin saya tanyakan bagaimana coding dari program tersebut tanpa 
>menggunakan command button??
>
>
>terima kasih 

>iga
>_

Kirim email ke