is it possible using a command button to copy text from a cell in sheet1 and
paste it into a text box in sheet 2
thankyou john

Private Sub Commandbutton1_click()
worksheets("Sheet2").Textbox1.Text = _
Worksheets("Sheet1").Range("B9").Text
End sub

Assuming the textbox is from the control toolbox toolbar as is the
commandbutton.

--
Regards,
Tom Ogilvy


"john tempest" wrote:

is it possible using a command button to copy text from a cell in sheet1 and
paste it into a text box in sheet 2
thankyou john

thankyou tom that worked perfectly

"Tom Ogilvy" wrote:

Private Sub Commandbutton1_click()
worksheets("Sheet2").Textbox1.Text = _
Worksheets("Sheet1").Range("B9").Text
End sub

Assuming the textbox is from the control toolbox toolbar as is the
commandbutton.

--
Regards,
Tom Ogilvy


"john tempest" wrote:

is it possible using a command button to copy text from a cell in sheet1 and
paste it into a text box in sheet 2
thankyou john

i have a problem
the code worked perfectly,but i want to put in another button to follow on
..i tried this and the text from the first command button was deleted and the
text from the second commmand button was displayed i need these to follow on
thank you john

"john tempest" wrote:

thankyou tom that worked perfectly

"Tom Ogilvy" wrote:

Private Sub Commandbutton1_click()
worksheets("Sheet2").Textbox1.Text = _
Worksheets("Sheet1").Range("B9").Text
End sub

Assuming the textbox is from the control toolbox toolbar as is the
commandbutton.

--
Regards,
Tom Ogilvy


"john tempest" wrote:

is it possible using a command button to copy text from a cell in sheet1 and
paste it into a text box in sheet 2
thankyou john

worksheets("Sheet2").Textbox1.Text = _
worksheets("Sheet2").Textbox1.Text & chr(10) &
Worksheets("Sheet1").Range("B9").Text

--
Regards,
Tom Ogilvy

"john tempest" wrote in message
...
i have a problem
the code worked perfectly,but i want to put in another button to follow on
.i tried this and the text from the first command button was deleted and
the
text from the second commmand button was displayed i need these to follow
on
thank you john

"john tempest" wrote:

thankyou tom that worked perfectly

"Tom Ogilvy" wrote:

Private Sub Commandbutton1_click()
worksheets("Sheet2").Textbox1.Text = _
Worksheets("Sheet1").Range("B9").Text
End sub

Assuming the textbox is from the control toolbox toolbar as is the
commandbutton.

--
Regards,
Tom Ogilvy


"john tempest" wrote:

is it possible using a command button to copy text from a cell in
sheet1 and
paste it into a text box in sheet 2
thankyou john

i cannot get that one to run at all,but what i have done is gone down another
path using a normal text box with the following code:
Private Sub CommandButton4_Click()
With Sheet2.Shapes("Text Box 1").TextFrame.Characters
..Text = .Text & " " & Range("A4")
End With
End Sub

i have 20 command buttons and each refers to a cell with text in it. so i
click the button and the text appears in the text box ,this works fine 7
times but then it stops working. i have also tried the following code and
that does exactly the same after 7 times
now i am really confused, any help would be greatly appreciated
thank you john

"Tom Ogilvy" wrote:

worksheets("Sheet2").Textbox1.Text = _
worksheets("Sheet2").Textbox1.Text & chr(10) &
Worksheets("Sheet1").Range("B9").Text

--
Regards,
Tom Ogilvy

"john tempest" wrote in message
...
i have a problem
the code worked perfectly,but i want to put in another button to follow on
.i tried this and the text from the first command button was deleted and
the
text from the second commmand button was displayed i need these to follow
on
thank you john

"john tempest" wrote:

thankyou tom that worked perfectly

"Tom Ogilvy" wrote:

Private Sub Commandbutton1_click()
worksheets("Sheet2").Textbox1.Text = _
Worksheets("Sheet1").Range("B9").Text
End sub

Assuming the textbox is from the control toolbox toolbar as is the
commandbutton.

--
Regards,
Tom Ogilvy


"john tempest" wrote:

is it possible using a command button to copy text from a cell in
sheet1 and
paste it into a text box in sheet 2
thankyou john