Need If else then statement for when the value does not match the txtbox on the edit tab

Private Sub CommandButton1_Click()


Dim TargetRow As Integer 'variable to save position of this person in database

'use Match worksheet function to find position of chosen name

'If ColumnE_Menu = Application.WorksheetFunction.Match(ColumnE_Menu, Sheets("Data").Range("Dyn_Full_Name")) Then

TargetRow = Application.WorksheetFunction.Match(ColumnE_Menu, Sheets("Data").Range("Dyn_Full_Name"), 0)
Sheets("Engine").Range("B5").Value = TargetRow 'save position in the engine, for use later

'Else: MsgBox "No FIle Number Found"


'End If

Unload Find_Entry_UF 'unload the userform to select a name

'''Begin retrieving data from database'''
Data_UF.Txt_OurFile = Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value 'our file number
Data_UF.Txt_ThereFile = Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value 'there file number
Data_UF.Txt_ClaimNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 3).Value 'claim number
Data_UF.Txt_Policy = Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value 'policy number
Data_UF.Txt_Date = Sheets("Data").Range("Data_Start").Offset(TargetRow, 5).Value 'date
Data_UF.Txt_InsCo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value 'Insurance Company
Data_UF.Txt_Vehicle = Sheets("Data").Range("Data_Start").Offset(TargetRow, 7).Value 'Vehicle
Data_UF.Txt_OurAppraiser = Sheets("Data").Range("Data_Start").Offset(TargetRow, 8).Value 'Our Appraiser

'begin conditional statement to control assignment complete
If Sheets("Data").Range("Data_Start").Offset(TargetRow, 9).Value = "Yes" Then
Data_UF.Option_Y_Child = True
Else
Data_UF.Option_N_Child = True
End If 'end conditional statement to control assignment complete status

Data_UF.Combo_ReceivedPay = Sheets("Data").Range("Data_Start").Offset(TargetRow, 10).Value 'received pay
Data_UF.Combo_AppPaid = Sheets("Data").Range("Data_Start").Offset(TargetRow, 11).Value 'appraiser paid

'''End retrieving data from database'''

Data_UF.Caption = "Edit Existing" 'set caption to show that the user is editing
Data_UF.Show 'show the user form with the details loaded in

End Sub

Please Login or Register  to view this content.

Thank you for your help.
I would like for it to close the userform and not run the the rest of the code if no match of the file number.

Thank you

Private Sub CommandButton1_Click()

Please Login or Register  to view this content.

'''Begin retrieving data from database'''
Data_UF.Txt_OurFile = Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value 'our file number
Data_UF.Txt_ThereFile = Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value 'there file number
Data_UF.Txt_ClaimNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 3).Value 'claim number
Data_UF.Txt_Policy = Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value 'policy number
Data_UF.Txt_Date = Sheets("Data").Range("Data_Start").Offset(TargetRow, 5).Value 'date
Data_UF.Txt_InsCo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value 'Insurance Company
Data_UF.Txt_Vehicle = Sheets("Data").Range("Data_Start").Offset(TargetRow, 7).Value 'Vehicle
Data_UF.Txt_OurAppraiser = Sheets("Data").Range("Data_Start").Offset(TargetRow, 8).Value 'Our Appraiser

'begin conditional statement to control assignment complete
If Sheets("Data").Range("Data_Start").Offset(TargetRow, 9).Value = "Yes" Then
Data_UF.Option_Y_Child = True
Else
Data_UF.Option_N_Child = True
End If 'end conditional statement to control assignment complete status

Data_UF.Combo_ReceivedPay = Sheets("Data").Range("Data_Start").Offset(TargetRow, 10).Value 'received pay
Data_UF.Combo_AppPaid = Sheets("Data").Range("Data_Start").Offset(TargetRow, 11).Value 'appraiser paid

'''End retrieving data from database'''

Data_UF.Caption = "Edit Existing" 'set caption to show that the user is editing
Data_UF.Show 'show the user form with the details loaded in

End Sub

Please take a moment to read our forum rules...here
Your post does not comply with Rule # 2
2. Programming code must be enclosed in code tags to improve readability. (A, Z)

Please Login or Register  to view this content.

So...Edit your post...Highlight the code and press the # button
We can only assist once this has been done…

You got the code tags around a little bit of your code. Close enough for now, but can you see you have three posts with almost all code. Maybe you want to go back and fix is all.

Please Login or Register  to view this content.

Here is a finished working model. This form uses the "our File Number" to search edit or add data to the data tab it also uses dynamic names.
it keeps the UserForm Find_Entry_UF open which now has more options

Feel free to use and change to your needs.

Private Sub CommandButton1_Click()

Please Login or Register  to view this content.