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
|Generating a graph via Excel||3||25|
|VBA MS Word "Table of Contents" extractor`||4||23|
|Steps to program a particular database app using access and any programming language.||16||36|
|help with changing the VBA to ignore if sheet exists||6||18|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
28 Experts available now in Live!