ListBox'tan ComboBox'lara veri alma?

[s.savas]

Merhaba arkadaşlar.
Ekteki belgede userform2 de ListBox1 deki verilerin üzerine çift tıklayınca ilgili ComboBox ve textboxlara verilerin yüklenmesini başaramadım.
Aşağıdaki kod ile listboxtaki üyelerin hangisini tıklarsam tıklayayım hepsini ComboBox3, TextBox1 ve ComboBox14 e veri yüklüyor. Benim istediğim ise hangi üyeyi tıklıyorsam ait olduğu comboya yüklensin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox3 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
ComboBox14 = ListBox1.List(ListBox1.ListIndex, 2)
End Sub

 

[Ergün Güler]

Merhaba arkadaşlar.
Ekteki belgede userform2 de ListBox1 deki verilerin üzerine çift tıklayınca ilgili ComboBox ve textboxlara verilerin yüklenmesini başaramadım.
Aşağıdaki kod ile listboxtaki üyelerin hangisini tıklarsam tıklayayım hepsini ComboBox3, TextBox1 ve ComboBox14 e veri yüklüyor. Benim istediğim ise hangi üyeyi tıklıyorsam ait olduğu comboya yüklensin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox3 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
ComboBox14 = ListBox1.List(ListBox1.ListIndex, 2)
End Sub

Selam,
Kodlarınız Aşağıdaki gibi yapınız.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

sat = ListBox1.ListIndex
Controls("ComboBox" & sat + 3) = ListBox1.List(sat)
Controls("TextBox" & sat + 1) = ListBox1.List(sat, 1)
Controls("ComboBox" & sat + 14) = ListBox1.List(sat, 2)

End Sub

Eğer, verileri çift-tık ile eklemek 2. çift-tık ile silmek için aşağıdaki kodları
uygulayınız. Bence bunu kullanınız.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

sat = ListBox1.ListIndex

If Controls("ComboBox" & sat + 3) = "" Then

Controls("ComboBox" & sat + 3) = ListBox1.List(sat)
Controls("TextBox" & sat + 1) = ListBox1.List(sat, 1)
Controls("ComboBox" & sat + 14) = ListBox1.List(sat, 2)

ElseIf Controls("ComboBox" & sat + 3) <> "" Then

Controls("ComboBox" & sat + 3) = ""
Controls("TextBox" & sat + 1) = ""
Controls("ComboBox" & sat + 14) = ""

End If

End Sub

 

[s.savas]

Ergün bey çok teşekkür ederim, harika olmuş.

 

[Ergün Güler]

Ergün bey çok teşekkür ederim, harika olmuş.

Selam,
Ben teşekkür ederim. Çözüm bulmanıza sevindim.
İyi çalışmalar.