listbox ın listesini combolarda gormek

[uguristanbul]

ekli dosyada
combo 7
Private Sub ComboBox7_Change()
ComboBox8.ListIndex = ComboBox7.ListIndex
ComboBox9 = ""
ComboBox10 = ""
ListBox1.ColumnCount = 17
ListBox1.ColumnWidths = "0;60;80;00;0;0;0;0;0;0;0;0;0;0;0;0;0"
ListBox1.RowSource = "KASA!aa2:aR" & [aa65536].End(3).Row
Dim k As Range, sat As Long, i As Long, adr As String, X As Long
sat = Sheets("KASA").Cells(65536, "aa").End(xlUp).Row
ListBox1.RowSource = ""
Set k = Sheets("KASA").Range("aa2:aa" & sat).Find(ComboBox7.Text, , xlValues, xlPart)
If Not k Is Nothing Then
adr = k.Address
Do
ListBox1.AddItem
ListBox1.List(X, 0) = k.Value
ListBox1.List(X, 1) = k.Offset(0, 1).Value
ListBox1.List(X, 2) = k.Offset(0, 2).Value
ListBox1.List(X, 3) = k.Offset(0, 3).Value
ListBox1.List(X, 4) = k.Offset(0, 4).Value
ListBox1.List(X, 5) = k.Offset(0, 5).Value
ListBox1.List(X, 6) = k.Offset(0, 6).Value
ListBox1.List(X, 7) = k.Offset(0, 7).Value
ListBox1.List(X, 8) = k.Offset(0, 8).Value
ListBox1.List(X, 9) = k.Offset(0, 9).Value
X = X + 1
Set k = Sheets("KASA").Range("aa2:aa" & sat).FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub
kodları ile liste1 e süzülmüş verileri getirmekte
sorun surda
liste1 değiştiginde
combo9 liste 1 in 1nci sutnunu
combo 10 da 2 nci sutundaki verileri gostermeli
tabii tıklandıgında
saygılar