Combobox ile listboxda süzme

[idemirbas71]

Combobox ile listboxda süzme yapıyorum yalnız listbox kolon sayısını 11 olarak ayarladığım zaman "Invalid property value" hatası veriyor.Bu sorunu nasıl hallederim

Private Sub ComboBox1_Change()
ListBox1.RowSource = ""
For i = 2 To a
If ComboBox1.Text = Cells(i, 3) Then
With ListBox1
.AddItem Cells(i, 2)
.List(.ListCount - 1, 1) = Cells(i, 3)
.List(.ListCount - 1, 2) = Cells(i, 4)
.List(.ListCount - 1, 3) = Cells(i, 5)
.List(.ListCount - 1, 4) = Cells(i, 6)
.List(.ListCount - 1, 5) = Cells(i, 7)
.List(.ListCount - 1, 6) = Cells(i, 8)
.List(.ListCount - 1, 7) = Cells(i, 9)
.List(.ListCount - 1, 8) = Cells(i, 10)
.List(.ListCount - 1, 9) = Cells(i, 11)
.List(.ListCount - 1, 10) = Cells(i, 12) 'bu satır hata veriyor'
End With
End If
Next i
End Sub

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Denermisiniz

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 21' 21 KOLAN GÖSTERİR
ListBox1.List = Range("A1:U" & Cells(65536, "A").End(xlUp).Row).Value'A1 DEN U KOLANUNA KADAR GÖSTERİR
End Sub

 

[idemirbas71]

Teşekkür ederim.Sorun çözümünü gördüm

 

[ZorBey_]

Kolay Gelsin
İyi Çalışmalar