Çözüldü Dinamik text aramalı ListBox

[KoNFiCuS]

Merhaba Üstadlar,

Eski kullanmış olduğum bir ListBox objesinde arama yapılan text soldan sağa aynı olması gerekiyordu, aşağıdaki kodu içerisinde geçen kelimelere göre arama yapacağı şekilde nasıl güncelleyebilirim?

Private Sub TextBox1_Change()
On Error GoTo yok
Dim oteladi As Range
ListBox1.Clear
For Each oteladi In ThisWorkbook.Worksheets("PivotDB").Range("AV2:AV" & ThisWorkbook.Worksheets("PivotDB").Range("AV65530").End(1).Row)
    If InStr(1, oteladi, TextBox1.Text, vbTextCompare) > 0 Then
        
        ListBox1.AddItem
        ListBox1.List(ListBox1.ListCount - 1, 0) = oteladi
        ListBox1.List(ListBox1.ListCount - 1, 1) = oteladi.Offset(0, 1)
        ListBox1.List(ListBox1.ListCount - 1, 2) = oteladi.Offset(0, 2)
    End If
Next oteladi
Exit Sub
yok:
ListBox1.Clear
End Sub

ayrıca Offset deki 2. seçenek yani "ListBox1.List(ListBox1.ListCount - 1, 2) = oteladi.Offset(0, 2)" bu listbox a gelmiyor.

 

[Korhan Ayhan]

Merhaba,

Uygulama yaptığınız örnek dosyanızı paylaşabilirmisiniz.

 

[KoNFiCuS]

Başka kaynakları araştırarak da olsa bir kendimce bir yanıt buldum.

Private Sub TextBox1_Change()

ListBox1.Clear

List = Worksheets("PivotDB").Range("AV2:AV" & ThisWorkbook.Worksheets("PivotDB").Range("AV65530").End(1).Row)

For t = LBound(List) To UBound(List)
    If InStr(1, List(t, 1), Trim(TextBox1), vbTextCompare) Then
        ListBox1.AddItem List(t, 1)
    End If
Next

End Sub

Ama bu seferde sadece mesela ismi getiriyor yanındaki bilgileri getirmiyor,

ListBox1.List(ListBox1.ListCount - 1, 1) = List.Offset(0, 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = List.Offset(0, 2)

denedim olmadı.

 

[KoNFiCuS]

Ufak bir değişiklikle başardım.

List = Worksheets("PivotDB").Range("AV2:Ax" & ThisWorkbook.Worksheets("PivotDB").Range("Ax65530").End(1).Row)

For t = LBound(List) To UBound(List)
    If InStr(1, List(t, 1), Trim(TextBox1), vbTextCompare) Then
        ListBox1.AddItem
        ListBox1.List(ListBox1.ListCount - 1, 0) = List(t, 1)
        ListBox1.List(ListBox1.ListCount - 1, 1) = List(t, 2)
        ListBox1.List(ListBox1.ListCount - 1, 2) = List(t, 3)