Replacing carriage returns with a comma

[Sue Compelling]

Hi

I have an address cell which has data with multiple lines - eg:

School of Science
Medical University

and I want to do a Find all: carriage returns and replace with a comma -
though I don't know the code to use for the carriage returns ...

Help

TIA

 

[Bob Phillips]

With Activecell

.Value = Replace(.Value, Chr(10),",")
End With

 

[FSt1]

hi
see this site...
http://en.allexperts.com/q/Excel-1059/rid-Carriage-returns-1.htm

regards
FSt1

 

[Sue Compelling]

Thanks FSt1 for the quick response - I also kept searching and discovered the
very simple

Find CTL J
Replace ,
Replace ALL

Brilliant

 

[smartin]

Hi

I have an address cell which has data with multiple lines - eg:

School of Science
Medical University

and I want to do a Find all: carriage returns and replace with a comma -
though I don't know the code to use for the carriage returns ...

This might work for you

=SUBSTITUTE(A1,CHAR(10),",")

 

[david]

thanks sue the ctrl J worked for me. the Alt 013 didnt - saved me a couple of
couple of delete down arrow, delete down arrow, delete down arrow.