Function for characters

T

ToddFisk

I need to have a formula similar to:
=LEFT(E52,70)
but I need to make sure that it does not break up word.
IE...make a formula choose the word that is less than 70 characters long and
everything before it.

Then...I need the next cell below it to show the rest of the text string to
a point

Basically...I am trying to wrap text without wrapping text into one cell and
use multiple cells.

Is this possible
 
D

Duke Carey

Here's a UDF that will give you the first part. To get the second part
you'll have to use the RIGHT and LEN functions


Public Function Seventy(strText As String) As String
Dim strTextRev
Dim intSpace

Application.Volatile

strTextRev = StrReverse(Left(strText, 70))
intSpace = 71 - InStr(1, strTextRev, " ")
Seventy = Left(strText, intSpace)

End Function
 
Top