Populate cell values into 6 named text boxes in a userform then edit if required

You don't need to protect/unprotect to put the values in the texboxes, but you will need it if you want to alter the data on the worksheet.

To find the row the unique value is on you could use match, and with that you can populate the textboxes.

Here's a rough example of what I mean.

Dim res As Variant

   res = Application.Match(Textbox1.Value, Worksheets("Sheet1").Range("B:B") , 0)

   If Not IsError(res) Then
           TextBox2.Value = Worksheets("Sheet1").Range("A" & res).Value
           TextBox3.Value = Worksheets("Sheet1").Range("C" & res).Value
           TextBox4.Value = Worksheets("Sheet1").Range("D" & res).Value
           TextBox5.Value = Worksheets("Sheet1").Range("E" & res).Value
           TextBox6.Value = Worksheets("Sheet1").Range("F" & res).Value
   End If

Obviously you'd need to change that for your setup - perhaps you could attach a sample workbook?

The code I posted was just kind of rough and would have to be changed.

Why do you mention another userform?

You should be able to do everything with the one userform, more than that seems complicated.

Anyways, I'll have a look at the workbook.

I thought you were using the 2 forms for the same thing.

Not had a proper look at everything though, a problem with a missing OCX file for the DatePicker control.

Since the IDs being looked for are numeric the text from the textbox needs to be converted, otherwise the Match will fail.

Try this.

Private Sub Getdata_Click()
Dim res As Variant

   res = Application.Match(Val(TboIDnumber.Value), Worksheets("Sheet2").Range("B:B"), 0)

   If Not IsError(res) Then
           TboLogedit.Value = Worksheets("Sheet2").Range("A" & res).Value
           TboDateedit.Value = Worksheets("Sheet2").Range("C" & res).Text
           Tbojobedit.Value = Worksheets("Sheet2").Range("D" & res).Value
           TboLocedit.Value = Worksheets("Sheet2").Range("E" & res).Value
           TboCustomeredit.Value = Worksheets("Sheet2").Range("F" & res).Value
           TboRigedit.Value = Worksheets("Sheet2").Range("G" & res).Value
   End If
End Sub

If there's going to be a mix of numeric and alphanumeric then perhaps Match isn't the way to go.

Why not have a combobox listing the IDs instead of a textbox?

Norie, I've added a new column in for A which will will give the table a seperate number but will sort as an individual col, which seems to work (wasn't really wanting to add the extra col.........but needs must!!). What is the best way to overwrite the values in the edit form to the table?

Why did you add another column?

How about a combobox?

See the attached.

As for putting the data back on the worksheet, you can just reverse the code that's used to populate the userform, perhaps with a tweak or two.