Macro Calls

  • Thread starter Thread starter lchhat
  • Start date Start date
L

lchhat

Hello,
I am looking for some help in merging 4 columns together without losin
information in any colum:
i.e.
If I have C A R S in 4 different columns, I want the fifth colum
to say CARS.

I did some research online and came across this tip:
____________________________________
Sub Connects()
Dim intRow As Integer
Dim txt As String
intRow = 1
Do Until IsEmpty(Cells(intRow, 1))
Cells(intRow, 1) = Cells(intRow, 1) & " - " & Cells(intRow, 2)
Cells(intRow, 2).ClearContents
Range(Cells(intRow, 1), Cells(intRow, 2)).Merge
intRow = intRow + 1
Loop
Columns(1).AutoFit
End Sub

_____________________________________

I inserted this into a Macro, but I have no idea on how to call thi
procedure. Can anyone please help??? Thanks
 
Ichhat,

The macro seems to be an overkill for the task.
The following would do the job:

Say:
C is in Column A Row 1
A is in Column B Row 1
R is in Column C Row 1
S is in column D Row 1

In column E type this formula =A1&B1&C1&D

The ampersand & joins text together.

Jamal

the amph
 
hi
that's right that the macro is just a litle bigger for it. But if you want to use it, paste it under your own macro as a new one and in your macro just write connects ( because it is the name of the macro in your exemple) in a line to launch the macro you have found. When the connects macro will be done, the program will just restart on your own macro at the next line.
 
Jamal,

Sorry, I gave a bad example:

What I have is:

Have a good day (Each word in a seperate cell)

What I would like to do is:

Have""a "" good""day in one cell. THE "" represent spaces. An
idea how to get this
 
Never Mind Jama, I figured it out...thank you!

for those of you who didn't know, you can do:

=(A1 &" " & B1
 
same 2 possibility

If you want to use the macro change " - " by " " in the line Cells(intRow, 1) = Cells(intRow, 1) & " - " & Cells(intRow, 2
if not, use the excel function

=concatenate(A1," ",B1," ",C1," ",D1) in E1 for exempl
 
Back
Top