ListBox'tan ComboBox'a veri almak

[dost]

Merhaba arkadaşlar,

İki adet UserForm'um var.

- UserForm1'de 10 adet ComboBox, 5 Adet TextBox ve 1 Adet CommandButton var.

CommandButton_Click() olayında diğer UserForm'u (UserForm2) açıyorum. Bu UserForm2'de 1 Adet ListBox var.

Gelelim soruma:

UserForm1'deki CommandButton'u Click'lemeden önce hangi ComboBox'taysam, UserForm2'nin ListBox'ındaki veriyi o ComboBox'a almak istiyorum.

Cevap verecek arkadaşlara şimdiden teşekkür ederim.

 

[class37]

Merhaba
Sorunuzu tam anlayamadım ama aşağıdaki kod size bir fikir verebilir.

Private Sub ListBox1_Click()
Userform1.TextBox1.Value = Userform2.ListBox1
End Sub

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.

 

[dost]

Merhaba,

İlk önce cevabın için teşekkür ederim.

UserForm1'deki ComboBox'ın ismini belirterek ListBox'taki istediğim kolonu, ismini belirttiğim ComboBox'a yazdırmasını biliyorum.

Private Sub ListBox1_Click()
Userform1.ComboBox1.Value = Userform2.ListBox1.Column(0)
End Sub

Benim istediğim,

UserForm1'deki CommandButton'ı Clicklemeden önce UserForm1'deki hangi ComboBox'taysam (Curser hangi ComboBox'ta konumlu ise) o ComboBox'ın ismini bir değişkene atamak ve ComboBox1 yerine bu değişkeni kullanmak.

Kısacası Userform1.ComboBox sabirt değil.

 

[dost]

Ekteki örneği inceleyiniz.

Sayın leventm,


Aslında ben olayı sizinkine benzer bir şekilde çözmüştüm. Ancak daha kısa ve kullanışlı bir yöntemi var mı diye araştırıyorum.



ÇÃ?ZÜMÜM :

UserForm1'deki her ComboBox'ın Enter Olayına,

Private Sub ComboBox1_Enter()
yer = Mid(ComboBox.Name, 9, Len(ComboBox.Name) - 8) + 0
End Sub

NOT : Bu kod her ComboBox için mevcuttur.

UserForm2'deki ListBox1_Click Olayına,

Private Sub ListBox1_Click() 
UserForm1.Controls("ComboBox" & i) = ListBox1.Column(0)
End Sub