Search textbox for listbox

[yinkajewole]

Please, I need a search textbox for this code

Private Sub UserForm_Initialize()   
Dim x As Long, FileNum As Long, TotalFile As String, Lines As Variant
FileNum = FreeFile
Open "C:\Temp\History.txt" For Binary As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
TotalFile = Space(LOF(FileNum))
Get [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] , , TotalFile
Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
Lines = Split(TotalFile, vbCrLf)
With rList
For x = UBound(Lines) To 0 Step -1
    .AddItem Replace(Lines(x), "|", vbNullChar, , 1)
    .List(.ListCount - 1, 1) = Mid(Lines(x), InStr(1, Lines(x), "|") + 1)
Next
End With
rList.ColumnWidths = "0;200"


End Sub

The listbox ColumnCount = -1

 

[DanteAmor]

My code on the button and in the change event is the same, if it works on the button, it certainly works in the event. Check the data, it worked well in my tests.
You should try any provided code, for the benefit of the doubt.

 

[yinkajewole]

My code on the button and in the change event is the same, if it works on the button, it certainly works in the event. Check the data, it worked well in my tests.
You should try any provided code, for the benefit of the doubt.

I'm sorry, it worked. I don't understand why it did not work initially. Thanks.

 

[DanteAmor]

You are welcome. Thanks for the feedback.

 

[yinkajewole]

You are welcome. Thanks for the feedback.

Now I understand what happened earlier. It was because, it is case sensitive . I don't think you can do anything to it without converting the ListBox Items to lowercase, do you?

 

[DanteAmor]

Now I understand what happened earlier. It was because, it is case sensitive . I don't think you can do anything to it without converting the ListBox Items to lowercase, do you?

Use this:

Private Sub TextBox1_Change()
    Dim x As Long, FileNum As Long, TotalFile As String, Lines As Variant
    FileNum = FreeFile
    Open "C:\Temp\History.txt" For Binary As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL]  
    TotalFile = Space(LOF(FileNum))
    Get [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL]  , , TotalFile
    Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL]  
    Lines = Split(TotalFile, vbCrLf)
    With rList
        .Clear
        For x = UBound(Lines) To 0 Step -1
            If [COLOR=#0000ff]ucase[/COLOR](Lines(x)) Like "*" & [COLOR=#0000ff]ucase[/COLOR](TextBox1.Value) & "*" Then
                .AddItem Replace(Lines(x), "|", vbNullChar, , 1)
                .List(.ListCount - 1, 1) = Mid(Lines(x), InStr(1, Lines(x), "|") + 1)
            End If
        Next
    End With
End Sub

 

[yinkajewole]

Use this:

Private Sub TextBox1_Change()
    Dim x As Long, FileNum As Long, TotalFile As String, Lines As Variant
    FileNum = FreeFile
    Open "C:\Temp\History.txt" For Binary As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL]  
    TotalFile = Space(LOF(FileNum))
    Get [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL]  , , TotalFile
    Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL]  
    Lines = Split(TotalFile, vbCrLf)
    With rList
        .Clear
        For x = UBound(Lines) To 0 Step -1
            If [COLOR=#0000ff]ucase[/COLOR](Lines(x)) Like "*" & [COLOR=#0000ff]ucase[/COLOR](TextBox1.Value) & "*" Then
                .AddItem Replace(Lines(x), "|", vbNullChar, , 1)
                .List(.ListCount - 1, 1) = Mid(Lines(x), InStr(1, Lines(x), "|") + 1)
            End If
        Next
    End With
End Sub

perfect!

 

[yinkajewole]

I have another lines of code that I would like to have a search box also for it, should I post it here or start a new thread?

 

[DanteAmor]

perfect!

I'm glad to help you. Thanks for the feedback.