Plot data from rows into columns

[MacPro]

Hi All,

I have fields in rows for each record. Need to plot the same in columns. Data is in sequence i.e. each record starts with field name "ACCOUNT". Actual data is more than 10K and i need solution in VBA or other way by which data could be plotted in required pattern till end of data is reached.


ACCOUNT
1001
CITY
Sydney
DOB
19901104
ACCOUNT
1002
CITY
London
DOB
19850912
ACCOUNT
1003
CITY
Houston
DOB
19931022

Thanks

 

[ajetrumpet]

how about putting this behind the sheet with the data on it and running it?

Function run_current_test()

Dim r As Range
Dim nextValueRef As String
Dim CRow As Long
Dim CCol As String
Dim DRow As Long
Dim DCol As String
Dim ERow As Long
Dim ECol As String
Dim Dl As String

CRow = 2
CCol = "C"
DRow = 2
DCol = "D"
ERow = 2
ECol = "E"

    With ActiveSheet
        For Each r In .Range("a1", Range("a1").End(xlDown))
            Select Case r
                Case "ACCOUNT"
                    Range(CCol & CStr(CRow)) = r
                    CRow = CRow + 1
                    nextValueRef = "ACCOUNT"
                Case "CITY"
                    Range(DCol & CStr(DRow)) = r
                    DRow = DRow + 1
                    nextValueRef = "CITY"
                Case "DOB"
                    Range(ECol & CStr(ERow)) = r
                    ERow = ERow + 1
                    nextValueRef = "DOB"
                Case Else
                    Select Case nextValueRef
                        Case "ACCOUNT"
                            Range(CCol & CStr(CRow)) = r
                            CRow = CRow + 1
                        Case "CITY"
                            Range(DCol & CStr(DRow)) = r
                            DRow = DRow + 1
                        Case "DOB"
                            Range(ECol & CStr(ERow)) = r
                            ERow = ERow + 1
                    End Select
                End Select
        Next r
    End With
                
End Function

 

[MacPro]

Thanks ajetrumpet, your code done the exact work.

 

[ajetrumpet]

Thanks ajetrumpet, your code done the exact work.

hey that's awesome! good luck to you bro. =)