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 -
Thanks,
MK
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 -
Code:
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