Populate TextBox with Change Event
 

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

Populate TextBox with Change Event
 

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


"Johnny" wrote in message
...
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

Populate TextBox with Change Event
 

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.
--
Cheers,
Ryan


"Johnny" wrote:

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

Populate TextBox with Change Event
 

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" wrote:

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.
--
Cheers,
Ryan


"Johnny" wrote:

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

Populate TextBox with Change Event
 

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


"Johnny" wrote:

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" wrote:

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.
--
Cheers,
Ryan


"Johnny" wrote:

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

Populate TextBox with Change Event
 

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.


"Johnny" wrote in message
...
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" wrote:

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.
--
Cheers,
Ryan


"Johnny" wrote:

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