VBA concatenate selected cells

[Garysmith]

Hello
I am not having much luck finding some code to concatenate selected cells in a worksheet. Ideally, the contents of each cell will need separating with a space. The result would then need wrapping and placing in the first cell of the range selected.
Many thanks in advance.

[Miroslav R.]

Hi there,
give more details:
f.e. You want to select columns A,B,C and return concantenated result to col A?
Or You want to only select column A, where the result has to be returned?-Which columns has to be concantenated?

[Garysmith]

Hello
Just the cells that are selected. This may be A3 to A7 (for which the result would be in A3) or G9 to G11 for which the result would be in G11.

[Garysmith]

Apologies, Result in G9, not G11

[Miroslav R.]

Hi there,

look at this code:

Please Login or Register  to view this content.

MinRow & MinCol are the only for the reason, You will select Your range from the bottom. This will put the result in the top cell.
If You are going to select ONLY from the top, You can use this shotened version:

Please Login or Register  to view this content.

I recomend You to put any of these two SUBs on shortcut key.

Hope it helps

[Garysmith]

Hello
That really helps. Is it possible to clear the cells after the code has been run other the the top one where all the contents is now shown?

[Miroslav R.]

Hi there,
Yes it is:

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

[Garysmith]

What can I say. It works perfectly. Thanks for your time.

[Miroslav R.]

You are welcome!

If You like my solution, add reputation if You want (bottom left corner of my posts).

An mark this thread as SOLVED... ;-)

Have a nice day!