VBA Copy Past Data

[unknownymous]

Hi Gurus,

Could possibly help me formulate the codes so I can get the results like the Clean Sheet?

I just need to get the data per account per month in descending order and will exclude those accounts with zero shares.

Raw sheet

Account	Name	Note	Mar-19	Feb-19	Jan-19
001			100	80	50
002			50	50	20
003			10	10	0
Total			160	140	70

<tbody>
</tbody>

Clean Sheet

Account	Name	Qty
03/30/2019	001	100
03/30/2019	002	50
03/30/2019	003	10
02/28/2019	001	80
02/28/2019	002	50
02/28/2019	003	10
01/31/2019	001	50
01/31/2019	002	20

<tbody>
</tbody>

Any help will be much appreciated.

 

[alansidman]

Quickly accomplished using Power Query. Mcode below. Unpivot your data.

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Account", Int64.Type}, {"Name", type any}, {"Note", type any}, {"19-Mar", Int64.Type}, {"19-Feb", Int64.Type}, {"19-Jan", Int64.Type}}),
    #"Removed Columns" = Table.RemoveColumns(#"Changed Type",{"Name", "Note"}),
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Removed Columns", {}, "Attribute", "Value"),
    #"Added Custom" = Table.AddColumn(#"Unpivoted Columns", "Custom", each if([Attribute]="Account") then [Value] else null),
    #"Filled Down" = Table.FillDown(#"Added Custom",{"Custom"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Attribute] <> "Account")),
    #"Reordered Columns" = Table.ReorderColumns(#"Filtered Rows",{"Attribute", "Custom", "Value"})
in
    #"Reordered Columns"