Sayfa üzerinde ComboBox-ListBox

[imdatsaral]

Selam,
ComboBox dan seçtiğim order nosuna ait siparişleri ListBox da sıralama ListBox daki siparişlere tıkladığımda I3 hücresine EDS nosunu yazdırmak istiyorum.

 

[imdatsaral]

Sayfa içerisinde ComboBox ve ListBox ilişkilendirbileceğim örnek bulamadım. Userform üzerindeki örnekleri inceledim yapamadım. Yardımcı olursanız sevinirim

İmdat SARAL
izmir

 

[Kemal Demir]

Imdat Bey,

Biraz amatörce oldu ama;

Combobox kodu

Private Sub ComboBox1_Change()
Dim yer as Integer
ListBox1.Clear
yer = Sheets("Sipariş").Range("c2:c11").Find(ComboBox1.Text).Row
ListBox1.AddItem Sheets("Sipariş").Cells(yer, 1) & "------" & Sheets("Sipariş").Cells(yer, 2) & "------" & Sheets("Sipariş").Cells(yer, 3) & "------" & Sheets("Sipariş").Cells(yer, 4)
End Sub

listbox kodu

Private Sub ListBox1_Click()
Range("I3").Value = Left(ListBox1, 4)
End Sub

 

[imdatsaral]

Sayın Kemal Demir,
teşekkür ederim. ComboBox tekrarlayan veriler görünmesin vede 010 240 order seçtiğimde bu order a bağlı siparişler ListBox da listelenmesini istiyorum. Anlattığım şekilde yapılabilirse tam anlamıyla işimi görecek.

 

[Kemal Demir]

Imdat Bey,

Ek'teki örneği inceleyiniz.

 

[dEdE]

Merhaba,
Ben de bir çalışma yapmıştım.
Boşa gitmesin.

 

[imdatsaral]

Sayın Kemal Demir ve dEdE yardımlarınız için çok teşşekür ederim. bilginize emeğinize sağlık.