Greetings,
1- Open enclosed file.
2- Run that macro named "MakePivotTable".
3- Then see that everything is okey.
The question is how I can sort T column?
By the way following code doesnt work;
Sub Sort()
Sheets("Sheet2").PivotTables("PT500").PivotFields("Adi").AutoSort xlDescending, "Total 1seans", Sheets("Sheet2").PivotTables("PT500").PivotColumnAxis.PivotLines(10), 1
End Sub
Following picture shows right now situation.
http://i.cubeupload.com/ia9S7D.jpg
Following picture shows what I want situation.
http://i.cubeupload.com/GoL6y5.jpg
Thanks in advance.
Bookmarks