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
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:
I guess I should somehow place the counter j inside the Dir path in order to check if everytime time the file[j] exists?
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 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.
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
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.
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..
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
"Run-time error '1004': "cmc4906.xls" File cannot be found. Check the spelling of the file name and verify that the file location is correct."
I am not trying to open a xls file. The path is clear and there are no file names with extensions in the path name (C:Weekly). I'm unclear of why the code thinks its looking for file cmc4906.xls and a xls file at that.
In the code below, I am trying to add code that will verify that the file to be opened is actually there. If it's not, I want a message box to tell the user that the file is missing or not there. My efforts have XXXXXXXXXXXXXXX above and below my inserted code. Sorry, but I'm lost and need a method of advising the user via a message.
In username the range a2:b5 contains the following: a2= John b2=Write a3=Scott b3=Readonly where John or Scott are usernames in Environ("Username")
Is it possible to write a macro that does the following: 1. When the file is opened it looks at the network username and checks again the Username range in sheet3, if it is Write then the user can change cells in Data Entry and save the workbook, if Readonly then they can only view and not save, and if not there at all, then the worksheet closes.
2. When the file is opened write a log in a hidden sheet callled "Log" of the time opened and the username
3. Is it possible to do the same but making a copy of all cells changed ??
I have a form in Access with a button that opens an Excel file. I think I've seen vba code to tell if a specific Excel file is open already. What I'm looking for is a way to tell if an Excel file is already open when you don't know the filename of the Excel file. Is that possible? Or at the very least is there a way to be able to tell if Excel is already open?
i want to improve some of my application by testing if a folder is accessible to the user... i've got some code to check if a file is already is use which is useful... but before that we have folders in work that are only accessible to certain users for reporting and if the person doesn't have access to it within a macro it Errors out... i'd like some kind of macro to display a message box like windows does... Directory is not accessible, Access Violation... it has to check directly for the Accessible part and not just an error...
I have an application that requires users to download a file from a location that is then imported at their execution into the application. I've done my best to counsel users to download the file to their desktop (for ease of locating) and to stick with a standard filename so that there are no errors. Some of these people just don't take direction well, will save the file wherever, or save the name inappropratly, or worse, open up multiple copies of the same file corrupting the name: ie: FileName.xls, FileName.xls(1), FileName1.
I am just wondering if there is a way of checking if the workbook that is currently open is the only one that is open, as I have been asked to make my code exit the application if this is the case rather that just close that one file.
The other day, I had posted a macro, which copies one of the sheets from a workbook, on to a blank sheet, and then saves it with a name obtained from the value of cell E7. I required certain modifications to it, before I could implement it.
You will find it here and the code looks like this: