converting columwise data to rowwise

[semih]

Dear all,

I need a macro for converting a data given to me in columnwise excel data to a rowwise one.
let me clarify in another way.
lets take a sample data set
PersonelID 01/07/2012 02/07/2012 03/07/2012 ........
0001 A Class A Class B Class
0003 C Class B Class B Class
0004 C Class C Class A Class

I need this data in the following format
Personal ID Class Date
0001 A Class 01/07/2012
0001 A Class 02/07/2012
0001 B Class 03/07/2012
0003 C Class 01/07/2012
0003 B Class 02/07/2012
0003 B Class 03/07/2012
0004 C Class 01/07/2012
0004 C Class 02/07/2012
0004 A Class 03/07/2012

I would highly appreciate your help


Many thanks in advance...

[arlu1201]

Try this code

Option Explicit

Sub transpose()
Dim ws As Worksheet
Dim i As Long, lrow As Long, lcol As Long, j As Long, lastrow As Long

Application.ScreenUpdating = False

Set ws = Worksheets("Sheet2")
ws.Range("A1:C1").Value = Split("Personal ID, Class, Date", ",")

With Worksheets("Sheet1")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        lcol = .Range("IV" & i).End(xlToLeft).Column
        For j = 2 To lcol
            lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
            ws.Range("A" & lastrow + 1).Value = .Cells(i, 1).Value
            ws.Range("B" & lastrow + 1).Value = .Cells(i, j).Value
            ws.Range("C" & lastrow + 1).Value = .Cells(1, j).Value
        Next j
    Next i
End With

MsgBox "Done"

Application.ScreenUpdating = True

End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose Tools | Macro | Macros
Select a macro in the list, and click the Run button

[semih]

arlu,

thanks a lot, I used the code and it worked. I'll be sending soon another questions to you
have a nice day.

[arlu1201]

Am glad it worked

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.