Gold_Savt
Altın Üye
- Katılım
- 5 Mart 2010
- Mesajlar
- 225
- Excel Vers. ve Dili
- Ofis 2010 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 01-02-2025
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.
Listbox1'e aranan değer gelmiyor.
Kod:
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