Transfer data with Horizontal headings to sheet with vertical headings

Hello Gurus

I have data with headings which are 1, 2, 3, thus headings are numbers. The data under headings is in strings.

In sheet1 I have database as follows

Row1=====1======2=====3
Row2====data====data===data
Row3====data====data===data
Row4====data====data===data
and so on

I have records in sheet2 that I want to transfer to sheet1. In sheet2, the headings are in ColumnA and data is all in columnB as shown below.
Column1 ==== Column2
==0========data===
==0========data===
==1========data===
==0========data===
==2========data===
==3========data===
==0========data===
==0========data===
==1========data===
==0========data===
==2========data===
==3========data===
==1========data===
==2========data===
==0========data===
==3========data===
and so on

Note that there are some 0 headings that are not needed to be imported.

Is it possible for a macro to check columnA and (skipping any 0s) transfer all other data to related fields in Sheet1 at the bottom?

Make Sheet1 the active sheet and try this macro:

Please Login or Register  to view this content.

I'm glad it worked out. Just a comment for your consideration ..... The macro I suggested uses filtering so it is fairly fast. If you have a very large data set, your looping macro may be slower. This may not be a factor for you but I thought I would mention it.

Perhaps the easiest and quickest way is to do a search online. Just type in something like "filter data excel vba" (without the quotes) as your search criteria. There is plenty of help online. For more information in general about VBA, a good place to start is the very first thread in this Forum (highlighted in blue).

My pleasure.