Userform Combobox

[kutup000]

Merhabalar,
Userform ile birçok yerde örnek inceledim yapmaya çalıştım fakat elimdeki örneği combobox olarak kodlayamadım. Ricam menü çalışma sayfasında stok çıkışı 1 adlı butonun açmış olduğu userformda Oda No ve Ürünü combobox ile kullanmak.

Buna uygun kodu acaba yazabilirmisiniz?

Yardımlarınız için teşekkür ederim.

 

[Orion1]

Merhabalar,
Userform ile birçok yerde örnek inceledim yapmaya çalıştım fakat elimdeki örneği combobox olarak kodlayamadım. Ricam menü çalışma sayfasında stok çıkışı 1 adlı butonun açmış olduğu userformda Oda No ve Ürünü combobox ile kullanmak.

Buna uygun kodu acaba yazabilirmisiniz?

Yardımlarınız için teşekkür ederim.

Tabii ki bunun için önce formunuza combobox eklemeniz gerekir.
dosyanız ektedir.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "DATA!L3:L" & Sheets("DATA").Cells(65536, "L").End(xlUp).Row
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
ComboBox2.RowSource = "DATA!G3:G" & Sheets("DATA").Cells(65536, "G").End(xlUp).Row
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0

End Sub

 

[kutup000]

Harika

Sayın Evren,
Çok teşekkür ederim, kestirmeden olmuş ben listeler ile uğraşıyordum. Diğer sayfalara uyarladım. Tekrar çok teşekkür ederim.

İyi çalışmalar dilerim.