Copy then Paste with a transpose
 

In a macro, I am trying to transfer the values from a vertical named range to
a horizontal named range as described in the following example,

Test_Horizontal represents B2,B3,B4
Test_Vertical represents A1,A2,A3

Range("Test_Horizontal").Value = Range("Test_Vertical").Value

This however is not working. If both named ranges were vertical, the above
code will work.

Does anyone know how to do this without a copy and paste special
transpose?...or is this the most efficient way to do it.

Thank you

Copy then Paste with a transpose
 

Range("Test_Horizontal").Value _
= Application.Transpose(Range("Test_Vertical").Value )

SteveM wrote:

In a macro, I am trying to transfer the values from a vertical named range to
a horizontal named range as described in the following example,

Test_Horizontal represents B2,B3,B4
Test_Vertical represents A1,A2,A3

Range("Test_Horizontal").Value = Range("Test_Vertical").Value

This however is not working. If both named ranges were vertical, the above
code will work.

Does anyone know how to do this without a copy and paste special
transpose?...or is this the most efficient way to do it.

Thank you

--

Dave Peterson

Copy then Paste with a transpose
 

Works perfectly. Thank You

"Dave Peterson" wrote:

Range("Test_Horizontal").Value _
= Application.Transpose(Range("Test_Vertical").Value )

SteveM wrote:

In a macro, I am trying to transfer the values from a vertical named range to
a horizontal named range as described in the following example,

Test_Horizontal represents B2,B3,B4
Test_Vertical represents A1,A2,A3

Range("Test_Horizontal").Value = Range("Test_Vertical").Value

This however is not working. If both named ranges were vertical, the above
code will work.

Does anyone know how to do this without a copy and paste special
transpose?...or is this the most efficient way to do it.

Thank you

--

Dave Peterson