Target Row Question

[mhardage]

I have successfully incorporated an EDIT button in Excel/VBA to find a target row and return the completely filled out user form so the user can make edits. The code is below, which I copied from Chris Mortimer to create my database.

My question is how can I use this same method to create an Administrative Edit Button that uses a different criteria (value in different column) to pull the user form up so I can edit based on a TripNumber. I have the button and it pulls up my trip #'s to search just like my successful code, but does not populate the user form so I can edit based on the TripNumber

Successful code for User Form....

Option Explicit
Private Sub CommandButton_Continue_Click()
'When we click the 'continue' button

Dim TargetRow As Integer 'variable for position control 'user target row'
Dim TripFullName As String 'trip full name
Dim TripNumber As String 'trip number
Dim UserMessage As String 'variable to configure user message at the end

TripFullName = TextBox_Date & " " & ComboBox_SportEvent & " " & ComboBox_TeamGroup 'concatenate Date, SportEvent and TeamGroup for use in code below
TripNumber = TextBox_TripNumber 'Admin search component

'begin check if in 'edit' or 'add new' mode
If Sheets("Engine").Range("B4").value = "NEW" Then 'in 'new' mode

    'begin validation check 'check if name already exists
    If Application.WorksheetFunction.CountIf(Sheets("Data").Range("F11:F1011"), TripFullName) > 0 Then
       
    MsgBox "Name already exists", 0, "Check"
    Exit Sub 'notify user and exit the routine
   
    End If
    'end validation check
   
TargetRow = Sheets("Engine").Range("B3").value + 1 'make variable equal to COUNTA formula on worksheet + 1
UserMessage = " has been added to the database" 'configure user message for add new entry

Else 'in 'edit' mode

TargetRow = Sheets("Engine").Range("B5").value 'make variable equal to the value saved in the engine
UserMessage = "'s details have been edited" 'configure user message for edit entry

End If
'end check if in 'edit' or 'add new mode'


'''BEGIN INPUT DATA INTO DATABASE'''

Successful code for the User Edit Button....

Option Explicit

Private Sub CommandButton_User_Search_Click()

Dim TargetRow As Integer 'Variable to save position of this Entry in databse

'use Match worksheet function to find position of chosen entry
TargetRow = Application.WorksheetFunction.Match(ColumnF_Menu, Sheets("Data").Range("Dyn_Trip_Full_Name"), 0)
Sheets("Engine").Range("B5").value = TargetRow 'save position in the engine, for use later

My new edit criteria would be ColumnU_Menu & "Dyn_Trip_Number"

Unload Find_Entry_UF 'unload the userform to select a name

'''Begin retrieving data from database'''