Populate Userform with values from table

Hi

I have done the following for you:

Created a Global variable "Entry"

Added an additional Column in your Named Range ContactSearchResults this Column Store the Row Number of the Entries.

Added an additional Column to your listbox on your search screen. Column Width is set to 0 so it is hidden

Selecting an Entry in the List box sets the value of Entry to the Row Number of the Entry. Entry = Listbox.value

I have added the code to your Edit Userform to load the data from the selected Entry.

I have also added the code to save your edited Userform.

This code is messy but is in line with your existing code:

My normal Code to load the Userform requires each Control be numbered to match the column where its data is.
Textbox10's data is in column 10, Combobox11's data is in column 11 etc.

On Error Resume Next
'CF is the flag to stop macros running when a Control is modified.  Example Below
CF = True

For Count =1 To 70
      Me.Controls("CheckBox" & Count).Value = LoadArray(Count)
      Me.Controls("ComboBox" & Count).Value = LoadArray(Count)
      Me.Controls("ListBox" & Count).Value = LoadArray(Count)
      Me.Controls("Label" & Count).Caption = LoadArray(Count)
      Me.Controls("TextBox" & Count).Value = LoadArray(Count)
      Me.Controls("SpinButton" & Count).Value = LoadArray(Count)
Next

CF = False
On Error GoTo 0



Private Sub ComboBox2_Change()
If CF = True Then Exit Sub
TextBox2.Value = ComboBox2.Value
End Sub

Private Sub UserForm_Activate()
If Entry < 9 Then Exit Sub
 TextBox1.Value = Cells(Entry, 3).Value
 TextBox2.Value = Cells(Entry, 4).Value
 TextBox3.Value = Cells(Entry, 6).Value
 ComboBox1.Value = Cells(Entry, 7).Value
 ComboBox2.Value = Cells(Entry, 8).Value
 ComboBox3.Value = Cells(Entry, 9).Value
 TextBox4.Value = Cells(Entry, 10).Value
 ComboBox4.Value = Cells(Entry, 11).Value
 ComboBox5.Value = Cells(Entry, 12).Value
 ComboBox6.Value = Cells(Entry, 13).Value
 TextBox5.Value = Cells(Entry, 14).Value
 TextBox7.Value = Cells(Entry, 15).Value
 TextBox9.Value = Cells(Entry, 16).Value
 TextBox11.Value = Cells(Entry, 17).Value
 TextBox13.Value = Cells(Entry, 18).Value
 TextBox15.Value = Cells(Entry, 19).Value
 TextBox6.Value = Cells(Entry, 20).Value
 TextBox8.Value = Cells(Entry, 21).Value
 TextBox10.Value = Cells(Entry, 22).Value
 TextBox12.Value = Cells(Entry, 23).Value
 TextBox14.Value = Cells(Entry, 24).Value
 TextBox16.Value = Cells(Entry, 25).Value
 TextBox17.Value = Cells(Entry, 26).Value
 ComboBox7.Value = Cells(Entry, 27).Value
 TextBox18.Value = Cells(Entry, 28).Value
 ComboBox8.Value = Cells(Entry, 29).Value
 TextBox19.Value = Cells(Entry, 30).Value
 ComboBox9.Value = Cells(Entry, 31).Value
 TextBox20.Value = Cells(Entry, 32).Value
 ComboBox10.Value = Cells(Entry, 33).Value
 TextBox21.Value = Cells(Entry, 34).Value
 TextBox22.Value = Cells(Entry, 35).Value
 TextBox23.Value = Cells(Entry, 36).Value
 TextBox24.Value = Cells(Entry, 37).Value
 TextBox25.Value = Cells(Entry, 38).Value
 TextBox27.Value = Cells(Entry, 39).Value
 TextBox26.Value = Cells(Entry, 40).Value
 TextBox28.Value = Cells(Entry, 41).Value
 TextBox38.Value = Cells(Entry, 42).Value
 TextBox29.Value = Cells(Entry, 43).Value
 TextBox39.Value = Cells(Entry, 44).Value
 TextBox30.Value = Cells(Entry, 45).Value
 TextBox40.Value = Cells(Entry, 46).Value
 TextBox31.Value = Cells(Entry, 47).Value
 TextBox41.Value = Cells(Entry, 48).Value
 TextBox32.Value = Cells(Entry, 49).Value
 TextBox42.Value = Cells(Entry, 50).Value
 TextBox33.Value = Cells(Entry, 51).Value
 TextBox43.Value = Cells(Entry, 52).Value
 TextBox34.Value = Cells(Entry, 53).Value
 TextBox44.Value = Cells(Entry, 54).Value
 TextBox35.Value = Cells(Entry, 55).Value
 TextBox45.Value = Cells(Entry, 56).Value
 TextBox36.Value = Cells(Entry, 57).Value
 TextBox46.Value = Cells(Entry, 58).Value
 TextBox37.Value = Cells(Entry, 59).Value
 TextBox47.Value = Cells(Entry, 60).Value
 ComboBox11.Value = Cells(Entry, 61).Value
 ComboBox14.Value = Cells(Entry, 62).Value
 ComboBox17.Value = Cells(Entry, 63).Value
 ComboBox13.Value = Cells(Entry, 64).Value
 ComboBox15.Value = Cells(Entry, 65).Value
 ComboBox18.Value = Cells(Entry, 66).Value
 ComboBox12.Value = Cells(Entry, 67).Value
 ComboBox16.Value = Cells(Entry, 68).Value
 ComboBox19.Value = Cells(Entry, 69).Value