Copying several cells in one

huorsa · Feb 17th, 2002, 09:20 PM

I want to know how can I put several cells into one cell. Let's say that in A1 I have "Name", A2 "Address", A3 "Phone"; I want to have in cell A4 "Name"|"Address"|"Phone"| (I want to have the three cells together separated by the pipe symbol (|).

Hugo

Barrie Davidson · Feb 17th, 2002, 09:27 PM

Quote:

On 2002-02-17 20:20, huorsa wrote:
I want to know how can I put several cells into one cell. Let's say that in A1 I have "Name", A2 "Address", A3 "Phone"; I want to have in cell A4 "Name"|"Address"|"Phone"| (I want to have the three cells together separated by the pipe symbol (|).

Hugo

Hugo, you can do this via formula. This will do it:
=A1&"|"&A2&"|"&A3

Are you looking to do it in VBA?

_________________

Barrie Davidson
My Excel Web Page

[ This Message was edited by: Barrie Davidson on 2002-02-17 20:28 ]

Ivan F Moala · Feb 17th, 2002, 09:38 PM

Quote:

On 2002-02-17 20:20, huorsa wrote:
I want to know how can I put several cells into one cell. Let's say that in A1 I have "Name", A2 "Address", A3 "Phone"; I want to have in cell A4 "Name"|"Address"|"Phone"| (I want to have the three cells together separated by the pipe symbol (|).

Hugo

VBA;
[A4] = [A1] & "|" & [A2] & "|" & [A3]

Ivan

huorsa · Feb 17th, 2002, 09:40 PM

Yes I would like to do it in VBA, as a matter of fact, after I do this I want to save the file as .txt, do you know what format should I use to save it as .txt .

Feb 18th, 2002, 10:47 AM

Quote:

On 2002-02-17 20:40, huorsa wrote:
Yes I would like to do it in VBA, as a matter of fact, after I do this I want to save the file as .txt, do you know what format should I use to save it as .txt .

plese help i have a macro that is stuck in a loop an u help if u can email me on JLouY2K1@aol.com

NateO · Feb 18th, 2002, 12:48 PM

The code below will save the active sheet as a text file, named after the sheet name in your current path. It will overwrite existing files with the same name.

Sub Sv_Text()

Application.DisplayAlerts = False
fname = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=fname & ".txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

Cheers,

Nate

[ This Message was edited by: NateO on 2002-02-18 11:50 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 17th, 2002, 09:20 PM	#1
huorsa Board Regular Join Date: Feb 2002 Posts: 97	I want to know how can I put several cells into one cell. Let's say that in A1 I have "Name", A2 "Address", A3 "Phone"; I want to have in cell A4 "Name"\|"Address"\|"Phone"\| (I want to have the three cells together separated by the pipe symbol (\|). Hugo

Feb 17th, 2002, 09:40 PM	#4
huorsa Board Regular Join Date: Feb 2002 Posts: 97	Yes I would like to do it in VBA, as a matter of fact, after I do this I want to save the file as .txt, do you know what format should I use to save it as .txt .

Feb 18th, 2002, 12:48 PM	#6
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	The code below will save the active sheet as a text file, named after the sheet name in your current path. It will overwrite existing files with the same name. Sub Sv_Text() Application.DisplayAlerts = False fname = ActiveSheet.Name ActiveWorkbook.SaveAs Filename:=fname & ".txt", FileFormat:= _ xlUnicodeText, CreateBackup:=False Application.DisplayAlerts = True End Sub Cheers, Nate [ This Message was edited by: NateO on 2002-02-18 11:50 ]