change data's view

[azedac]

Hello,

I would like to know, how can I transferre data in a sheet from array to seq.
For example:

from:
A B C
M1 5 4 3
M2 3 2 1
M3 4 3 5

to:

A M1 5
A M2 3
A M3 4
B M1 4
B M2 2
B M3 3
C M1 3
C M2 1
C M3 5

Is exists some routine for this or....?

Thanks a lot.
Azedac

 

[sunnyland]

Hie,

In my sample it will copy to column M and N on the same sheet where the code reside from row 1
[double check you don't have anything there before to try the code]

First select the source don't select the heading and give it a name using named range: tocopy [this is the named range use in the code so if you call the range something else change the name in the code]. You need to have the named range before to run the code.

Select the necessary data to copy, don't select the full columns as it will take forever. Then d in the menu do,
insert ...
Name....

If you have the data selected before you should have the address of the range in refers to.

Just change the name to tocopy

In my sample it will copy data in 2 columns M and N if you don't want to use these column change to the code.

To see if it works fine maybe
1) create an empty worksheet.

2)create the named range tocopy

3)Place this code on the empty worksheet

4)Then run the code It will copy to M and N.

If it corresponds to what you wanted then change the column letter to where you want it copied.

Don't place this code on a sheet where you have data in column M and N

Sorry I forgot to paste the code:

Sub copydown()
Dim rangi As Range, rang As Range
Set rangi = Application.Names("tocopy").RefersToRange
Dim start As Long
start = 1
For x = 1 To rangi.Columns.Count - 1
For Each rang In rangi.Columns(1).Cells
Cells(start, "M") = rang
Cells(start, "N") = rang.Offset(0, x)
start = start + 1
Next
Next
Set rangi = Nothing
Set ran = Nothing
End Sub