Character Limitation

H

hicksviv

Hi,
I wonder if anyone can help. I have some cells that have lots of text
in - after around 1100 it seems to cut of the text. So ,if I do a row
'autofit' height it doesn't show all the text - however if I click the
fx button it shows it all - making sense?

I need to be able to print the file showing all the text - has anyone
got any idea how I can do this please?

Thanks in advance for any help!!

Viv
 
D

Dave Peterson

If you pepper alt-enters (to force new lines within the cell) every 80-100
characters, you'll be able to see more characters.
 
H

hicksviv

Thanks Dave - is there anyway to automate this? I have quite a few
cells with too much text!
 
D

Dave Peterson

I guess you could look at the value in each cell and plop in those alt-enters.

I always wanted more control over where the line would break, though.
 
D

Dave Peterson

Try this against a copy (or close without saving)...

Option Explicit
Sub testme01()
Dim myRng As Range
Dim myCell As Range
Dim myStr As String
Dim iCtr As Long
Dim jCtr As Long

Set myRng = Selection

For Each myCell In myRng.Cells
If myCell.HasFormula Then
'skip it
Else
If Len(myCell.Value) > 800 Then
myStr = myCell.Value
For iCtr = 80 To Len(myStr) Step 80
Do
jCtr = iCtr
If Mid(myStr, jCtr, 1) = " " Then
Mid(myStr, jCtr, 1) = vbLf
Exit Do
Else
jCtr = jCtr + 1
End If
Loop
Next iCtr
myCell.Value = myStr
End If

End If
Next myCell

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
Top