Search String then add data next to it.

Hello,

I was wondering if anyone can help?

I have some data which will populate column A in worksheet "Data".

I also have a userform where I want the user to enter a string that will search column A and if that string exist will enter a number/count in the next available space next to that string. (from columns B onwards)

I've added an attachment excel as an example.

Thanks for any help!

JP

Is this what you mean?

Private Sub cmdSave_Click()
Dim i&, c&, r&
Dim f As Range, fa
Dim sMsg$
If txtSearch.Text = "" Or Not IsNumeric(txtCount.Text) Then
    sMsg = "Not enough info."
Else
    With Sheet1
            Set f = .Range("A:A").Find(what:=txtSearch.Text, lookat:=xlWhole)
            If Not f Is Nothing Then
                fa = f.Address
                r = .Range(f.Address).Row
                c = .Cells(r, Columns.Count).End(xlToLeft).Offset(0, 1).Column
                Do
                    i = i + 1
                    Set f = .Range("A:A").FindNext(f)
                Loop While Not f Is Nothing And fa <> f.Address
                If i > 1 Then
                   sMsg = "More than one match found."
                Else
                    sMsg = "Done"
                    .Cells(r, c) = txtCount.Text
                End If
                    
            Else
                sMsg = "'" & txtSearch.Text & "' not found."
            End If
    End With
End If
MsgBox sMsg
End Sub

exactly what I wanted, thank you super star

You're very welcome. Thank you for the feedback.