Sorting Pivot Table

[howard]

I have a Piviot table with names and have inserted calculated items. I now wish to sort the pivot table by name and Ascending order folows by Comm in asceding order

See Sample date below. It would be appreciated is someone would assist me

Chapter 10 Pivot Tables.Insert Calculated Item.xls
	A	B	C	D
3	SumofNetProfit	Month
4	SalesManager	Aug
5	Adam	70,135
6	Andrew	175,235
7	Bruce	125,635
8	CommAdam	3,507
9	CommAndrew	8,762
10	CommBruce	4,397
11	CommDavid	4,369
12	CommDean	3,594
13	CommHans	4,261
14	CommKevin	7,453
15	CommRyan	4,893
16	David	67,214
17	Dean	95,835
18	Hans	85,215
19	Kevin	175,365
20	Ryan	88,965
21	Samantha	215,985
Insert Calculated Field

 

[Myproblem]

try something like this


With pt.PivotFields("Sales Managet")
.AutoSort Order:=xlAscending, Field:="Sum of Net Profit"
End With

 

[howard]

Thanks for the help.

When running the macro, run time error 424 occurs, "object required" and the following code is highlighted

With pt.PivotFields("Sales Manager")

It would be appreciated if you could test and amend code

 

[Myproblem]

i wrote "Sales Managet"; it should be "Sales Manager"
try now

 

[howard]

I had corrected your error when I replied in the previous post.

The run time error ocurred with the correction

It would be appreciated if you could test your macro

 

[Myproblem]

it is all about object
i did not know what is it your object name, it should be name of your pivotitems name

With pt.PivotFields("Sales Manager").PivotItems("Name of your PitotItem") .AutoSort Order:=xlAscending, Field:="Sum of Net Profit"
End With

try now this

 

[howard]

Thanks for the help, much appreciated