Populate TextBox with Change Event

[Johnny]

I have a form with two textboxes. TextBox1 is the row # that contains
specific data in that row in column B that I would like to appear in
TextBox2. So, everytime I change TextBox1 I would like TextBox2 to change.
I need help writing the change event code to select the range with the
variable row number in TextBox1.

For example, if I change TextBox1 to "3", TextBox2 should populate with data
that's located in Range B3 from the sheet.

Thank you

 

[JLGWhiz]

Here is one way:

Private Sub TextBox1_Change()
Dim myTxt As String
myTxt = Me.TextBox1.Text
If Me.TextBox1.Text <> "" And IsNumeric(myTxt) Then
Me.TextBox2.Text = ActiveSheet.Range("B" & myTxt).Value
End If
End Sub

Copy code to UserForm code module

 

[Ryan H]

Try,

Private Sub TextBox1_Change()
On Error Resume Next
Me.TextBox2.Text = Cells(TextBox1, "B").Text
End Sub

Hope this helps, if so click "YES" below.

 

[Johnny]

That worked perfectly. Thank you very much. I have a follow up question I
hope you can help me with as well unless you think I need to do a separte
post. Anyway, I would like to export the TextBox2 data into another tab on
the spreadsheet called "Report" in cell B14. However I would like to add the
data (which is text) to the end of the text that is already in that cell so
that I do not delete what is already there.

I appreciate your help!

 

[Ryan H]

Sure that is easy. Set up a quick new post, that would be great and I'll
have it for you.

 

[JLGWhiz]

Add this to the UserForm code module.

Private Sub TextBox2_Change()
Dim rng As Range
Set rng = Sheets("Report").Range("B14")
rng.Value = rng.Value & " " & Me.TextBox2.Text
End Sub

When you select the value for TextBox1, it will add a value to TextBox2 and
that will trigger a change which will run the above code to put TB2 value in
B14 on Report.