Forum home » Delegate support and help forum » Microsoft Excel Training and help » vba excel - Functions
|
|
|
The UK's most regular Training information: See also: |
|
Welcome. Please choose your application (eg. Excel) and then post your question. Our Microsoft Qualified trainers will then respond within 24 hours (working days). Frequently Asked Questions
Any suggestions, questions or comments? Please post in the Improve the forum thread. |
vba excel - Functions
Resolved · Low Priority · Version Standard
Reply Fri 14 Sep 2007, 16:30Delegate Andy said...
Andy has attended:
Access Introduction course
Excel VBA Intro Intermediate course
Functions
Pivot tables
For upcoming training course dates see: Pricing & availability
RE: Functions
Andy
Below is the code to create a pivot table in VBA
====================
Sub CreatePivot()
Dim DataRange As Range
Dim Destination As Range
Dim PvtTable As PivotTable
Set Destination = Sheets("Sales Summary").Range("A12")
Set DataRange = Range("A9", Range("J9").End(xlDown))
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:=DataRange, TableDestination:=Destination, TableName:="SalesInfo"
Application.CommandBars("PivotTable").Visible = False 'Hides toolbar
ActiveWorkbook.ShowPivotTableFieldList = False 'Hides Field List
Set PvtTable = Sheets("Sales Summary").PivotTables("SalesInfo")
With PvtTable
.PivotFields(
|