Can I add "Error handling" if there is no match in this formula?

[VBE313]

I saw this from VBA Express. [FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]http://www.vbaexpress.com/forum/showthread.php?48063-UserFrom-TextBox-search-in-ListBox-in-the-same-UserForm


It was very helpful, I was wondering if you can add error handling if you find no match?

Private Sub TextBox1_Change()Dim i As Long
Dim sFind As String

sFind = Me.TextBox1.Text

If Len(sFind) = 0 Then
Me.ListBox1.ListIndex = -1
Me.ListBox1.TopIndex = 0
Else
For i = 0 To Me.ListBox1.ListCount - 1
If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then
Me.ListBox1.TopIndex = i
Me.ListBox1.ListIndex = i
Exit For
End If
Next i
End If
End Sub

Thanks
​

<strike></strike>
[/FONT]

 

[Yongle]

Is this what you want?

Private Sub TextBox1_Change()
    Dim i As Long
    Dim sFind As String
    
    sFind = Me.TextBox1.Text
    
    If Len(sFind) = 0 Then
        Me.ListBox1.ListIndex = -1
        Me.ListBox1.TopIndex = 0
    Else
        For i = 0 To Me.ListBox1.ListCount - 1
            If UCase(Left(Me.ListBox1.List(i), Len(sFind))) = UCase(sFind) Then
                Me.ListBox1.TopIndex = i
                Me.ListBox1.ListIndex = i
                Exit For
            Else
                Me.ListBox1.ListIndex = -1
                Me.ListBox1.TopIndex = 0
            End If
        Next i
    End If
End Sub