Transposition of data
 

Hi,
I have some data in the column A of a sheet and in another sheet of the same file, I need to use the same data but horizontaly this time : I need that A2 in first sheet come in B1, A3 in C1, A4 in D1...
And I don't want just the data, I need to this to update itself his the first data change. I have try to do in column a of the ne sheet A1 =A1, A2=A2... and the n copy it to do a pastespecial formula-transpose, but it doesn't work...
Thanks for any hel
Happy Christma
Benjamin

Transposition of data
 

Sub TransposeLink()
Dim rng As Range
Dim rw As Long
Set rng = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp)

For rw = 1 To rng.Row - 1
With Worksheets("Sheet2")
.Cells(1, rw).Formula = "=Sheet1!A" & rw + 1
End With
Next
End Sub


--
Regards,
Tom Ogilvy

"Ben.c" wrote in message
...
Hi,
I have some data in the column A of a sheet and in another sheet of the
same file, I need to use the same data but horizontaly this time : I need
that A2 in first sheet come in B1, A3 in C1, A4 in D1....
And I don't want just the data, I need to this to update itself his the
first data change. I have try to do in column a of the ne sheet A1 =A1,
A2=A2... and the n copy it to do a pastespecial formula-transpose, but it
doesn't work....
Thanks for any help
Happy Christmas
Benjamin

Transposition of data
 

Thanks a lot Tom !
I am stupid, I didn't think to use a & in the formula....
I think I need to go on holidays..
Merry christmas to you To
Benjamin