Populate Cell with Content of Text Box

[Joyce]

I am trying to display the content of one text box on a form in another form
text box on another sheet.

I don't want the users to have to type information in a cell - justs the
initial text box.

I know I can link cell content to a text box, so I'd ideally like to have
the user input data into textbox1, have that display in a cell, then have
textbox2 link to the cell so that it populates automatically.

Any idea if this is possible? Or any better ideas?

Thanks!

 

[Jacob Skaria]

---Right click the text boxes and set the ControlSource property to the cell
reference for example

Sheet1!a1


---You can directly get the textbox content from another userform
Me represent userform2

Me.TextBox1 = UserForm1.TextBox1.Text

If this post helps click Yes

 

[Joyce]

Hello Jacob,

Where would I put the > Me.TextBox1 = UserForm1.TextBox1.Text code?

I would ideally just like one text box to automatically contain was another
one does.

 

[Jacob Skaria]

Hope you have tried ControlSource property too....You can place the code in
Initialize event of the second form...The below code is written on userform2
initialize which will assign the textbox1 with the value in textbox1 in
userform1

Private Sub UserForm_Initialize()
Me.TextBox1 = UserForm1.TextBox2
End Sub

If this post helps click Yes

 

[Joyce]

I think we're having a miscommunication. I apologize. I am designing a
form-like worksheet, but haven't created an actual userform.

So, I am simply trying to populate one text box with another's content
without userforms.

I hope I'm being more clear this time.

Thanks

 

[Jacob Skaria]

OK..Now it is clear... You can use the Linked Cell property..

Right click the Textbox>Properties>Aganist the Linked cell property type in
the cell reference for both the textboxes.. eg:

Sheet1!A1

If this post helps click Yes

 

[Joyce]

Yes, this was the method I was using, but it involves linking to a cell
instead of simply populating from one text box to another.

I works reasonably well, but I don't want the users to be able to modify the
content of textbox2. However, when I disable it, it becomes gray which I
don't want. I would like the characters to remain black and readable.

If I could fix that, I'd be fine. If you know how to do so, I'd love to
hear it.

Thanks!

 

[Jacob Skaria]

Using code ..Suppose you have textbox1 in both Sheet1 and sheet2. In Design
mode double click Sheet1 which will open up the code window for Textbox1 .
Paste the below code (which is the change event)

Any changes made to Sheet1 textbox1 will be reflected in Sheet2 textbox 1.

Private Sub TextBox1_Change()
Sheets("sHEET2").TextBox1.Text = TextBox1.Text
End Sub

If this post helps click Yes

 

[Joyce]

That worked... almost

The problem now is that I can change the content of textbox2, which I don't
want the users to be able to do.

Getting closer...

 

[Jacob Skaria]

OK..You can double click the sheet2 textbox and paste the below one line code
under Keydown event....which disables all entries made to the textbox/.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
KeyCode = 0
End Sub


If this post helps click Yes

 

[Joyce]

Thank you, thank you, thank you!

I appreciate all of your assistance - this is now working like a charm!