Hello

I have a problem, hope you can help me.
I have an Excel Form that has several text boxes, user
will enter information and data will be saved in a
spreadsheet.

The problem is: text box truncates text entered.

I am using
ActiveCell.Value = myTextBox.Text
ActiveCell.Value = Replace$(ActiveCell.Text, vbCr, "")

Thanks!
Kali

The text can be up to 2000 characters.
The textbox is in a UserForm

Irais.

-----Original Message-----
Kali wrote:
The problem is: text box truncates text entered.

I am using
ActiveCell.Value = myTextBox.Text
ActiveCell.Value = Replace$(ActiveCell.Text,
vbCr, "")


How long is the text?
What kind of textbox are you using (UserForm?, Drawing
toolbar? ...)

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup

.

The problem is in
ActiveCell.Value = Replace$(ActiveCell.Text, vbCr, "")


ActiveCell.Text gives a maximum of 1024 characters.
Change to
ActiveCell.Value = Replace$(ActiveCell.Value, vbCr, "")
and you should be OK.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup

That works.
Thank you, Bill M.!

Irais K.

-----Original Message-----

The problem is in
ActiveCell.Value = Replace$(ActiveCell.Text,
vbCr, "")


ActiveCell.Text gives a maximum of 1024 characters.
Change to
ActiveCell.Value = Replace$(ActiveCell.Value,
vbCr, "")
and you should be OK.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup

.