Code Required for Entire column text to one cell

Hi Friends,

i want one macro for Entire specific column text to one cell.

Thank you.

Originally Posted by structo

Hi Friends,

i want one macro for Entire specific column text to one cell.

Thank you.

Try:

PHP Code: 

Public Function X(ByVal Rng As Range, Optional ByVal k As String = " ") As String
    Dim c As Range, St As String
    For Each c In Rng
        St = St & k & c.Value
    Next c
    X = Right(St, Len(St) - 1)
End Function 


HTML Code: 

Originally Posted by structo

Thank you mate,

any direct single code?

Thanks.

Step by step:

1. Copy the VBA code
2. Select the Worbook in which you want to store the Excel VBA code
3. Press Alt +F11
4. Choose Insert ---> Module
5.Paste the Macro into the Module
6. Close the VBA

dear mate,

i know above procedure, can you provide any alternative code for shorten the procedure? without formula pasting procedure.

Thank you.

Originally Posted by structo

dear mate,

i know above procedure, can you provide any alternative code for shorten the procedure? without formula pasting procedure.

Thank you.

I do not understand.

i need also.

Code should be Run by "Run macro" option.

maybe what op needs is code that have option for him to choose cell or range and etc
maybe

Originally Posted by structo

Code should be Run by "Run macro" option.

Add Code:

PHP Code: 

Sub Maybe1()
    [H5] = "=X(RC[-3]:R[6]C[-3])"
End Sub 


Run Code Sub Maybe1.

Maybe:

Please Login or Register  to view this content.

It does essentially the same thing as the proposed Function.