Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) On Error Resume Next Application.EnableEvents = False Me.PivotTables("pvtTwo").PivotFields ("State").CurrentPage = Range("AI7").Value Application.EnableEvents = True End Sub
|need summation of cells of the same row having same column difference between the two cells||6||38|
|Avoid Multiple Instances of Named Ranges in Excel||3||22|
|Export Data to Different .csv Files||26||60|
|Get the last column in excel range||6||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
27 Experts available now in Live!