I have created a dynamic chart using defined names, and the cells in the range are updated on a monthly basis. However these cells are copied from another sheet using a formula i.e =sheetname!$cell_no. and until that data is entered they have 0 values - my question is, is there a way to suppress the 0 values which are being 'plotted' on the dynamic chart until they have appropriate values?
View 4 RepliesI need to have two area charts combined, but they have different x and y values. Is there another way to do this.When I try to combine them in one graph, I can only use one x-axis value.
In the excel sheet the PV needs to be the x-axis.
Is there a way to limit the range of values on the Y-Axis on the lower end? Like I don't wish the Y-axis to begin from 0 but say 500. Is that possible?
I have a set of data values ranging from 650 - 850, but the Excel graph however looks too fine because the Y-axis begins from 0.
I would like to know how can I plot my x axis of a chart with the maximum and minimum value that I have in this variable. Note that my variable is no going from the lower value to the highes one, it is random. So what I did is to use the autoscale of the chart, but it is not working as I would like. Any solution?
The code that I use is:
Code:
' TO GET THE INITIAL and FINAL VALUE and the STEP
Worksheets(wsheet(27)).Activate
ActiveSheet.ChartObjects(chartName(11)).Activate
ActiveChart.Axes(xlCategory).MinimumScaleIsAuto = True
ActiveChart.Axes(xlCategory).MaximumScaleIsAuto = True
ActiveChart.Axes(xlCategory).MajorUnitIsAuto = True
xScaleMin = ActiveChart.Axes(xlCategory).MinimumScale
xScaleMax = ActiveChart.Axes(xlCategory).MaximumScale
xScaleStep = ActiveChart.Axes(xlCategory).MajorUnit
'After I use them (xScaleMin,xScaleMax,xScaleStep) for several charts, in this way:
ActiveSheet.ChartObjects(chartName(11)).Activate
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text =VarName
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Select
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Font.Size = 11
ActiveChart.Axes(xlCategory).MinimumScale = xScaleMin
ActiveChart.Axes(xlCategory).MaximumScale = xScaleMax
ActiveChart.Axes(xlCategory).MajorUnit =xScaleStep
' but if my data was between 50 and 250 it is plotting between 0 and 300
Negative or zero values cannot be plotted on log charts!!
Some of my log charts will have negative or zero values at certain input variable combinations, however, I'm obviously not interested in those charts when this is the case.
I've been working on this chart for a while and can't seem to get my x and y axis as well as my series corrected. I have time and distance but since my distances are small I cant seem to make sense on how best to depict my data. Right now it is shown as data points but would love to show value.
View 2 Replies View RelatedThe question is pretty much described in the post title. Here is the situation:
I have a workbook that has data plugged into it manually throughout many sheets, and at the end there are a few sheets with different graphs and charts that are generated by a macro. This macros works perfectly - all the data is accurate and the figures are perfect when compared with a manual count. The problem I have is that the cells where the macro puts the summed values are in a chart that is supposed to create a bar graph. Normally, if I change a value that a bar graph uses I see the bar graph change - but that does not happen with the cells that have values placed in them by the macro. I also have a section that sums the values in the chart to make sure it's running right, and these values do not update automatically as well. The cells have the formula =SUM(B3:B12) and so on, in them. Right now, every time that I run the macro I need to go into the cell with the formula, hit 'enter', and then it does the summation. Is there a way to correct this problem, or is this something that is part of excel?
My DB is in table format . I use this table as source data for 2 barcharts and 1 pie chart.Following are my table headers
Costs|exp heads|Month1|Month2|...|Month n|Spark lines|Average
When i add a month coloumn,Sparklines and Average coloumn should get updated automaticaly.Now this is not happening even if the data is in table format.I also want the graphs to be automaticaly updated.
What i have is over 20 worksheets which have information on them that i want to print when selected so, i have a "main page" with a variety of options for the user to select (by check box) and when they are happy with their selection you would click another check box to print out, i have done this because the printer is set well away from the users and if they printed of sheet by sheet then lots of miles treading back and forth to the printer room would happen so, i thought by doing it this way it would batch print all selected sheets after selection, the code is set up to print all sheets which are selected by "true" in cell O2.
This is no problem as it works well but the code also prints when the check box is de selected. What I would like is a message box to appear before the main macro runs for the user to select "yes or no" to confirm printing. I have put code in this for the command but it will not run the main magro if you select "yes"...below is the code for the main print loop...I think the code for print message should appear before this...
HOW DO I SUPPRESS #DIV/0! IN THIS FORMULAR? =AVERAGE(A4:R4). When there are no values is this string.
View 3 Replies View RelatedI am trying to put some charts into a report that is pivot table based. I have some code that will work if the pivot tables stay stagnic but the users may change the tables around so that could be an issue of new data. I have the following code where I changed the source to the pivot table name (general name because of numberous report possibilites). I have taken out the other charts because they are just a variation of the chart 1. I am crashing on the line with the * on it.
Sub UWTierChart()
Dim oCell As Range
Dim oChart As Chart
Set ws_data = ActiveSheet
'Chart 1
Sheets(wsPT).Select
Range("B21").Select
[code]....
Is there a macro to supress the popup prompt saying "the cell is protected...." when users double click on a protected cell ?
i prefer for nothing to happen when users double click a protected cell..
Say I have a userform with one textbox and one commandbutton labeled �Cancel�. The textbox has an exit event to edit the data entered to the textbox. The commandbutton has code to unload the form.
The first time the Cancel button is clicked and the textbox has the focus the exit event of the textbox is triggered, but the form is not unloaded.
The second time the Cancel button is clicked the form is unloaded because the textbox no longer has focus.
How can I suppress the exit event from being triggered when the Cancel button is clicked if the textbox has focus?
I have a program with a line that deletes a worksheet like so: Sheets(Output).Delete. Where "Output" is the name of the sheet (a string). This works fine, but everytime this line is excecuted excel pops up a message box "Data may exist is the sheet(s) selected for deletion. To permanently delete the data, press Delete." and I have to click delete. Is there anyway to stop this message being displayed?
View 2 Replies View RelatedImmediately a chart is added, excel chooses it's own data to plot. How do I suppress this?
View 5 Replies View RelatedI am trying to suppress the error message (green triangle top left corner of cell). I have tried
Code:
On Error Resume Next
On Error GoTo 0
At the start and end of code, but to no avail.
Code:
Sub mcrpasteformulaandcommentlist()
On Error Resume Next
On Error GoTo 0
ActiveWindow.SmallScroll Down:=23
Range("C50").Select
ActiveCell.FormulaR1C1 = _
[code]....
I have some code which calls up a Solver equation. I'd like to be able to suppress the confirmation dialog. I tried application.displayalerts=false, no luck...
View 1 Replies View RelatedWhen I have two or more fields on the left of the pivot layout, sometimes I only want the line item data and the grand totals, but not the various subtotals.
Is there a way to suppress the various subtotals created by a pivot table?
I have a template workbook which contains link to information in another workbook.
I open this external workbook by GetObject method.
Private Sub Workbook_Open()
Dim MyObject As Workbook
Set MyObject = GetObject("C:data.xls")
End Sub
And I would like to get rid of this window (I don't want to update that information until the external file is open)
When I open a particular workbook by double-clicking in My Documents or using File|Open, I want to suppress the dialog box that appears requesting to update links in the workbook. I want to suppress it using code, perhaps in the workbook_open event?
View 4 Replies View RelatedI have a command button code on a sheet that checks if all the cells in a table have been completed before saving the worksheet. If they're not all complete a userform message box pops up with a reminder then returns to the sheet without saving. I want to be able to call this from the 'BeforeClose' event as well however, even though it still does what it's supposed to do, after the userform message box has displayed and been unloaded then it still pops up the Save Dialog box.
I'm struggling to suppress the Save Dialog box and return to the sheet.
suppress range name already exists when coping out workbook. I’m coping the selected worksheet out to another workbook…sometimes I get a message that a range name already exists and do I want to rename or not?. I always want to say no (don’t rename)…?
Application. ScreenUpdating = False
On Error Resume Next
Dim wb As Workbook
Dim ws As Worksheet
Set ws = ActiveSheet
Set wb = Application.Workbooks.Open("\03-serverdatadatabasemarterialListingsArchive.xls")
If Err.Number <> 0 Then
MsgBox Err.Description & "help"
Else
'ws.Copy After:=wb.Sheets(wb.Sheets.Count)
ws.Move After:=wb.Sheets(wb.Sheets.Count)
wb.Save
wb.Close
'ActiveWindow.SelectedSheets.Delete
End If
Application.ScreenUpdating = True
MsgBox "Worksheet has been Archived..."
we have a recorded to delete a sheet, then how to make sure the interactive box doesnt come up asking you to "delete" or "cancel"? And the sheets still get deleted?
Here's my
Sheets("regress").Select
ActiveSheet.Delete
How to make sure that the "Delete/Cancel" box doesnt appear?
how to supress the continue,end,debug, message when there is a vba error. The idea being that if there is a bug in my system that I have no realised, I don't want my end user seeing that message! I would preferrable design my own error message to appear instead.
View 2 Replies View RelatedI can't get the Displayalerts = False to work as it's supposed to when analyzing data running the correlation add-in. (ATPVBAEN.XLAM!Mcorrel)
For each loop the alert is displayed which I don't want it to.
The code below is just an example. I have several rows which I will loop through and therefore the Displayalerts=False must work.
Sub test4()
With Application
. ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
i get the error messagebox:
title bar " compressed (zipped) folders error"
"cannot copy a compressed (zipped) folder onto itself"
with only the OK button
when i run
oapp.namespace(filenamezip).copyhere oapp.namespace(foldername).items
I have written a macro to convert data from a report exported from Salesforce.com to a format that is acceptable for upload to our website. One of the necessary conversions is to convert values from a Boolean value to a Y/N value. I wrote a macro with a series of search-replace commands such as this:
Code:
'replace 0s and 1s in "Direct Billing" column with appropriate data
Columns("R:R").Select
Selection.Replace What:="0", Replacement:="N", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
This code generates a warning when no "0" values are found:
"Microsoft Office Excel cannot find any data to replace. Check if your search formatting and criteria are defined correctly. If you are sure that matching data exists in this workbook, it may be on a protected sheet. Excel cannot replace data on a protected worksheet."
I am trying to write some VBA that will select a row of cells that each have links to cells in another workbook, and then either autofill the formulas down (or pastespecial them down) for 20 rows. I have that part down using either pastespecial or autofill, but -
Since the forumulas are links to another workbook, Excel wants to resolve that link to calculate the values at the time of the pastespecial or autfill. If the sourced workbook is not open, the "browse for file" popup displays. I don't want the popup to display and would rather just get the #REF in the pasted cells and let it resolve the next time the sourced workbook is open. The end result would be like clicking "cancel" to the "browse for file popup", which I'm tired of constantly doing... I would just like to skip that popup all together and get the #REF value.
I have 10 workbooks which have various calculations and have several links to each other. We use Excel 2003.
For each of these files, I have the following code in the Auto_Open module
Range Range(“TodayComp”) is a date taken form a link in another spreadsheet. It is on Column 3, but the row changes every day as more rows are inserted before it
This sub looks at Range(“TodayComp”) and checks the date on the cell directly above.
If say Range(“TodayComp”) is 6/25/2008, and the cell above is 6/22/2008, it will insert three rows right above Range(“TodayComp”). These rows need to be copied with formulas from the current row above Range(“TodayComp”)
Issue One:
The following code works (it copies the rows), but it takes forever to run, as you can see in bold, I copy and paste each cell, instead of the entire row.
Is there a way to copy and paste the entire row? Remember that I have only a named range to refer to, no cell address as it changes every time.
Public Sub Auto_open()
Update_Dates()
End Sub
Public Sub Update_Dates()
Dim tdy, prev As Date
Dim index, i, j, yr, no_inserts As Integer
Sheets("Comparison Computation").Activate
I often use the same file/pivot table for both month and weekly reporting. In my source data my field headers show 1,2,3,4..etc. This way I can use for month or weekly. But I often change the "Custom" name on the Field Value Settings to something more descriptive like "Jan" or "Week1"
The problem is that each time I update the the "Custom" name the Pivot Table auto refreshes and it takes forever to re-label all the columns.
Is there a way to suppress this refresh when updating the Custom Field Name?
Capture.JPG