Copy text from one textbox to another textbox on another sheet

[Alstoj79]

Hi again all,

This forum is providing me with some great solutions so far but have another dilema.

On Sheet 1 of my workbook I have 2 textboxes and on sheet 2 I have 1 textbox.
Text boxes are named as follows:
Sheet1 Textboxes are TextBox1 and TextBox2
Sheet2 Textbox is TextBox3

All I want to do is populate Sheet2 Textbox3 with whatever I but in Sheet1 TextBox2.

Sounds simple, but I have been having a little trouble understanding other posts and specially when they use abbreviated code!

I understand that there are 2 ways, one through VBA and another through ActivX but haven't got a clue with either currently.

Your help is greatly appreciated.

Thanks

 

[ranman256]

you really dont need textboxs on worksheets....a sheet has millions of 'boxes' (cells).
adding an ActiveX just complicates it.
just use cells....sheet1.Range("X4").value = sheet2.Range("X4").value

but..
sheets("sheet2").OLEObjects("TextBox3").Object.Value = sheets("sheet1").OLEObjects("TextBox2").Object.Value

 

[frank_AL]

I am assuming these Textboxes are named Ranges; e.g., Textbox1/2/3

With that in mind you could populate Textbox3 with the Formula "=Textbox1"
If it needs to be in VBA you could use the following line in your code:

Range("Textbox3").Value = Range("Textbox1").Value

 

[My Aswer Is This]

When you say:

I understand that there are 2 ways, one through VBA and another through ActivX but haven't got a clue with either currently.​

So you have never use a Vba script?

So all you have ever done is formulas?

Not sure how to try to explain all you need to know if you have no ideal what Vba is.

 

[Alstoj79]

you really dont need textboxs on worksheets....a sheet has millions of 'boxes' (cells).
adding an ActiveX just complicates it.
just use cells....sheet1.Range("X4").value = sheet2.Range("X4").value

but..
sheets("sheet2").OLEObjects("TextBox3").Object.Value = sheets("sheet1").OLEObjects("TextBox2").Object.Value

Thank ranman256, I erally do need text box as its an invoice template and the address need to go in a place where cells can't be aligned to. I will try your code. But where do I out it? new modul? in sheet2? do I need Sub / End Sub?

I am assuming these Textboxes are named Ranges; e.g., Textbox1/2/3

With that in mind you could populate Textbox3 with the Formula "=Textbox1"
If it needs to be in VBA you could use the following line in your code:

Range("Textbox3").Value = Range("Textbox1").Value

Thank Frank_AL,
I could populate the textbox with that formula, that sounds easy, but how? if I were to type that in to the textbox it just says what I type. Is that activx your talking about???
again the code you have there, where do I put it? New module or in the sheet2 vba window?

When you say:

I understand that there are 2 ways, one through VBA and another through ActivX but haven't got a clue with either currently.​

So you have never use a Vba script?

So all you have ever done is formulas?

Not sure how to try to explain all you need to know if you have no ideal what Vba is.

hi My Answer Is This,
Well I sort of know how to manipulate a code but don't know how to start with one. When I said I haven't a clue with either, I meant I haven't a clue how to do this with either!

thanks all

 

[Alstoj79]

Hi all,

Can anyone help with the above, Thanks

 

[My Aswer Is This]

Try this:

Private Sub CommandButton1_Click()
Sheets(2).TextBox3.Value = Sheets(1).TextBox2.Value
End Sub

 

[Alstoj79]

When I insert a text box to the worksheet do I just use insert textbox or do I need to insert it through controls on the developer tab (i.e. activex)? I have just been using normal textbox's?
Thanks

 

[My Aswer Is This]

In your first post you said:

On Sheet 1 of my workbook I have 2 textboxes and on sheet 2 I have 1 textbox.
Text boxes are named as follows:
Sheet1 Textboxes are TextBox1 and TextBox2
Sheet2 Textbox is TextBox3​

So it sounds like to me you already know how to install textboxes.

I know of no way to do it with out using developer.
Then you will have to put this script in a command button.