combobox'tan listbox'a veri alma

[marimar]

merhaba arkadaşlar ekteki dosyada açılan formda combobox'a veriler alıyorum. combobox'ta 4 kolon var combobox'ta seçim yaptığım zaman sadece il kolondaki yazı görünüyor ben dört kolonunda combobox value'sinde görünmesini istiyorum ve seçtiğim verlerin listbox'ta sıralanmasını istiyorum.
teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
Dim x As Long
If ComboBox1.ListIndex < 0 Then Exit Sub
x = ListBox1.ListCount
ListBox1.AddItem
ListBox1.Column(0, x) = ComboBox1.Column(0)
ListBox1.Column(1, x) = ComboBox1.Column(1)
ListBox1.Column(2, x) = ComboBox1.Column(2)
ListBox1.Column(3, x) = ComboBox1.Column(3)
ComboBox1.Value = ComboBox1.Column(0) & "-" & ComboBox1.Column(1) & "-" _
& ComboBox1.Column(2) & "-" & ComboBox1.Column(3)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = "4"
ListBox1.ColumnWidths = "100;100;50;50"
ComboBox1.Clear
ComboBox1.ColumnCount = "4"
ComboBox1.ColumnWidths = "100;100;50;50"
For i = 2 To 65536
If Cells(i, 1) <> "" Then
ComboBox1.AddItem
ComboBox1.Column(0, x) = Cells(i, 1)
ComboBox1.Column(1, x) = Cells(i, 2)
ComboBox1.Column(2, x) = Cells(i, 3)
ComboBox1.Column(3, x) = Cells(i, 4)
x = x + 1
End If
Next
End Sub