copy data and formulas from a column and paste into a row
Copy/paste the code below into a module. Click on the cell with the first
value in it and run the code:
Sub ToRow()
With ActiveCell
.Resize(1, 9).Copy
.Offset(1, 0).PasteSpecial Transpose:=True
End With
End Sub
Notice, this assumes that you have 9 columns of data; change the 9 to
whatever number of columns you actually have.
Regards,
Ryan---
--
RyGuy
"john.laffe" wrote:
i have data in one worksheet at the end of a columns that is just totaling
numbers but i need to create a link between this sheet and another that
inputs the results into a row i have tried use the transpose button but it
does not paste the link and formula.
|