Copying several cells in one

[huorsa]

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]

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]

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]

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 .

 

[Guest]

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]

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