Microsoft Office Tutorials and References
In Depth Information
Creating Multiple Pivot Tables
Dim Row As Long, Col As Long, i As Long
Application.ScreenUpdating = False
‘ Delete Summary sheet if it exists
On Error Resume Next
Application.DisplayAlerts = False
Sheets(“Summary”).Delete
On Error GoTo 0
‘ Add Summary sheet
Set SummarySheet = Worksheets.Add
ActiveSheet.Name = “Summary”
‘ Create Pivot Cache
Set PTCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=Sheets(“SurveyData”).Range(“A1”). _
Figure 17-7: Six of the 28 pivot tables created by a VBA procedure.
 
Search JabSto ::




Custom Search