+ Reply to Thread
Results 1 to 2 of 2

Need Macro to Set Up Pivot Table in Tabular Format

  1. 01-04-2016, 02:56 PM #1
    bmahfood
    bmahfood is offline
    Registered User
    Join Date
    12-31-2015
    Location
    Orlando, FL
    MS-Off Ver
    2016
    Posts
    15

    Need Macro to Set Up Pivot Table in Tabular Format

    I frequently import data into Excel and need to set up a pivot table in tabular format. I need a vba sub that will select my data, then insert a pivot table, then set the design features to Repeat all item labels, show in tabular form, turn off grand totals and sub totals. I've tried to record a macro to do this but the playback gives me an error notification. Would love some help, thanks! Here's the code from the recorded macro:

    Sub PrepareTabular()
    '
    ' prep Macro
    '

    '
    Range("A1").Select
    Selection.CurrentRegion.Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Sheet1!R1C1:R381C49", Version:=6).CreatePivotTable TableDestination:= _
    "Sheet3!R3C1", TableName:="PivotTable2", DefaultVersion:=6
    Sheets("Sheet3").Select
    Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable2").RepeatAllLabels xlRepeatLabels
    ActiveSheet.PivotTables("PivotTable2").RowAxisLayout xlTabularRow
    With ActiveSheet.PivotTables("PivotTable2")
    .ColumnGrand = False
    .RowGrand = False
    End With
    ActiveSheet.PivotTables("PivotTable2").PivotFields("CmEventID").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventStart").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventDueDate").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventSubject").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventPriority").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("CmTemplateID").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("ActivityType").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventEnteredOn").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventStatus").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("SyStaffID").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("StaffMember").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("SyStudentID").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("StudentName").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("cmEventTypeID").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("cmEventStatusId"). _
    Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
    False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Priority").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("time").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("CampusDescrip").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("syCampusID").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("StuNum").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("ssn").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("PrintID").Subtotals = Array _
    (False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EmployerName").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EmployerCity").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("phone").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("workphone").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("workext").Subtotals = Array _
    (False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("otherphone").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("ExpectedStartDate"). _
    Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
    False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("SchoolStatus").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("ActivityResult").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("JobTitle").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("EventCompleted").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("WhoSetItUp").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("RepName").Subtotals = Array _
    (False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Comments").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Rating").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("datelstmod").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("RepTypeCode").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("leaddate").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("apprecdate").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("HSGradYear").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("HighSchool").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("LeadSource").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("leadcategory").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("ProgramVersion").Subtotals _
    = Array(False, False, False, False, False, False, False, False, False, False, False, False _
    )
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Vet").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("email").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("PivotTable2").PivotFields("OtherEmail").Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    End Sub
    Reply With QuoteRegister To Reply
  2. 01-04-2016, 07:09 PM #2
    humdingaling
    humdingaling is offline
    Forum Expert
    Join Date
    08-12-2012
    Location
    Sydney, Australia
    MS-Off Ver
    Excel 2010
    Posts
    5,636

    Re: Need Macro to Set Up Pivot Table in Tabular Format

    what a wall of false!

    firstly

    Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

    Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

    Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

    secondly

    Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

    Remember to desensitize the data.

    Click on GO ADVANCED and use the paperclip icon to open the upload window.

    View Pic
    If you are satisfied with the solution(s) provided, please mark your thread as Solved.
    Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [SOLVED] Macro to Format Store Data in a Tabular Format
    By prkhan56 in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 06-14-2015, 04:38 AM
  2. [SOLVED] Trouble displaying subtotals for pivot that's in tabular format
    By proctorar in forum Excel Charting & Pivots
    Replies: 5
    Last Post: 07-22-2014, 04:57 PM
  3. Pivot Table Tabular Form Formatting Help
    By JohnHuey in forum Excel General
    Replies: 1
    Last Post: 12-12-2012, 04:58 AM
  4. [SOLVED] Macro to update pivot item (date format) in pivot table to latest date from data source.
    By rocksan in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 08-10-2012, 03:18 AM
  5. Excel 2007 : Pivot table tabular form and duplicated row values
    By benoj2005 in forum Excel General
    Replies: 6
    Last Post: 05-30-2012, 09:54 AM
  6. Pivot table to launch Macro- preserve format under table options
    By Darin Kramer in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 08-25-2005, 02:05 PM
  7. [SOLVED] Macro to Format the Pivot Table drill down
    By MESTRELLA29 in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 07-27-2005, 01:06 PM

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1