Userform'da açılır liste kutusu

[torqanum]

Yapılmak istenen ekteki dosyanın içindedir. Şimdiden teşekkür ederim.

 

[İhsan Tank]

Yapılmak istenen ekteki dosyanın içindedir. Şimdiden teşekkür ederim.

Merhaba
Açıklamayı dosya içinde değil konu içinde yapmaya özen gösteriniz.
Dosyanızın içinde userform yok

 

[Murat OSMA]

İhsan Bey, müsadenizle...

Sn. torqanum, İhsan Bey'in de vurguladığı gibi, sorularınızı mesaj içerisinde yazarsanız en azından daha dikkat çekici olacaktır...
Dosyanıza bir adet UserForm, üzerine de bir adet ComboBox ve bir adet TextBox ekleyin.
Aşağıdaki kodları da UserForm'un kod bölümüne yazınız.

Private Sub ComboBox1_Change()
    Dim bul As Range
    With Sheets("LİSTE")
    For Each bul In .Range("B2:B50")
    If ComboBox1.Value = bul.Value Then
    TextBox1.Value = bul.Offset(0, -1).Value
    Sheets(TextBox1.Value).Select
    End If
    Next bul
    End With
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "LİSTE!b2:b50"
End Sub

 

[torqanum]

Teşekkür ederim...