Try this code it will help as per your requirement , if you are using your
own code use this line pf.CurrentPage = "W001"
Sub Create_pivot()
Dim pt As PivotTable
Dim pf As PivotField
Dim rng As Range
Set rng = ActiveSheet.UsedRange
ActiveSheet.Range("A1").Select
Set pt = ActiveSheet.PivotTableWizard
Set pf = pt.PivotFields("Month")
pf.Orientation = xlRowField
Set pf = pt.PivotFields("Year")
pf.Orientation = xlRowField
Set pf = pt.PivotFields("Customer")
pf.Orientation = xlPageField
pf.CurrentPage = "W001"
Set pf = pt.PivotFields("Sales")
pf.Orientation = xlDataField
pf.Function = xlSum
End Sub
Regards,
MandeepBaluja
Learningzmypassion.
https://www.facebook.com/VBAEXCELSQL?ref=hl
https://www.linkedin.com/profile/view?id=312532939
On Friday, 13 March 2015 13:34:46 UTC+5:30, Faisal PK wrote:
>
> I have the below code to select an item from the Pivotfield "Customer".
>
> Request if anybody can help with a code which don't loop through each item
> because it leads slow performance as actual data has more items than in
> sample sheet provided.
>
> Sub Test()
> Dim Pt As PivotTable
> Dim Pf As PivotField
> Dim Pi As PivotItem
> Dim PtSheet As Worksheet
> Set PtSheet = Sheet2
> Set Pt = PtSheet.PivotTables(1)
> For Each Pi In Pt.PivotFields("Customer").PivotItems
> Pi.Visible = True
> If Pi.Value = "W001" Then
> Pi.Visible = True
> Else
> Pi.Visible = False
> End If
> Next Pi
> End Sub
>
> Thanks for your helps.
>
> Regards,
> Faisal PK
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
