I need to deselect all pivot items in a Chart but I receive this error message
Run-time error 438
Object doesn't support this property or method
This is my VBA code
Chart3.PivotLayout.PivotTable.PivotFields ("Year/Month")
For i = 1 To Chart3.PivotLayout.PivotTable.PivotFields.Count
Chart3.PivotLayout.PivotTable.PivotItems(i).Visible = False
Next i
I am trying to use the bellow code to set one pivot item (MyItem) to true and the rest to false... unsuccesfully
Code:
For Each pt In Sheets("Schedule Dashboard").PivotTables(PivotTable1)
If pt.PivotFields("District").PivotItems(MyItem).Visible = False Then
pt.PivotFields("District").PivotItems(MyItem).Visible = True
Else
pt.PivotFields("District").PivotItems.Visible = False
End If
Next pt
I can't seem to get my listbox to deselect an item. When the user clicks on a day of the week in the listbox, they are given a yes/no option to print the sheets for the day selected. If they select no and change their mind, they cannot click on the same day of the week without first cancelling the listbox and re-opening it.
Private Sub UserForm_Initialize()
Dim myarray As Variant
myarray = Split("Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday", "|")
ListBox1.List = myarray
End Sub
Private Sub ListBox1_Click()
Call PrintRoutine(ListBox1.Value)
End Sub....................
When i tranfer my listbox content to sheet the selected item remain selected in listbox
Dim i As Long, j As Long
For i = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(i) Then
j = j + 1
Worksheets("Workings"). Range("AA" & i + 2).Resize(1, 1).Copy Worksheets("Print").Range("B" & Rows.Count).End(xlUp).Offset(1)
ListBox1.Selected(i) = False
End If
Next i
My boss wants me to design a dynamic, updatable chart in Excel 2003. I initially made a Pivot Chart based on a Pivot Table which worked perfectly, but it doesn't look professional enough when printed (or viewed) and she wants me to approach it a different way.
So, I created a graph based on the data in a Pivot Table, and used dynamic ranges as the source for the graph series so that the chart updates when the criteria fields are changed for the Pivot Table. I then added two combo boxes (ie data validation lists) to the Chart sheet, and wrote VBA code so that whenever the combo box values are changed, the Criteria fields for the Pivot Table on the 2nd sheet are updated accordingly, and this in turn causes the graph to be updated as well.
This solution also worked perfectly, but now I've been told to create the graph without macros.
Does anyone have any suggestions? The requirements/details are as follows:
1. The Pivot Table is on sheet "PIVOT", and the graph is on sheet "GRAPH"
2. The Pivot Table has two criteria - School Name and Year Level
3. On sheet "GRAPH" there are two data-validated fields, School and Year, which only allow the selection of valid Schools and Year Levels
Is there any way to make the Pivot Table update when values are changed in the fields on the CHART sheet so that the chart also updates, but without using code nor a Pivot Chart?
1) i have office 2003 on a laptop. within powerpoint, i can create a 'microsoft excel chart 11' object. to create a link to the excel data source, do i have to go through the odbc sql setup? it works, but i don't want my powerpoint to be dependent on some excel file somewhere. what are the other options to insert/make a functional pivot chart in powerpoint with the data also within powerpoint? the data as sheet option does not result in the chart being a pivot, it's just a plain chart. it has to be a proper object, not an image paste or a chart that updates links with the excel file open.
2) i have office 2007 on my other laptop. i can not find any suitable object to choose from to make a pivot chart in powerpoint. what's the best way to go about in 2007 version?
3) am i going about this the wrong way with the objects? should i be after vba code?
I have a pivot that shows Location, Dept and Total Sales by month. So Location and Dept are in the row area, Period is in the column area and Total Sales are summed in the page area.
Well, they decide they do not want to see Dept: 999 on the pivot. Thats easy, just click the dropdown and uncheck it....they are amazed at my ingenuity!
Well, they then notice Dept: 999 is no longer included in the Location total or grand total....makes sesne to me I say!
Well, they then specify that Dept: 999 should NOT appear on the pivot but SHOULD be included in subtotals / totals.
I've got 4 pivot tables (all derived from the same base data) on 4 separate worksheets. I've been able to (with this help of this site) to use VBA to hide pivot items on all of these sheets using a list on a user form. Hide/Show Pivot Table Field Items. Hide Pivot Table Fields Pivot Items by Criteria
I now need to be able to show all the pivot items on only 3 of the 4 pivot tables, with the 4th pivot table being left untouched. For ease assume that my sheets are sheet1, sheet2, sheet3, and sheet4. The tables I wish to update are on sheet2, sheet3 and sheet4. The pivot table on each sheet is called "PivotTable4" and the pivot item is called "Business". The pivot item contains 12 business names (Business1, Business2 etc etc)
Is there an easy way of doing this? I've spent the day looking through the internet and various "Dummies" books but with little success, I fear that I'm obviously below even Dummy level
How can I add missing values to the axis in a pivot chart line chart? I have a numerical X-axis with values such as 0,1,5,8,14, etc. I have another set of Y values that correspond to the X values. If this was an XY-scatter plot I'd be able to plot X vs. Y and connect the dots for "gaps" in the X values. Since it's a pivot chart I cannot use an XY-scatter plot, I can only use a line chart. The line chart doesn't give me the ability to add the "missing" values, so it gives the impression that my data is more closely packed than it is. The data source is external to my spreadsheet, so I cannot add the values before creating the pivot table/chart.
View 1 Replies View RelatedI have created quite a nice little macro that;
drills through a lot of key figures, updates a pivot chart and copies the chart to powerpoint.
However it crashes on one particular data set every time with this error:
Run-time error '1004':
Unable to set the _Default property of the pivot item class
The code where the debugger stops is the last line below here.
lngKpi = Sheets("Helpfile"). Cells(lngRow, 2)
Sheets("Charts").Select
ActiveSheet.ChartObjects("DK").Activate
ActiveChart.PivotLayout.PivotTable.PivotFields("KPI # (overall").CurrentPage = lngKpi
I can manually change the pivot chart to the keyfigure it crashes on and thereby workaround the problem in the macro. Also it works for more than 50 other keyfigures without problems.
I have two items: Written Premium and Earned Premium. Each of these items has a forecast and actual number for two months. How can I create a line chart (with dots) that will show both of these items. I've attached a spreadsheet.
View 1 Replies View RelatedI'm making a risk chart which i want to select data automaticly.
It currently is possible to select a characteristic. After selecting the characteristic i want the chart to update, having only the risks with that characteristic in it. But it also has to select on impact level and chance%.
Is there any way to let Excel auto select the Risk discription and copy it into the chart?
below are 2 pictures, 1 an example database of risks and an example of how the chart should, more or less, look like when i select the financial characteristic.
Please look at the sample workbook below. The chart you see below is fine BUT I would like in a pivot table chart, so I could select any days on the pivot chart. I have tried it to do it myself but for some reason the time is not displaying on the pivot chart correctly. Any help please ?
P.S. If not possible then can we add a scroll bar or something?
I have created a pivot table and chart. The pivot chart consists of three sets of data from the pivot table. Two of the data sets are lines and the third data set is displayed as columns. I made the third data set into columns by right clicking on the data series line and selecting chart type. I change the chart type for that data set to a column and it worked great. The only problem is that when data is refreshed in the associated pivot table, the entire chart turns into columns with completely different formatting. Does anyone know how I can maintain the graph with the two lines and one column data set when I refresh the data?
View 4 Replies View RelatedI have a database table with selling prices. I want to get a count of number of customers by sales price range.
For example:
Price Count
$0-$5 #
$5-$10 #
$10-$15 #
Total
My nose says this is what a pivot table should do but there are too many sales prices and the pivot table craps out. How do I get them into ranges as above and then count them?
I would like to program to hide pivot items given certain conditions. For example, automatically show items between range 10 to 20, hide all others.
Secondly, I would like to show the top and bottom 10. The autoshow function can only list top 10 or bottom 10. I need to do both at the same time.
I've created a PivotTable using VBA that contains hundreds of PivotItems, which would look bad when a PivotChart is made.
I'd like to set the PivotTable to make visible only the first X items (let's say 10). How would I do this in VBA?The macro recorder gives me the name of the PivotItem, but this varies so I'd like to use an index:
VB:
ActiveSheet.PivotTables("PivotTable4").PivotFields("UWI").PivotItems("Item1").Visible = False
ActiveSheet.PivotTables("PivotTable4").PivotFields("UWI").PivotItems("Item2").Visible = False
See attached.
Basically, I just want to do a pivot which shows the Name and Number for those names listed in the LIST tab.
The pivot source is the data tab, and the result is in the result tab.
I have the code to create the pivot, but filtering it for those specific names on the LIST tab is where I am getting stuck.
Attached File : Excel VBA Pivot Problem.xlsx
Is there a way to have a Pivot Table show only the Top 10 items based on dollar amount. Data covers a month of daily activity (+/- 250 rows), but i only want the Top 10 items based on Dollar amount. Is this possible?
I know filters can do top 10 but it doesn't consolidate similar items.
I've created a pivot table that is not grouping "like" items. I have verified all fields are numbers using the =isnumber() formula. All items present with the "true" value. Just in case, I tried doing text to columns and refreshing the data but that did not work either. All items are formatted the same. All data fields have values.
View 1 Replies View RelatedI have a userform, on the user form I have a combo box. when i select an item from the combobox list. I want it to show only that item in the pivot table. here is my code.. Can anyone see where im going wrong? or what i need to ammend to achieve this?
Dim i As Integer
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Description")
For i = 1 To .PivotItems.Count
If i = ComboBox2 Then
.PivotItems(i).Visible = True
Else
.PivotItems(i).Visible = False
End If
Next
End With
How to select pivot items in a pivot field based on choices from a MULTICOLUMN listbox?
At present, all I know is how to deselect pivot field values
Range("A5").Select
With ActiveSheet.PivotTables("PivotTable4").PivotFields("MONTH")
.PivotItems("MAY").Visible = False
Because the pivot table automatically starts with all items selected?
I have made a report in pivot table. My Headings
Sales A Sales B Sales C
Region Name
Location Code
Location Code
Category
Location
Cluster Head
After made the pivot i started the grouping but is ther any limitation for excel for this? It is showing the below message. "Microsoft Excel cannot make this change because there are too many row or column items. Drag at least one row or column field off the PivotTable, or to page position. Alternatively, right click a field, and then click Hide or Hide Levels on the shortcut. How to over come this and do the grouping. Is this limitation of Excel. I am using Office 2000
I'm running reports in one workbook on different types of spend for 12 business units using 1 worksheet containing the raw data, and 6 other sheets with pivot tables showing different levels of detail.
I've used simple VBA to prepare to standardise the raw data and refresh all the pivot tables with no problem
I need to filter the data to show spend for specific business units. I'd like to do this using a listbox showing the units where I can select the unit(s) to report on, which in turn will only make the units selected visible on each table in the workbookwith no other intervention.
There is another thread on here (showthread.php?t=55041) that shows how to use the list box to control 1 pivot table on one sheet but I can't find anything which shows me how extend this to cover multiple tables over multiple sheets.
I have to check if two items are in column A, and if yes, there values from column B shoulded be summed. I tried different combinations with IF, LOOKUP but didn't go far.
View 2 Replies View RelatedI'm trying to write a macro to select the multiple sets of the same data for several PIVOT tables. I've tried Slicers but it seems that this takes up too much processing power and always times out.
My workaround is to do a macro that picks out the said data, however when i do the below, plus another 4-500 lines i get told that there are too many line continuations
Code:
ActiveSheet.PivotTables("PivotTable6").PivotFields( _
"[Postal District].[Postal District].[Postal District]").VisibleItemsList = _
Array("[Postal District].[Postal District].&[AB11]", _
"[Postal District].[Postal District].&[AB12]", _
[Code] ...
What I'm looking to do is express all the postcodes in one line or at least multiple post codes in one go, this is what I've tried:
Code:
"[Postal District].[Postal District].&[AB12].&[AB13]"
and
Code:
"[Postal District].[Postal District].&[AB12,AB13]"
But to no avail.
I copied and modified the pivottable code from http://www.ozgrid.com/VBA/hide-pivot-fields.htm. I am getting a "Run time 13" error on the line I colored purple. I tried removing different "Dim" statements to make it work and I'm having no luck.
Sub PickUpPivotTable()
Dim pt As PivotTable, pi As PivotItem
Dim lType As Long, lHarn As Long
Dim strCri As String, strCri1 As String, strCri2 As String
Dim bHide As Boolean
Dim xlCalc As XlCalculation
Set pt = Worksheets("Monthly Pivot Summary").PivotTables("MonthlyPivotSummary")
strCri = "P/U"
For Each pi In pt.PivotFields("Type").PivotItems
lType = pi..........................
I have an array set up with values I want to look in a Pivot Field for and then pull data back based on that selection. It works great until there is an item in my array that is not listed in the Pivot Field. Then it pulls the data from the last item again, which skews my results. So my questions is, how can I skip to the next item in an array if it is not listed in the Pivot Field? Here is the section of code
ActiveSheet.PivotTables("PivotTable36").PivotFields("Product").CurrentPage _
= arrProductVals(intProduct, 2)
Need code that takes names of people from one excel sheet and selects the names in a pivot table field in another excel sheet. Basically I need to know the code that selects pivot items in a pivot field (say name of the pivot field is 'EmpName' and the pivot items are the names of the employees). As of now I check the name in one excel sheet then manually select the name from the 'Emp Name pivot field in the pivot table. There are many names and manually selkecting one by one is very time consuming hence I am trying to automate this.
View 5 Replies View RelatedI have a Pivot Table on which I am unable to drag the row items (Salesperson Names) to a different position. What am I doing wrong? Attached Sample
View 9 Replies View Related