I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these cells
with use of the textbox on the userform.

thank you

Do you mean something like?

Userform1.Textbox1.Text = ACtivecell.Value

--

HTH

RP
(remove nothere from the email address if mailing direct)


"RUUD VAN DEURSEN" wrote in message
...
I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these cells
with use of the textbox on the userform.

thank you

When i doubleclick on the textbox1 i can past the code
like this:

Private Sub TextBox1_Change()
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub

Is this the right procedure


But it is not possible to fill the textbox with text.
-----Original Message-----
Do you mean something like?

Userform1.Textbox1.Text = ACtivecell.Value

--

HTH

RP
(remove nothere from the email address if mailing direct)


"RUUD VAN DEURSEN"
wrote in message
...
I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these cells
with use of the textbox on the userform.

thank you


.

I presume that you mean

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


wrote in message
...
When i doubleclick on the textbox1 i can past the code
like this:

Private Sub TextBox1_Change()
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub

Is this the right procedure


But it is not possible to fill the textbox with text.
-----Original Message-----
Do you mean something like?

Userform1.Textbox1.Text = ACtivecell.Value

--

HTH

RP
(remove nothere from the email address if mailing direct)


"RUUD VAN DEURSEN"
wrote in message
...
I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these cells
with use of the textbox on the userform.

thank you


.

Thank You.
-----Original Message-----
I presume that you mean

Private Sub TextBox1_DblClick(ByVal Cancel As
MSForms.ReturnBoolean)
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


wrote in message
...
When i doubleclick on the textbox1 i can past the code
like this:

Private Sub TextBox1_Change()
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub

Is this the right procedure


But it is not possible to fill the textbox with text.
-----Original Message-----
Do you mean something like?

Userform1.Textbox1.Text = ACtivecell.Value

--

HTH

RP
(remove nothere from the email address if mailing
direct)


"RUUD VAN DEURSEN"

wrote in message
...
I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these
cells
with use of the textbox on the userform.

thank you


.



.

You have it reversed:

Private Sub TextBox1_Change()
ActiveCell.Value = UserForm1.TextBox1.Text
End Sub

to put the value of the textbox into the cell.

--
Regards,
Tom Ogilvy


wrote in message
...
When i doubleclick on the textbox1 i can past the code
like this:

Private Sub TextBox1_Change()
UserForm1.TextBox1.Text = ActiveCell.Value
End Sub

Is this the right procedure


But it is not possible to fill the textbox with text.
-----Original Message-----
Do you mean something like?

Userform1.Textbox1.Text = ACtivecell.Value

--

HTH

RP
(remove nothere from the email address if mailing direct)


"RUUD VAN DEURSEN"
wrote in message
...
I have a Userform1

In a worksheet, when i select a number of cells (any
cells) what is the code to put in text in these cells
with use of the textbox on the userform.

thank you


.