One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|Syntax error with Dates where clause||10||40|
|Formula in Excel or vba to transfer values from Column X to Y||5||29|
|GPO to Load Add-ons for MS Office?||2||11|
|formula to count the number of capital letters in an excel formula||3||7|