EXPORT THEN REFRESH AUTOMATICALLY THE PIVOT TABLE

[jffryjsphbyn]

Hello there!

Can you help me in exporting a file when exported, the pinot table in the summary sheet will automatically refresh to have the details.

Here's the partial code.



Sub Export()

Dim Keyword As String

Keyword = UCase$(Worksheets("INSTRUCTIONS").Range("O24").Value)

Application.DisplayAlerts = False

Select Case Keyword
Case "RNAM"
Sheets(Array("CLASSIFIED-RNAM", "SUMMARY-RNAM")).Copy
With ActiveWorkbook
.Title = "Classified"
.Close True
End With

Case "RECA-RWCE"
Sheets(Array("CLASSIFIED-RECA-RWCE", "SUMMARY-RECA-RWCE")).Copy
With ActiveWorkbook
.Title = "Classified"
.Close True
End With

Case "RRR"
Sheets(Array("CLASSIFIED-RRR", "SUMMARY-RRR")).Copy
With ActiveWorkbook
.Title = "Classified"
.Close True
End With

Case "RASO-RNEA"
Sheets(Array("CLASSIFIED-RASO-RNEA", "SUMMARY-RASO-RNEA")).Copy
With ActiveWorkbook
.Title = "Classified"
.Close True
End With

Case "SWEDEN"
Sheets(Array("CLASSIFIED-SWEDEN", "SUMMARY-SWEDEN")).Copy
With ActiveWorkbook
.Title = "Classified"
.Close True
End With

Case "RLAM"
Sheets(Array("CLASSIFIED-RLAM", "SUMMARY-RLAM")).Copy
With ActiveWorkbook
.Title = "Classified"
.Close True
End With

End Select
Application.DisplayAlerts = True

End Sub


The only thing missing in the code is the refreshing of pivot tables during exports.

Thanks!

[Excel Fox]

You can use this code to refresh all pivot tables in a workbook. Surely, you can make the modification as per your need.


ActiveWorkbook.RefreshAll
OR

Workbooks(1).RefreshAll
OR

Workbooks("Name Of Workbook.xls").RefreshAll