Data Manipulation (Need Logic- VBA)

[vijay.vizzu]

Dear all,


I have an requirement that, i just want to transpose data in my required format through VBA, i have tried, but can't able to figure out. So need your guidance to do that


Please help me learn more


Vijay


sample file: http://db.tt/ytfojdjg

 

[bobhc]

Good day vijay


is this Chadoo link any use


http://chandoo.org/wp/2013/02/01/transpose-table-excel-formula/


or this web page


http://sameerlalcanada.blogspot.co.uk/2005/03/ms-excel-and-vba-transposing-data.html


or this VBA to transpose data with links to the original data.


--------------------------------------------------------------------------------

[pre]

Sub TransposeRangeLink()

Dim myRange As Range, myCell As Range
Dim i As Integer, j As Integer

Set myRange = ActiveSheet.Range("myRange")
Set myCell = ActiveCell

For i = 1 To myRange.Rows.Count
For j = 1 To myRange.Columns.Count
myCell.Offset(j - 1, i - 1).Formula = "=" & myRange(i, j).Address(False, False)
Next j
Next i

Set myRange = Nothing
Set myCell = Nothing

End Sub

[/pre]

 

[vijay.vizzu]

Thank you so much bobhc, but above code not matching my requirement. Can you please suggest more

 

[shrivallabha]

Vijay,


Can you show one example please? I tried to look at it but couldn't understand. Code in the workbook has got nothing to do with Transpose.

 

[Hui]

Vijay


It's particularly hard seeing as the RFQ Column, Column G, has no data

It Looks like a possible Pivot table or Manual Sumproduct Table

Do you have a list of unique Part No's ? or does that have to be extracted as well?