Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Pivot Table with no "Blanks"
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 6
Default Pivot Table with no "Blanks"
Hi all,

I have the following code to rearrange a pivot table which by default
includes the "Blank" values in the drop-down for all fields. How can
I uncheck the "Blanks" option from the drop-down?

Sub ViewbyOwner()

ActiveSheet.PivotTables("PivotTable1").AddFields
RowFields:=Array("Owner", "Category", "Expense Category", "Website",
"FTEs")

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Owner").Subtotals
= Array( _
True, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Vendor").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Website").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Expense
Category").Subtotals = Array( _
True, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Category").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("FTEs").Subtotals =
Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Owner").Fields =
Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

End Sub

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 119
Default Pivot Table with no "Blanks"
On Error Resume Next

.PivotFields("Owner").PivotItems("(blank)").Visibl e = False
.PivotFields("Vendor").PivotItems("(blank)").Visib le = False
.PivotFields("Website").PivotItems("(blank)").Visi ble = False
On Error GoTo 0


"lt" wrote:

Hi all,

I have the following code to rearrange a pivot table which by default
includes the "Blank" values in the drop-down for all fields. How can
I uncheck the "Blanks" option from the drop-down?

Sub ViewbyOwner()

ActiveSheet.PivotTables("PivotTable1").AddFields
RowFields:=Array("Owner", "Category", "Expense Category", "Website",
"FTEs")

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Owner").Subtotals
= Array( _
True, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Vendor").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Website").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Expense
Category").Subtotals = Array( _
True, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Category").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("FTEs").Subtotals =
Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Owner").Fields =
Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

End Sub


Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Hybrid Mode Hybrid Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Create Pivot Table Data with Column "Sum" rather than "count" defa Johnny_99[_2_] Excel Discussion (Misc queries) 2 January 2nd 10 03:25 PM
Pivot Table Report Filter - "OR" instead of "AND" Multiple Filters tommcbrny Excel Discussion (Misc queries) 1 October 29th 09 03:08 AM
how do I stop showing "blanks" in a pivot table? Borianita Excel Discussion (Misc queries) 2 April 30th 08 05:50 PM
Pivot table "Group and Show Details" vs. "SubTotals" pgchop Excel Programming 0 February 1st 06 07:29 AM
Help required with setting up a pivot table with the source on sheet1 to have the pivot table created on sheet called "report" Diana[_5_] Excel Programming 0 August 21st 03 10:19 PM


All times are GMT +1. The time now is 04:43 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement