Macro - transpose - audit 1

[coltaalex]

Hello experts in VBA excel.

I have a excel sheet, with which my coworker collects data from the different audits, he is collecting it on diagonal form (upper left to bottom right), because the columns and rows content is changing all the time ( data collection)

So i would like to create a macro which is transposing the row information into column, and from diagonal to make a column.
how can i attach an excel sheet here, to show you what i mean ?

 

[Gruuuu]

Does a copy->Paste Special/Transpose not do what you need?

 

[coltaalex]

No, because i have to create a column from the diagonal rows

 

[Bong]

To make a column out of the diagonals, and assuming that "usedrange" will work for you (sometimes it is undone by ill-formed data):

set r = sheets(1).usedrange 'assuming sheet1
numcols=r.columns.count
for i = 1 to numcols step 1
    sheets(1).cells(i,numcols+1)=sheets(1).cells(i,i)
next

_________________
Bob Rashkin

 

[coltaalex]

Thank you very much Bong