Thanks, The problem with this is i have to select every cell one at a time.
I have 40 plus rows that i need joined. This macro forces me to do this 40
plus times. Any ideas on fixing this?
"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Daniel.
Without transposing.......
Sub ConCat_Cells()
Dim x As Range
Dim y As Range
Dim z As Range
Dim w As String
Dim sbuf As String
On Error GoTo endit
w = InputBox("Enter the Type of De-limiter Desired")
Set z = Application.InputBox("Select Destination Cell", _
"Destination Cell", , , , , , 8)
Application.SendKeys "+{F8}"
Set x = Application.InputBox _
("Select Cells...Contiguous or Non-Contiguous", _
"Cells Selection", , , , , , 8)
For Each y In x
If Len(y.text) 0 Then sbuf = sbuf & y.text & w
Next
z = Left(sbuf, Len(sbuf) - 1)
Exit Sub
endit:
MsgBox "Nothing Selected. Please try again."
End Sub
Will ignore blanks in the selected range.
Gord Dibben Excel MVP
On Fri, 18 Feb 2005 02:02:15 GMT, "Daniel M"
wrote:
I have data in 2 columns that i need to merge.
IE:
A B
234 245
needs to be:
234245
Now i know i can concantenate the data but then i'm stuck.
The data can be of any number of rows, so i need to select only the cells
with data in them. I then have to take the data and transpose it.
IE:
A
234
456
689
needs to be:
A B C
234 456 689.
This way i can save it as comma delimited and import it into another
source.
Basically i need my ending data to be 123,345,677,8984.
Any ideas on how to get this all done? I would like to make it a macro so
i
dont have to manually do it each time. thanks.
|