Cell Charecter Limit

[Soniya]

Hi All,
By going thru this news group I find the maximum charecter limit for a
cell is 32768 and
only 1024 can be displayed.

I also noticed that when I try to print those charecters are not
printed too.

I am getting a textbox data to my cell A2. How cud I code to split the
data to A2 and A3 in case the charavcters are more than 1024?

Thanks

[Kaak]

j = 1
k = 1

For i =1 to Len(FormString)

Range("A" & k).value = Range("A" & k).value & Mid(FormString,i,1)

If j = 1024 Then

j = 0

k = k + 1

end if

j = j + 1

next i

[JE McGimpsey]

One way:

Dim i As Long
For i = 0 To Int((Len(sText) - 1) / 1024)
Range("A1").Offset(i, 0).Value = _
Mid(sText, (i) * 1024 + 1, 1024)
Next i



In article <1133175754.397531.100040@g49g2000cwa.googlegroups.com>,
"Soniya" <Melepoil@gmail.com> wrote:

> Hi All,
> By going thru this news group I find the maximum charecter limit for a
> cell is 32768 and
> only 1024 can be displayed.
>
> I also noticed that when I try to print those charecters are not
> printed too.
>
> I am getting a textbox data to my cell A2. How cud I code to split the
> data to A2 and A3 in case the charavcters are more than 1024?
>
> Thanks