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

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
<(E-Mail Removed)> 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
> <(E-Mail Removed)> 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
> >>
> >>
>