Pivot table help

[t1o9n9y1]

I have created a pivot table and filtered it to show only the top 5 results. However, I have multiple threads of data that contain the same value and as such, the top 5 pivot table shows more than 5 results. Is there anyway to lock this to 5 only?

 

[Worf]

Would you accept a VBA solution?

 

[Worf]

Tag: pivot table top 10

The method below will give you only the top five rows.

Sub SumTop5()
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables("pivot3")
pt.PivotFields("company").PivotFilters.Add2 Type:=xlTopSum, _
DataField:=pt.PivotFields("SalesSum"), _
Value1:=WorksheetFunction.Sum(pt.DataBodyRange.Rows("1:5"))
End Sub