Excel Visual Basic User Form - Search Box Entry Error Validation

[KH0]

Dear All,

This is my first post here so wish me luck

I have a Excel Visual Basic User Form Search Box where I would like a MsgBox to appear when the user enters a search where there is no match found.

Thank You.

Private Sub EditCommandButton_Click()
Range("A:A").Select
If ProjectTextBox.Value = "" Then
MsgBox "Invalid Entry", vbCritical, "INVALID ENTRY"
Else
Selection.Find(What:=ProjectTextBox, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext).Activate
Me.Hide
ProjectTextBox.Value = ""
TechnicalTestLogEdit.Show
End If
End Sub

 

[VoG]

Maybe

Private Sub EditCommandButton_Click()
Dim Found As Range
If ProjectTextBox.Value = "" Then
MsgBox "Invalid Entry", vbCritical, "INVALID ENTRY"
Else
Set Found = Columns("A").Find(What:=ProjectTextBox.Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext)
If Found Is Nothing Then
    MsgBox "Not Found", vbExclamation
    Unload Me
    Exit Sub
End If
Found.Select
Me.Hide
ProjectTextBox.Value = ""
TechnicalTestLogEdit.Show
End If
End Sub

 

[KH0]

Maybe

Private Sub EditCommandButton_Click()
Dim Found As Range
If ProjectTextBox.Value = "" Then
MsgBox "Invalid Entry", vbCritical, "INVALID ENTRY"
Else
Set Found = Columns("A").Find(What:=ProjectTextBox.Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext)
If Found Is Nothing Then
    MsgBox "Not Found", vbExclamation
    Unload Me
    Exit Sub
End If
Found.Select
Me.Hide
ProjectTextBox.Value = ""
TechnicalTestLogEdit.Show
End If
End Sub

That Was FAST

Thank You So Much VoG That Did The Trick

I Appreciate It.