May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Private Sub txtSearch_Change() Dim strText As String Dim i As Long strText = LCase(txtSearch.Text) With ListBox1 For i = 0 To .ListCount - 1 If LCase(Left$(.List(i), Len(strText))) = strText Then Exit For Next i If i = .ListCount Then ' No matching item was found, select nothing .ListIndex = -1 Else ' A match was found, select it .ListIndex = i End If End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Compare Two Columns on Two Different Sheets and Paste the Results into a 3rd Sheet||5||45|
|MS Access vba Print PDF First page only||16||35|
|Excel User Form - Adding to multiple worksheets using one user form||4||25|
|Managing Office 365 Dynamic Groups||3||27|
Join the community of 500,000 technology professionals and ask your questions.