Vba copy range & paste to a cell advice please

[ipbr21054]

Morning,

Trying to copy & paste from a range to a cell but come across an issue.

I am using the following code but when the value is pasted its shown in T1 T2 T3 T4 T5
My goal is to paste the values copied into the one cell at T1 as opposed to the five cells
Please advise how i can do this

Thanks

Range("A1:A5") .Copy Range ("T1")

 

[Legacy 143009]

Option Explicit

Sub Sample()
    Dim myArr As Variant
    myArr = Range("A1:A5").Value2
    Range("T1").Value = Join(Application.Transpose(myArr), vbLf)
End Su

 

[ipbr21054]

With that i get an error of Invalid Procedure.
This line of code is shown in yellow.

Range("T1").Value = Join(Application.Transpose(myArr), vbLf)

 

[Legacy 143009]

Change this line End Su to this End Sub

 

[ipbr21054]

I didnt use that as i took the code and put it with my existing code

 

[mohadin]

Hi
could be2007
so try

Sub Test()
    Dim a As Variant
    Dim x
    Dim i&
    a = Range("A1:A5")
    For i = 1 To UBound(a)
    x = IIf(x = "", a(i, 1), x & vbLf & a(i, 1))
    Range("T1") = x
   Next
End Sub

 

[ipbr21054]

Sorry for delay but the same.

Is there a code for cotenate that we need to use ?

 

[ipbr21054]

This did the trick

Range("T1").Value = Range("A1").Value & Range("A2").Value & Range("A3").Value & Range("A4").Value & Range("A5").Value

Thanks for your time