Basic User list items , search, Edit from three sheets

Hello

I modified your user form adding a combobox to choose your sheets names. Then using the advanced filter i get your results in listbox using a (helper) sheet-we can use a range to an existing sheet if you prefer this.

Private Sub ComboBox1_Change()
Sheets("results").Range("a2") = Me.ComboBox1.Text
If Sheets("results").Range("a2") = "Inuse" Then
    Sheets("Inuse").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("results").Range("F1:G1"), Unique:=False
        End If
     If Sheets("results").Range("a2") = "New" Then
    Sheets("New").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("results").Range("F1:G1"), Unique:=False
        End If
        If Sheets("results").Range("a2") = "Finished" Then
    Sheets("Finished").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("results").Range("F1:G1"), Unique:=False
        End If
End Sub

..and for your second part of your question..use this.

Private Sub ListBox1_Click()
  
    If Me.ListBox1.ListIndex = -1 Then 'not selected
        MsgBox " No selection made"
    ElseIf Me.ListBox1.ListIndex >= 1 Then 'User has selected
        r = Me.ListBox1.ListIndex
        With Me
            .TextBox1.Value = ListBox1.List(r, 0)
            .TextBox2.Value = ListBox1.List(r, 1)
             
        End With
    End If
End Sub

You are welcome and thanks for the feedback.

The system does not allows you to give me a rep because-probably-i am the one that you gived a rep, in your previous thread! No worries. You oguht one to me!

Thanks for the rep!

I have also modified the code in edit button. Perhaps should be interesting for you.

Private Sub CommandButton5_Click()
Dim lastrow As Long
If Sheets("results").Range("a2") = "New" Then
lastrow = Worksheets("New").Range("A" & Rows.Count).End(xlUp).Row

With Worksheets("New").Range("a1")
.Offset(lastrow, 0).Value = Me.TextBox1.Text
  .Offset(lastrow, 1).Value = Me.TextBox2.Value

   TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox1.Value = ""
  
 End With
 End If
 If Sheets("results").Range("a2") = "Inuse" Then
lastrow = Worksheets("Inuse").Range("A" & Rows.Count).End(xlUp).Row

With Worksheets("Inuse").Range("a1")
.Offset(lastrow, 0).Value = Me.TextBox1.Text
  .Offset(lastrow, 1).Value = Me.TextBox2.Value

   TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox1.Value = ""
  
 End With
 End If
  If Sheets("results").Range("a2") = "Finished" Then
lastrow = Worksheets("Finished").Range("A" & Rows.Count).End(xlUp).Row

With Worksheets("Finished").Range("a1")
.Offset(lastrow, 0).Value = Me.TextBox1.Text
  .Offset(lastrow, 1).Value = Me.TextBox2.Value

   TextBox1.Value = ""
  TextBox2.Value = ""
  TextBox1.Value = ""
  
 End With
 End If
End Sub

After so many good news, now the bad news.

The code in command button5(which is a modification of the code that exists in your first workbook example) does not edit the names or the numbers. Just adds as a new record in first available row of eatch sheet.

Unfortunately i don't know how to do this(the edit). Sorry.