VBA - Concatenate - Dynamic Range - Row by Row

[MKader]

Hi All -

Need your help -

Was able to concatenate selected cells and value is placed in a designated cell -

How can I repeat the same process for all rows till the end of data in column -

Private Sub Trial_1_Click()
Dim CC As Range
Dim i As Integer
Dim TT As String
i = 0
TT = ""
For Each CC In Selection
If i = 0 Then
i = 1
End If
TT = TT & CC.Value & ""
Next
TT = Left(TT, Len(TT))
Range("P2").Value = TT
End Sub

Thanks,
MK

 

[MKader]

The last one you provided - Thanks ..

Am trying to find a way to replicate the original selection and applying to the next row and so on till empty cell -

Do you think loop would work ?

Thanks,
MK

 

[Peter_SSs]

My code has a loop.
With data shown in columns J:M below, with K2:L2 selected, the code produced the results in P2:P5. Is that not what you described you wanted in post #7?

Excel Workbook
	J	K	L	M	N	O	P
1	Data 1	Data 2	Data 3	Data 4			Result
2	1	2	3	4			23
3	5	6	7	8			67
4	9	10	11	12			1011
5	13	14	15	16			1415
6
Concat

 

[MKader]

Hi -

Yea - that's what I was looking for - yet it only works if you highlight every row and then click the button -

It doesn't go through the list by itself -

Thanks,
MK

 

[MKader]

Hi Peter -

I tried it several times - it doesn't loop and basically it does the same function in my initial code -

Any advice ?

Thanks,
MK

 

[Peter_SSs]

Do you have any other code in the workbook?

What version of Excel & what operating system are you using?

Start a fresh, blank workbook with a single worksheet,
- put the sample data exactly as shown in post #12 (columns J:M only),
- put the last code I gave you into that new workbook,
- close any other open workbooks,
- select K2:L2,
- run the code & report the results.

 

[MKader]

Hi Peter -

Your help is much appreciated -

I followed the exact steps - the result is that the highlighted cells are only concatenated and I have to highlight row by row to have the results -

Am using a WIN 7 Prof and Office 2013 -

Also - No other codes on the workbook -

Thanks,
MK

 

[Peter_SSs]

I cannot think why your experience is so different to mine. In this case I would like to see a copy of an actual workbook of yours that is behaving in the way you describe. There is two ways to do that...
1. Upload a copy of such a workbook to a public file-share site and provide the link in a post in this thread, or
2. I will send you a PM with an email address you can provide the file to. If this course is chosen, I will publish any finding results back here in the public thread.

In either case, please describe what your cell selection in the sample workbook was was before running the code so that I can exactly replicate you actions.