Copy-of-issuePlease.xlsm

<div>
That’s a brilliant life saver, thanks Rory, you rock as always
</div>


That’s a brilliant life saver, thanks Rory, you rock as always

<div>
<div class="content wysiwyg-content">
Hello<br />
<br />
I just recorded a macro - but don’t find it dynamic. <br />
There is a pivot table that has a pivot filter. Now if you press the button, it reset to certain pivot filter values. If you see the macro-<br />
<br />
&nbsp;it basically turns on all the field values &gt;&gt;<br />
ActiveSheet.PivotTables(&quot;P<wbr />ivotTable1<wbr />&quot;).PivotFi<wbr />elds(&quot;Regi<wbr />on&quot;).Curre<wbr />ntPage = _<br />
&nbsp; &nbsp; &nbsp; &nbsp; &quot;(All)&quot;<br />
<br />
&nbsp;and then switches off all the remaining values. &nbsp;&gt;&gt;<br />
&nbsp; &nbsp; With ActiveSheet.PivotTables(&quot;P<wbr />ivotTable1<wbr />&quot;).PivotFi<wbr />elds(&quot;Regi<wbr />on&quot;)<br />
&nbsp; &nbsp; &nbsp; &nbsp; .PivotItems(&quot;West&quot;).Visibl<wbr />e = False<br />
&nbsp; &nbsp; &nbsp; &nbsp; .PivotItems(&quot;(blank)&quot;).Vis<wbr />ible = False<br />
&nbsp; &nbsp; End With<br />
<br />
<br />
<br />
This code is not at all dynamic and everytime the data changes, I have to &nbsp;adjust it? This is not dynamic. How do I accomplish the same goal by just telling the vba code to selectively filter for a set of values (Central and East) - ?<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/02_w08/835593/issuePlease.xlsm" target="_blank" class="file-inline" title="sample (26 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>issuePlease.xlsm</a>
</div>
</div>


issuePlease.xlsm

Hello

I just recorded a macro - but don’t find it dynamic. 
There is a pivot table that has a pivot filter. Now if you press the button, it reset to certain pivot filter values. If you see the macro-

 it basically turns on all the field values >>
ActiveSheet.PivotTables("PivotTable1").PivotFields("Region").CurrentPage = _
        "(All)"

 and then switches off all the remaining values.  >>
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Region")
        .PivotItems("West").Visible = False
        .PivotItems("(blank)").Visible = False
    End With



This code is not at all dynamic and everytime the data changes, I have to  adjust it? This is not dynamic. How do I accomplish the same goal by just telling the vba code to selectively filter for a set of values (Central and East) - ?

pivot filter - not dynamic!

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.