Soru UserFormda yeni textboxlar ekledikten sonra listboxta veri süzülememe sorunu

[Gold_Savt]

Textbox1'de arama yapıyorum ve ListBox1 de görüntüleniyordu. Her şey normal giderken 10. veya 11. textbox'ları ekledikten sonra arama yapmıyor hata veriyor.
Listbox1'e aranan değer gelmiyor.

Private Sub TextBox1_Change() 'Arama sonucu boxlarda göster
ListBox1.RowSource = Empty
ListBox1.Clear
ListBox1.ColumnCount = 15

For Each isim In Range("B8:B" & Range("B65536").End(xlUp).Row)
    If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) & "*" Then
            liste = ListBox1.ListCount
            ListBox1.AddItem -1
            ListBox1.List(liste, 0) = isim.Offset(0, -1) 'Sıra
            ListBox1.List(liste, 1) = isim.Offset(0, 0) 'adı
            ListBox1.List(liste, 2) = isim.Offset(0, 1) 'tc
            ListBox1.List(liste, 3) = isim.Offset(0, 2) 'giriş 4
            ListBox1.List(liste, 4) = isim.Offset(0, 3) 'giriş 5
            ListBox1.List(liste, 5) = isim.Offset(0, 4) 'giriş 6
            
            ListBox1.List(liste, 7) = isim.Offset(0, 6) 'giriş 7
            ListBox1.List(liste, 8) = isim.Offset(0, 7) 'giriş 8
            ListBox1.List(liste, 9) = isim.Offset(0, 8) 'giriş 9
            ListBox1.List(liste, 10) = isim.Offset(0, 9) 'giriş 10 Hata aldığım yerler
            ListBox1.List(liste, 11) = isim.Offset(0, 10) 'giriş 11
      End IfNext
End Sub


Private Sub UserForm_Initialize()

Sheets("Sayfa1").Select
ListBox1.ColumnCount = 15 ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = "15;90;0;0;0;0;0;0;0;0;0;0;0;0;0" 'lisbox'taki sütunların genişliği
ListBox1.RowSource = "Sayfa1!A8:L" & [L65536].End(3).Row

End Sub

 

[Orion1]

Add item metodu ile en fazla 10 sütuna kadar veri alabilirsiniz.

 

[Gold_Savt]

Değiştirme şansım var mı acaba.

 

[Orion1]

Rowsource metodu ile alabilirsiniz.

 

[Gold_Savt]

Şu anda onu araştırıyorum. Artık tükenme noktasına da geldim. Saatlerdir bakınıyorum.
Rowsource metodu için baştan mı başlamam gerekiyor yoksa küçük bir değişiklik kafi mi bilemedim. Çünkü Userformda 10 dan fazla textbox var.

 

[Orion1]

Textboxlardaki verileri bir sayfaya aktarın.sonrada rowsoerce metodu ile listboxa alın.

 

[Gold_Savt]

Öncelikle rowsoerce metodunu çözmeye çalışıyorum. İnternette de doğru düzgün bir bilgi yok malesef. Sitede arama yaptım lokal problemlere lokal çözümler getirilmiş. Sanırım benim problem daha karmaşık. Bu proje girişimim yatacak herhalde. Yada komple sistemi değiştirip başka bir örnek userformla yola devam etmek gerekecek. Orion1, ilginiz için teşekkürler.