Verify Directory Exists Before Running Script
Dec 21, 2006
I keep getting a compile error saying that my argument is not optional, stopping on FindFolder. I am using the following to verify that a folder named with the current Fiscal Year exists before my script runs. If the folder does not exist then it needs to be created.
_____________________________________________________
Private Sub CommandButton1_Click()
CurMonth = UserForm1.ComboBox1.Value
Fyear = UserForm1.TextBox2.Value
' Prevents script from running if no Fiscal Year is entered
' or month is chosen
If CurMonth = "" Then
Dialog1
ElseIf Fyear = "" Then
Dialog2..............
View 9 Replies
ADVERTISEMENT
Jan 7, 2014
I have an Excel VBA macro which calls a stored procedure. The stored procedure calls a SQL agent, which in turn calls an SSIS package. All I need from the Excel VBA code is to ensure that the SSIS package ran successfully. How do you develop a VBA code to let the user know that the job either failed or succeeded after the user executes the Excel macro? Also, is there a need for a recordset in the VBA code?
View 2 Replies
View Related
Oct 11, 2006
Is it possible to search a directory looking for a particular file, then if found, copy the directory and all its contents to another location?
it should be noted that not all of the files will be *.xls.
View 3 Replies
View Related
Oct 2, 2007
I am looking to see if a directory exists, and if it does, to save a file in it, otherwise create it, then save the file. My IsFileThere function works fine on files, but does not detect directories. The len(Dir(Filename)) statement always returns a 0, with the Dir statement always simply populating with "". It works fine on filenames - so can anyone tell me why it does not pick up directories?
Shouldn't the Dir function on a directory name return "."? I have excerpted some of my code to include here: Global Const StoredJobsSubdirectory = "Jobs"
Dim AppPath As String: AppPath = ActiveWorkbook.Path
'other code in here - activeworkbook changed, hence previous line
If IsFileThere(AppPath & "" & StoredJobsSubdirectory) Then
ActiveWorkbook.SaveAs FileName:=AppPath & "" & StoredJobsSubdirectory & _
"" & NameString & ".xls"
Else
MkDir AppPath & "" & StoredJobsSubdirectory
ActiveWorkbook.SaveAs FileName:=AppPath & "" & StoredJobsSubdirectory & _
"" & NameString & ".xls"
End If............................
View 2 Replies
View Related
Sep 28, 2006
I have some VBA which currently creates a directory when it produces an error. the code is as follows
Function create_year()
On Error Goto makenew
ChDir "I:Reports" & Year( Date)
Goto skipmakenew
makenew:
MkDir "I:Reports" & Year(Date)
skipmakenew:
End Function
What I would like to do is have an IF statement which checks if the directory exists.
View 9 Replies
View Related
Dec 12, 2013
I would like to add a visual indicator to my sheet that checks if a specific file exists in the same directory as the active workbook.
The filename format would look like: "something.invoice.(mm-dd-yyyy).xlsm"
The macro would check the =today date, calculate the previous month, and check to see if a file named that exists.
View 2 Replies
View Related
Sep 5, 2013
The script collects all the files in directory and sub-directories and list them in ascending format, I want them to get in transpose format. like for example: Root folder has many sub directories and in them a sub directory XYZ has 5 excel files, it will get the sub directory name in Col A and transpose all .xls files.
Col A | Col B________|Col C_________ |Col D___________|Col E________|
XYZ__|C:/root/test.xls|C:/root/Sales.xls |C:/root/Report.xls |C:/root/sam.xls|
[URL]
View 8 Replies
View Related
Jun 10, 2009
I am trying to prompt the user for the directory to be saved in and file name to be saved as; then save the workbook in the input directory with the inputted file name.
View 3 Replies
View Related
Jun 1, 2009
if there's a way I can verify that a custom add-in is active? My company uses an add-in to allow end users to construct several types of API calls. My program depends on that add-in to be installed. I'd like to try to detect the add-in and halt the program if it's not there.
View 3 Replies
View Related
Feb 6, 2013
I worked out the code below. I supposed to check the date entered in the text box, if that date is greater than the date in cell A2, is supposed to pop up a message box, but is only half working.
For example if I enter 3/1/2013, the code works, but if I enter 1/1/2014 it will not work, it thinks the date is OK and goes on to to the Else statement. In other words, is only looking at the first part (month and day) of my date and ignoring the fact that the year is in the future.
VB:
Dim frmDate As String
Dim toDate As String
Set ws = Sheets("Dashboard")
frmDate = frmEnterDate.txtReportEffectiveDate.Value
toDate = frmEnterDate.txtReportEffectiveLastDay.Value
[Code].....
View 2 Replies
View Related
Feb 22, 2014
I found some username and password login code that I am editing for my needs, but I am having some trouble with it. I keep getting run time error '448': Named argument not found on the following line:
MatchCase:=False, SearchFormat:=False)
[Code] .....
I have also attached my workbook.
Equipment Return Log.xlsm
View 2 Replies
View Related
Apr 18, 2009
I have a code to verify the user name and password, what I want is counting the times the user enters wrong password and show a msgbox when he enters three continuous wrong passwords:
I have created the following lines which are part of a long code, the code is actually running without errors, but it is not showing the msgbox,
View 5 Replies
View Related
Jul 17, 2012
Anyway, I am basically done with a program which looks for one condition and displays an email to send as a reminder.
What I need is to have an if/then statement which checks a column in the spreadsheet and if the cell in the column states "closed" then an email is NOT displayed/sent. It seems whenever I run the macro, an email appears even if the cell for that row reads "closed."
My if/then statement in question lies following my note " 'here lies my current dilemma to solve"
Code:
Sub ThreeDayEmailTest()
'
' ThreeDayEmailTest Macro
[Code]....
View 6 Replies
View Related
Jan 7, 2010
I want to do is have a formula that will return a result if the cell contains a full stop "." and the at symbol "@". Something like a countif contains, but I'm struggling to find a solution where it contains both symbols.
I'd like the formula to return a 1 it finds both symbols, and a zero if it doesn't find both symbols.
View 9 Replies
View Related
May 1, 2007
I have an Excel VBA routine which opens another Excel file as a part of the routing. For example:
' Beginning of the code.
Workbooks.OpenText Filename:= Range("log_file").Value, Origin:=xlWindows
' Rest of the code.
The problem I run into is when the user does not have access (via Windows Active Directory) to the file located in the "log_file" range. They usually will get the old runtime error 1004. I can easily trap that error but err 1004 is used so many other times, I don't want to mistakenly trap it as something else. Does anyone know of a way to verify and/or check if the user has read/write access to a file (or folder) before opening it?
View 4 Replies
View Related
Oct 10, 2007
I need to PAUSE my VBA code (about halfway through) in order to verify some calculations before I can allow the macro to finish running. If the numbers are correct, then I'd like the macro to finish running accordingly. However, if the numbers are incorrect, I need to be able to search my Excel file for the error (the error would be due to a format issue with the data that I pulled in), fix the error, and then let the macro finish running from the point it was paused.
Right now, I've got a Message Box that pops up asking me if the numbers are right and I have to answer YES or NO. I always answer NO so that the macro crashes -- this allows me to check the excel file without having to stop the macro. Once I've fixed the data problem, then I go back into my code and let it run to its conclusion.
View 6 Replies
View Related
May 23, 2014
I am trying to create a log-in page on a userform, frmlogin in "sheet3." The userform is simply a textbox, Username (txtuser) and a textbox, Password (txtpass). Command Button is cmdcheck
I want the User to enter their username and password and for my macro to verify that they match referencing data in a seperate worksheet, (Sheet6).
Upon verification I want the user to be unloaded on "sheet1"
I am currently getting this message: "unable to get vlookup property of the worksheetfunction class"
VB:
Private Sub cmdcheck_Click()
Dim Username As String
Username = txtuser.Text
[Code]....
View 9 Replies
View Related
Jul 25, 2014
I am looking to use the formula's to determine if the contents of a cell, match or meet a given formula.
In this case, 3 alpha + 3 numeric, e.g. ABC123.
I would want it to return a TRUE or FALSE.
I've done it the long way by tearing apart into the 1st through 6th characters, but would enjoy a more succinct method.
View 6 Replies
View Related
May 10, 2012
How to use VB to get the name off the CAC card to verify their identity?
View 1 Replies
View Related
Jul 11, 2013
I have a list of all employees and the start date and end date they had an specific salary some dates overlap because they were working in different projects at the same time. I am looking for a function that will verify if any dates are overlapping for each employee. Some will have only one or two rows others have several rows. Here is the sample of the data?
RESOURCE ID
START DATE
END DATE
100000
12/26/1986
6/30/1994
[Code] .........
View 1 Replies
View Related
Jul 23, 2013
I have a textbox on a userform in which I want the users to enter a valid time, such as "1:20" or "0:15". How can I test this input to verify it is a valid time? Also, after this time is entered, how do I subtract it from the current time which I am displaying in another box>
View 6 Replies
View Related
May 5, 2009
How would I verify a postcode format that starts with a number followed by one or two letters, space, number, letter, letter, if correct displays correct if incorrect displays incorrect
View 14 Replies
View Related
Jun 9, 2009
I would like to use conditional formatting verify that the lines of data being pulled from my application into Excel, but totaled using "=sum" are equal to totals pulled directly from my application. I believe that I should be able to use conditional formatting but am not sure how to make the formula work correctly.
To illustrate my problem: I have cells A1 (a total of a range), A2 (also a total of a range) and A3 (total of data pulled directly into my Excel report). In cell A3 I would like to verify that lines A1 + A2 - A3 = 0. This I can do without any problem, but there is rounding involved. The total of the above formula should be between -1 and 1 and still show as correct. I want the number in A3 to show up in red/bold when incorrect.
View 6 Replies
View Related
Jun 6, 2006
i need to make a formula for excel which will verify if my actual value falls within a specific range. for instance if my value is 0.15 and the allowed range is 0.145 to 0.155 then i want to display the number zero in the cell however if the actual number is above or below the range i want to calculate the amount of deviation from the range
View 2 Replies
View Related
May 9, 2013
I have a command button that will run paste a value in a specified cell but I also need it to check for the next open cell and paste the data if the previous cell in a specifid rage is already filled with data. Here is my code I have below. *jumps with Joy* My Range is E6 to E10
VB:
Private Sub CommandButton1_Click()
Dim f As Double
Dim t As Double
[Code].....
View 1 Replies
View Related
Apr 22, 2009
The command Application.GetOpenFilename will open a explorer to be able to choose a file, what is the command to open a explorer but only to choose a directory?. Is there such a command?.
View 7 Replies
View Related
Feb 2, 2010
The Kill function works OK but the ThisWorkbook.SaveAs part does not work for some reason.
Please note that there are 2-spaces between the words: P3 CATS
View 12 Replies
View Related
Dec 20, 2011
For a macro i'm writing I need to search for a directory.
Users enter a projectnumber, this is being used for a search string.
But how can I search for folders/directories in Windows?
I've got the startfolder: 'C:Projects'
Then the project which the user is searching for can be in several subdirectories.
View 4 Replies
View Related
May 11, 2006
1. Is it possible to save additional worksheets (right now it is only copying one worksheet)?
2. How can I hard-code the directory path so the file goes to that one locatin (i.e. the "master directory")?
Also, is it possible to save userforms out of this workbook (i.e. some of the userforms contain information that is useful...it would be great to have them in the "output" file that gets saved to the "master directory"). Thanks!
Private Sub SAPfile_Click()
myfile = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
Worksheets("Output-SAP Plan").Copy
ActiveWorkbook.SaveAs myfile
ActiveWorkbook.Close
MsgBox "SAP file created."
End Sub
View 9 Replies
View Related
Jul 6, 2006
I've been looking for code to print Excel files from a directory with multiple worksheets. I found something close on this forum, but it prints 2 copies which is fine for pdf, but not for hard copy. I would like just 1 copy.
Sub PrintPDF_PLOTDIR()
Dim PATH As String
Dim FileName As String
Dim Wkb As Workbook
Dim WS As Worksheet
Application.EnableEvents = False
Application. ScreenUpdating = False
PATH = "C:DATA\_PLOTDIR"
FileName = Dir(PATH & "*.xls", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=PATH & "" & FileName)
Application.ActivePrinter = "Adobe PDF on Ne00:"
For Each WS In Wkb.Worksheets
ActiveWorkbook.printout Copies:=1, Collate:=True
Next WS
Wkb.Close False
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
View 2 Replies
View Related
