I have found some code to copy a cells data to a textbox as shown below. what
I require is the reverse, to copy the textbox data to a cell?

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

I am using excel 2000

Just reverse it


Code:
--------------------
Worksheets("Sheet1").Range("B9").Text = _
worksheets("Sheet2").Textbox1.Text
--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site
' (http://www.excel-it.com)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=27904

Sub stephen()
ActiveSheet.Shapes("Text Box 1").Select
With Range("A1")
.Value = Selection.Characters.Text
End With
End Sub
--
Gary''s Student - gsnu200812

I had already tried that and it does not work, I have managed to get it to
work by changing the .text to .value.

Thanks for the help

"royUK" wrote:


Just reverse it


Code:
--------------------
Worksheets("Sheet1").Range("B9").Text = _
worksheets("Sheet2").Textbox1.Text
--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site
' (http://www.excel-it.com)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=27904

Text is a read-only property of the Range object and contains the
actual text as displayed in the cell, governed by the formatting
applied to the cell. Value is read/write and is the underlying value
of the cell, regardless of how it is formatted for display.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Tue, 11 Nov 2008 03:08:29 -0800, Stephen C
wrote:

I had already tried that and it does not work, I have managed to get it to
work by changing the .text to .value.

Thanks for the help

"royUK" wrote:


Just reverse it


Code:
--------------------
Worksheets("Sheet1").Range("B9").Text = _
worksheets("Sheet2").Textbox1.Text
--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site
' (http://www.excel-it.com)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=27904

I am using Office 2007 and can not get this to work with a Textbox that is
directly on an Excel worksheet. Does this only work if it is on a form?
--
Alan


"Chip Pearson" wrote:

Text is a read-only property of the Range object and contains the
actual text as displayed in the cell, governed by the formatting
applied to the cell. Value is read/write and is the underlying value
of the cell, regardless of how it is formatted for display.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Tue, 11 Nov 2008 03:08:29 -0800, Stephen C
wrote:

I had already tried that and it does not work, I have managed to get it to
work by changing the .text to .value.

Thanks for the help

"royUK" wrote:


Just reverse it


Code:
--------------------
Worksheets("Sheet1").Range("B9").Text = _
worksheets("Sheet2").Textbox1.Text
--------------------


--
royUK

Hope that helps, RoyUK
For tips & examples visit my 'web site
' (http://www.excel-it.com)
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=27904