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
Bookmarks