Find and Replace alt enter

[Darin Kramer]

Howdie,

I have a column on which the first line of each cell is the "alt enter"
symbol (ie detail starts on second line within a cell). How do I find
that alt enter charachter and replae it with nothing (ie moving the
second line of text up to the first line of text) within each cell?

Regards
D

*** Sent via Developersdex http://www.developersdex.com ***

 

[Rick Rothstein]

This macro should do what you want, just select the cells you want to apply
it to and then run the macro...

Sub RemoveLeadingAltEnters()
Dim R As Range
For Each R In Selection
If Left(R.Value, 1) = vbLf Then R.Value = Mid(R.Value, 2)
Next
End Sub

 

[Darin Kramer]

Rick,

awesome - thanks so much - works like a dream!

Regards

D

*** Sent via Developersdex http://www.developersdex.com ***

 

[Dave Peterson]

If you wanted to get rid of all the alt-enters in a range, you could:

Select the range to fix.
Edit|replace
what: type ctrl-j
with: (space character or leave blank???)
replace all

If you needed a macro, you could record one while you did it manually.