I wrote a macro that selects 3 charts existing in a sheet and sets the axes to auto scale option. The charts are labeled Chart 2, Chart 6 and Chart 7 by default, the macro selects each of then and then sets the auto scale option.
Is it possible to use 'If then' statement to check if the chart object exists ? In case they do exist then macro works on them but if not then it goes to the next statement.
Or is there any other way to check if objects exists or not, because sometimes the macro is used for old files (template) and the chart objects there have different numbers and not 2, 6 and 7. So to use macro for both templates( new and old) its better to check first. This way the macro becomes more flexible.
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?
It checks to see if DataImport2, 3 and 4 exist and then executes code.
Currently DataImport4 does not exist so it should not execute anycode but for some reason the code is still trying to execute it and select Sheets("DataImport4").Select
I would like to check/search if (FileName As String) is still exists in its directory. --Why as string: because I have a hidden kollom where the links to the files are in txt format.--
I am using below mentioned Code for checking if certain file exist on Path. Its working on my home PC (XP SP2 Excel 2003). BUT its not working on my office PC (XP SP2 Excel 2003).
Can somebody tell me why its not working in my office PC ( or if its missing something, then from where can i download it.)
Sub CheckFiles() Const strFolder = "C:Documents and SettingskreshnrDesktopTest" Dim fso, msg, i Dim rngData As Range
Set fso = CreateObject("Scripting.FileSystemObject") Set rngData = Sheets("Sheet1").Range("A1")
With rngData Do While .Offset(i, 0).Value "" If (fso.FileExists(strFolder & .Offset(i, 0).Value & ". ")) Then .Offset(i, 2).Value = "Yes" Else .Offset(i, 2).Value = "No" End If i = i + 1 Loop End With End Sub
finding the proper code (which will exist in a larger macros) to check to see if specific worksheets exist. Have looked at functions, Cases, On Error checks and nothing seems to do the job I need it too. Here's what I'm loooking at doing...
Background: Main job of macros is to open a source file and systematically copy and paste data from several specific sheets (8 out of 15) into 'like' sheets in a destination file. Destination file is where the macros is run from.
Before starting any copying or pasting I want to make sure the source file has all the correct worksheets. I've run into cases where users have either deleted or renamed worksheets and as a result my consolidation macros falls down. So the order of operations at the beginning of my macros would be...
- Open source file - Check to make sure worksheets with proper names exist - If they do exist, continue with macros - If even one worksheet can't be found (either deleted, or renamed), then prompt user to check the source file and then stop the program.
I need to allow users to add up to seven new worksheets as required and the new sheets must be named Image1, Image2, etc. I do not want to add seven worksheets at once, only one at a time as the need arises and no new ws can be allowed after Image7 ws is added.
I have a macro to test for the existence of ws Image1, but need help on further development to add and test for the extence of the remaining sheets.
Dim ws As Worksheet Dim bTest As Boolean For Each ws In Worksheets If ws.Name = "Image1" Then bTest = True Exit For End If Next ws
If bTest = True Then 'Need some code here, not sure what I need
My problem is that I want to loop through a directory that contains csv files. The directory is dynamic so everytime could be a different number of files inside. I want the loop to go through each file and check if that file exists. If it doesn't to print a message that this specific files doesn't exist. Until now I got the following code:
[Code] .........
I guess I should somehow place the counter j inside the Dir path in order to check if everytime time the file[j] exists?
Using VBA, I am running code that filters the data in my column "Account" on my main sheet, creates a new sheet for each account in that column then copies the filtered data to the new sheet. There will always be the same list of Accounts with the exception that there might not be data for one or more.
In that case, I still need it to create a new sheet with the account name but just have some text stating "no data available for his account".
I can find code to search if a specific sheet name exists but, in my case, I don't know which one won't have data at run time.
I was hoping I could put a static list of the expected sheet names into an array and loop through that list and create the sheet for any that it can't find.
I have two workbooks open, the first is a summary, the second has new data that needs transferring into the summary. Before transferring the data I need to check that 10 specific sheets exist in the file with the new data.
I have found some code that checks for one sheet name, but really need to check for 10 specific names, if any are missing then I need a message to appear, listing the missing ones and stopping the macro from proceeding,
Dim mySheetName As String, mySheetNameTest As String ActiveWindow.ActivateNext mySheetName = "Data" On Error Resume Next mySheetNameTest = Worksheets(mySheetName).Name If Err.Number = 0 Then
I have a function that works well for checking if a specified file exist within a specified path. I realized I do not know how to just check if the folder exist!
Example: I want to see if the following folder exist with boolean response...
Each sheet contains also: State - D1 Role - D2 Staff ID - D3 Date - D4
Activity group name in column A (starting from row 8) Activity type in column B (merged with C and D) (starting from row 8) Activity time in columns E:GV (starting from row 8). Usually, there is none or only one value in whole range (e.g. E8:GV8). But sometimes there are two values.
Customer ID in row 6 (value appears only if time was reported in E:GV range) CC Number in row 7 (value appears only if time was reported in E:GV range)
It's all about transferring values from all daily sheets in all files (.xls) sitting in folder C:WADFinal to one simple table (WAD_Consolidation_file.xls, sheet "Consolidated") consisted of 9 columns: Staff ID, Role, State, Date, Activity Group, Activity Type, Minutes, Customer ID, CC Number.
Additional note if two values exist in the same row they should be copied as two separate entries to consolidation file.
I need help to this : When i type a number to a cell and press enter , i want to check if this number exist in a range of cells (in sheet 2) , and if exists , excel show me a message. Actually i use it for my *** club. Number is the client code. When i writte 50 in a cell , i need from excel to check if this client own me money , and show me some message..
I'm looking for the excel model object chart and class diagram. I find the model object's description in the microsoft page, however i'm liked to have the object model and the class diagram in chart or picture.
Trying to figure out a VB Script but don't know where to start.
I have a sheet for each month. lets take September 2013
A Column with 200 Servers (A1:A200) on the Intranet listed as server-1/, Server-2/ Server-3 ... Server-200/ Each Server lists a location of a file for each day (31 columns per row)
I am trying to check for the existence of the files on each server (The Cells contain the URL and File Name in Range B2:AF201) starting with server-1 check the URL in B2 if it exists, go to C2, Continue with that row until the file check is False (The Page will show a 404 error) if not found delete cell url and continue. do this for all 200 rows
VB: With Sheets("Graph").ChartObjects("Chart 3") .Activate .Chart.SeriesCollection(1).XValues = Sheets("Data").Range("D2:D" & Sheets("Data").Cells(Rows.Count, "D").End(xlUp).Row) .Chart.SeriesCollection(1).Values = Sheets("Data").Range("E2:E" & Sheets("Data").Cells(Rows.Count, "E").End(xlUp).Row) .Chart.SeriesCollection(1).(What Do I put here To Set the color of the line) End With
I have a MS Office Chart Component (11) on a userform. I am trying to programatically change the item in the filter (page) area (only one field) using VBA. The source is an OLAP cube ( SQL AS 05) but don't think that's particularly relavent because I can't do it even if the source is a range.
The object comes as a ChartSpace on the userform. I have found a reference (using the watch window) to the current filter selection in ChartSpacex.InternatPivotTable.ActiveView.Fieldsets(0).Fields(0)....
I want to use VBA to insert an Organisation Chart in Excel 2007 (ie if I did this manually it would be Insert, SmartArt, Hierarchy), but I cannot find anything on line that shows how to do this in Excel 2007. I know the code for Excel 2003, but that does not work in 2007.
I have a worksheet which is used to display analysis data to the user. The sheet will be further protected with only some cells available to the user. I've used the attached code to retrieve some data from the sheet, clear a bunch of cells to reset the sheet and reset a graph (the graph itself is plotted as a log-log with the 1 to 100 on the Y-axis, hence the resetting of data to 0.5 to push it below the axis and make it invisible ready for later data dumping).
The code worked fine until I protected the worksheet. I have set the charts to unlocked using the format option in the chart area prior to locking. When I run the code though, it stops on the line indicated with the error "Application-defined or object-defined error". I've double checked and Chart 7 is the correct chart, and it is unlocked according to its format properties.
VB:
'get date of survey and equipment number for retrieving the data from the archive dateSurvey = Worksheets("Calculation Page").Range("B2").Value equipNum = Worksheets("Calculation Page").Range("F2").Value 'stop screen updating Application.ScreenUpdating = False
[Code]....
EDIT: Oops, I've just noticed that even if I unprotect the sheet, I get an error on the .select within the seriescollection stating "Method 'Select' of Object 'Series' Failed", and the code worked perfectly before. I'm completely lost now...
I have a text box within a chart tab which is populated with text values from a worksheet within the workbook. That part works fine however i want to be able to achieve the following example:
Current Text: Component Name - Notes
if there are notes against the component name i want the name to remain in black and the notes to change to blue
Aim: Component Name - Notes
If there arn't any notes then for the component name and the "-" to change to a light shade of grey
Aim: Component Name -
There are 26 components, each on their own lines in the textbox so im thinking either a loop where the cell reference is variable eg. ("CY" & i) or using the .find with a variable.
My code so far is:
Code: Sub Chart_Notes_NTCA() Dim i As Long, j As Long, Counted As Long, Total As Long Dim Ans As String, Notes As String Dim Cht As Chart
I have been trying to create a macro in excel to chart a selection of data and to output the chart on the active sheet where the data was taken (as opposed to a named sheet). So basically, I have about 300 worksheets with data, and I would like to have a button on each page that automatically charts that data when clicked, and outputs the chart to the page where the macro was clicked. However, I have not been able to figure out a relative reference that will allow me to make the LocationasObject reference simply the ActiveSheet as opposed to a specifically named sheet. See my code below, which references an output to a worksheet called "Charts". Right now, all of my charts are outputting to the sheet called "Charts", as opposed to the active sheet.
Sub ConsDiscChart() ActiveCell.Offset(29, 11).Range("A1").Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlUp).Select Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Range("A1:B1").Select Range(Selection, Selection.End(xlDown)).Select ActiveCell.Offset(0, -1).Range("A1:C24").Select Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts" With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With End Sub
Is there any way in which I can map the tick mark labels on either the x-axis or the y-axis to different values other than the ones that are being plotted for.
For example, lets say the data is:
1 5 2 6 3 10 4 15 5 8
I want to plot these in a chart but instead of displaying 1,2,3,4,5 on the x-axis, I want to display a different column, say,
5 7 9 11 13
The answer is not as simple as plotting the required x-values with the y-values. I have just used a simplistic example but the thing I am trying to do has dependencies involved so I cannot simply plot the chart with the required column.
My company uses 4 types of barcodes 8, 12, 13, & 14 number barcodes for our products my problem is that I can't figure out how to force the barcode to format properly no matter how somebody enters it if they don't use spaces or put them in the wrong spots, I can't use custom formats because there is 4 different layouts
8 digit should be "#### ####" 12 digit should be "###### ######" 13 digit should be "# ###### ######" 14 digit should be "# ## ##### ######"
these barcodes are in columns L, M, & N also right now 'm using a formula in another cell to verify the barcodes by calculating the check digit and comparing it to the check digit typed the formula i'm using is
I have data in Row 53 that spans 7 columns, but stays in the same row. I want to design a loop to select every 7th cell in that row and check if it is empty. If not, add onto a "counter" then display the final number of occupied cells (the value of the counter) at the end. This is what I have so far, but I get all sorts of errors.
Code: Sub Tester()
Dim WB As Workbook Dim WS As Worksheets Dim modCounter As Long Dim Cell As Range
Set WB = Workbook("Transverse Series.xlsm") Set WS = WB.Sheets(BM18)
I run a workbook an I want to save it by it's date. In Simple word : If the workbook did'nt exist save it, or it's already exist.
Sub SaveWorkbook() Dim strFile As String Dim FileName As String Dim year As String FileName = "Sales" year = Sheets("Values"). Range("G2").Value strFile = FileName & year ' For Example: Sales2007 ChDir "C:Sales" If Dir(strFile) = "" Then ActiveWorkbook.SaveAs FileName:=strFile, FileFormat:=xlNormal Else ' Don't Accept saving and exit sub. MsgBox "File already exist " & strFile, vbInformation Exit Sub End If End Sub
