This is my first time posting to the site so I will start with a simple question. I have an email macro that will send the workbook to a specific recipient. What I want it to be able to do is close excel after the macro is ran and the email is sent. If anyone would be kind enought to supply me with a code that will work .....
View 9 Repliesi ran some tests and it was working good only doing folders with ~100 files. i tried running the macro on all the files (~70,000), but I ran into problems with the computer going into standby while I was away. I tried running a batch of 3000 files and it completed, but only got up to around ~400 out of ~3000 records. Maybe, it stops cause of code related inefficiencies?
Here's the code:
macro_forexcelforum.txt
The macro is designed to grab a closing stock price for a date specified for a list of Symbols in column A and the date in column B. The closing price is then displayed in column D.
The problems (there are two that I found) I am running into is that when the Macro encounters a symbol in Column A and is not recognized, an error message pops up and the macro stops altogether. I want the macro to continue to run down the list but I can't figure out where in the macro it is stopping and, more importantly, how to make it continue. I have attached a copy of file if needed (if opened, you can see it stops working after row 11).
I have 2 command buttons on a sheet, one of which I would like to upgrade to delete the other, as well as itself, upon completing the rest of its functions. That's right, normal VBA isn't fun enough anymore, I want kamikaze suicidal code that wipes itself off the face of the earth.
My colleagues are... less than comfortable with VBA. I use it to produce some of the forms which I send to them, and if I could delete the code automatically after running, I'd save myself some time and/or save them some confusion.
my excel sheet runs through a lot of calculations, opens Flowmaster, a simulations program, passes on data, receivs data and so on. Is there any way to have a user input to stop the whole simulation. During the first tries I had a lot of break point in my debugger. But now I want to have a button to hit or better just some keys to hit to stop it without using the ctrl+alt+del which closes everything.
View 4 Replies View RelatedI'm getting a "Subscript out of Range" error on a routine that was running fine a few days ago. It's part of a larger macro, so I've pasted the full code for that macro below. The problem is in the routine labled "Replace Regional Labels". What that's supposed to do (and DOES do) is to replace labels such as 110 or 11000-CSD with 11000. The error message comes up AFTER the routine has completed it's work. The offending line is:
View 2 Replies View RelatedI've got a list of files in column A (Starting A1), this is complete with filepaths Now I need a macro to open the workbook in A1 then when i close that workbook it then opens the workbook in A2
basically to save me opening them manually each time..
I need to create a variable that will be TRUE/FALSE based upon whether the user has made changes to a certain range without running a specific macro. Basically, if they change cells in a certain range, the 'Update' macro must be run. I want this variable to be False if the cells have changed without running 'Update' and then when 'Update' runs, it sets the variable back to True.
I've been able to make this work with a Public variable, but if the user closes the workbook, the variable resets to False. Is there a way to create a variable that will be remember even if the workbook closes?
I need to list multiple items that end in, example:at time entered there is 45:14:50 = Hr:Mn:Sec to completion, and would like the date and time of completion or just a countdown to 0 would work. I will have 60 to 70 items running at the same time with different start times and lengths. Picture queueing up items at different times to complete in different length of time and I need to be ready when each item is done. I know this is an Excel forum but I also use Apple Numbers so if either one works better I'm fine with that.
In the attached file, column R is the start time that I enter that needs to be calculated to column S. When I enter an item that takes 54hrs 23min 45seconds to complete, what date and time will it be ready.
I have the following function:
=IF(G13="",IF(H13>1,1,IF(G13>1,workdays(H13,G13,Holidays))))
The intent is to calculate the completion date against the assigned date as follows:
G13 - Typically the assign date but sometimes can be blank because someone forgets or doesn't bother to insert
For this example, let's say: 12/17/12
H13 - Completion date
For this example, let's say: 12/20/12
I'm expecting a result of '3' for 3 days
The first half of the function is intended to calculate 1 day if G13 is blank or not defined. However, when I have dates in both cells, I'm getting a "false" answer instead of a numerical value that I'm expecting.
In our workplace, we do work weekends & sometimes 7 days a week.
I'm looking for a way to execute some code, when the user closes the workbook/excel.
So far, I've found this
I have a simple list of about 4 hundred addresses. Like most US Address, they all start with a street number, for example 1234 Main St. What I would like to do is have a cell where I can type some of the address, maybe just the number itself, and another cell with search the array for all possible matches. So if I type is my criteria cell 1234, I will ahve a result cell that displays 1234 Main St. And if there are multiple address witht he nubmers 1234, such as 1234 Main St. and 1234 Poplar Grove Rd. and 1234 Bennington Ln then I would like for my result cell(s) to display all possible matches. Does anyone know an easy(ish) way I can do this with formulas?
View 2 Replies View RelatedI have project start date in cell C2((MMDDYYYY format).In cell D2 I have put the total days needed to complete the project.In cell E2:E6 I have got the scheduled Holidays.
I need to calculate the project completion date in F2.We work from Monday to Saturday,Sunday being off day.
The detail is as follows:-
I have a central workbook that relies on data from other workbooks during the various calculations. I am trying to write some code so that when a user closes the central workbook, all of the other workbooks close as well. I have added my code to the thisWorkbook code, but this does not seem to work. Here is an example of the code. The object is to look for a workbook called Import_Sheet5 and to close it if it is open.
Private Sub Workbook_Close()
Dim Wb As Workbook
Dim sSought As String
sSought = UCase(wbName)
For Each Wb In Application.Workbooks
If wbName = Import_Sheet5 And InStr(Wb. Name, wbName) Then
Wb.Activate
Wb.Close SaveChanges:=False
End If
Next
End Sub
I have a spreadsheet where I have input all of my technicians service calls and installations.
In Column C Row 5 and up to the max I assume because I'm not sure how many rows I would use in a year, I have an estimated completion date.
In Column D and the same Rows as above I will input the Actual Completion date.
What I want is if the current date is past the estimated completion date (Column C) and there is no date entered in the Actual Completion date (Column D) I would like a MsgBox to pop up saying "Please enter a new completion date on row _"
"_" would be which ever row the estimated completion date has expired without an actual completion date being entered.
I have two sheets, one sheet showing the total calories burned, in the sheet two, i have the target set,
How can i change the color of cell in the target on the basis of the achivement for example the target is say 10,000 cells and after I achieve 1500, it will change the color, after 3000 it will change another color and so on and so forth.
I need to create a tracking sheet for my vacation. The vacation starts to accrue here after a 90 day probation following the hire date. Each individual is allowed 40 hrs/year. I also need to see the hours accrued, the hours used & the balance. Everyone's balance renews on their anniversary. I will fill in the blanks for the names in one column & the hire date in the next column and I would like formulas for the following columns.
View 12 Replies View RelatedI have 1 main userform and I need to open another userform using a command button from within that 1st form. The 2nd userform appear right in front of the 1st userform. When the 2nd userform is closed either via VBA or clicking on X, it closes both forms.
why this happens and how I can make only the 2nd form close when it is finished with?
I do not want ThisWorkBook to close prematurely whenever the specified Activeworkbook is closed without saving because there are other tasks to complete. The Workbook_BeforeClose dun seem to fix it for my case below.
Here’s my situation. I want to copy data from a range of a particular protected sheet in 5 (password-protected) workbooks of a similar format, to 5 worksheets(unprotected) in ThisWorkBook, which is the Master Workbook. The password of the protected sheet is common to the 5 workbooks. The passwords of the 5 workbooks are contained in a sheet in ThisWorkbook. After copying the data from Workbook1 ( 1 of 5), ThisWorkbook are prompted for closure, when Workbook1 is closed without saving. Responding to the prompt to save or not to save, forces ThisWorkbook or MasterWorkbook to break the For-Next loop. By setting Cancel = True in Workbook_BeforeClose, I can stop Thisworkbook from closure, but I will still break the For-Next loop. I have considered the method of copying data from a closed workbook, but I dun think VBA allows copying or referencing a closed workbook which is password protected at workbook and worksheet level.
Here’s my coding :
Sub UpdateMaster()
Dim MasterWB As Workbook
Dim TempWB As Workbook
Dim Source As String
Set MyWB = ThisWorkbook
For i = 1 to 5
Set TempWB = Workbooks.Open (Filename:=WB(i), Password:=password(i) )
TempWB.Sheets("ProtectedSheet").Unprotect Password:="SheetPasswd"
MyWB.Sheets(i).Range(XXX).Value = TempWB.Sheets("ProtectedSheet").Range(YYY)
TempWB.Close False ‘dun want to respond toclose ThisWorkbook else it breaks for-next loop
Next i
Application.Quit.
End Sub
I can delete Sheet5 using this macro. I would like to put this in the workbook so that when I close the workbook it will be activated if Sheet5 exists. If Sheet5 does not exist nothing will happen.
Sub DeleteSheet5 ()
Application.DisplayAlerts = False
Sheets("Sheet5").Delete
Application.DisplayAlerts = True
End Sub
how to mark the post as solved other than go advanced and selecting solved from the drop down menu can you tell me how?
Userform Loading with database turns to close all Excelworkbooks completely
Database created in Excel worksheets to load and show in various different objects on userform. At present this project file size is approximately 2.5 mb and more to go as it is not yet complete. Now you can imagine how much big this project can be.
It uses various different types of objects such as listboxes with many columns, combo-boxes, textbox, checkbox and many. Every objects has its own style to display data on userform which is set in its properties itself.
Before loading userform to display, program creates database from manual entry (which is made by user on their working sheets) to database entry sheets (which is made to make compatible to show on userform). Upon loading, it also loads/populate all datas required in their objects to display.
All works perfect when I am in editing mode. It doesn't matter how big the database can be and works as required. This Project is now Password Protected and distributed among all staffs in our company to work with.
Error Occurs, when I tested in non-editing mode. The moment I triggered the macro to load the program, it takes some few times and pops-up with Excel Recover error message box asking whether to send Error Report and to whether recover & start Excel application again??
I don't know what is wrong. Sometimes it also run successfully when in non-editing mode even there is no changes in program codes.??
Sometimes I feel there can be a virtual memory issue, but my Pc is more than enough with 1GB ram. I hv also increased virtual memory limits and tested but all vain attempt...
I have a spreadsheet containing 2 worksheets. First worksheet has my Students Details and the second spreadsheet has their Campus Locations.
What I need to create is a Formula that tells me "What CAMPUS was the student LOCATED at on the Course Completion Date?"
[URL]
what I'm trying to do is as follows:
John Completes his Course on the 25th July 2013, his Student ID is 450.
I need to go to the CAMPUS LOCATION spreadsheet and first search for Johns student ID (450) in column B. Because John is listed in B2,B3 and B4 excel needs to check date in Column E to see if his completion date was before the Date he started at Campus.
If it is then the Campus he was at will be the value of Column D on that line.
If it is not then it needs to search the next line until it satisfies the condition.
How to show progress bar for both percentage completion and time left.
The code below is already created with percentage completion. Just to add time left.
[Code] ........
In my helpdesk spreadsheet, Column C has the date a request is received and Column D has the day it is signed off as complete.
This is used to compare how many days it takes before each request is completed.
Column B is usually blank, but, if the day a request is due to be completed is in the future, such as waterblasting set for 5 working days ahead, then the expected completion date is in Column B. As we don't want a report to show it took five days to complete, when 5 days was waiting for the booked job, we only want five days when we are working on it for five days.
So a typical request is received on Monday 1st January (C), completed on 3rd January (D), taking 3 working days to complete.
A less typical is a request received on Monday 1st January (C), booked to be done on the 4th January, (B). If the job is completed on the 4th, then that will be entered into (D). And we want it show as taking 1 day or less to complete.
I'm quite new to excel formulas , but would like to know the format for
IF B = Empty, then display the days (minus holidays and minus weekends) between C & D.
IF B = non-blank, then display the days (minus holidays and minus weekends) between B & D.
I've tried to play with the Workday function but it and the format of the IF function seem just beyond my grasp, depsite it simplicity, so hopefully a bit more insight as i get to grips with formulas would help me out...
The below is for Excel 2003.
I want to set up a spreadsheet that can show my work is completed within a service level agreement, based on working hours of 9-5 Monday-Saturday.
I want to be able, for example, to log that a piece of work is reported at 09:00 on a Monday and completed at 10:00 on Monday and for excel to calculate that as 1 hour until completion. Fine so far. But what if that job was closed at 10:00 two days later? Based on an 8 hour working day, that should be 17 hours.
And what if a bit of work comes in at 17:00 on the Saturday. No one works the Sunday. Say the job is completed at 10:00 on the Monday. that should calculate as 1 hour to completion.
The SLA I'm setting is 4 hours.
I have a workbook that has twenty data sheets. The user presses a button that copies they're specified sheets to a new workbook and prompts them with the SaveAs Dialog. How do I code it so that if they press the CANCEL button on the SaveAs Dialog it closes the created spreadsheet without saving it?
View 6 Replies View RelatedThis code appears to do opposite of what I intended i.e., when I click 'Yes' button it closes the file without saving; and when I click 'No' button it closes the file with saving?
Private Sub btnExitNewPipes_Click()
If MsgBox("Save the Data?", vbYesNo + vbQuestion, "File Save") = vbYes _
Then ActiveWorkbook.Close SaveChanges = True
ActiveWorkbook.Close SaveChanges = False
End Sub
What I am looking for is a macro/formula that will look at a unit number, then the type of work done, then the completion date and decide if the same type of work was done on the same unit within a 7 day span of time.
Example
Unit is 11111, work is plumbing completion date is 10/4/07
Unit is 11111, work is plumbing completion date is 10/7/07
This means the work has been done 2 times (obviously showing that it did not get fixed the first time)
Is there any way to mark an X in the square with the formula, or any type of identifier what-so-ever
I have attached a spreadsheet and hope it helps
Again I know this is complex so it is OK if no one feels like messing with it but I wanted to check here first.
I am trying to provide a tool for department leaders to monitor productivity for order processing in their departments. The variables I have are: Number of orders(variable), number of pickers (variable), start time(variable). Then, I know each order takes 1 picker 4 minutes to pick on average, and there are 45 minutes worth of breaks during the picking process. So after entering the variables I used =(((C3*4)/60)/D3) to come up with the time needed to process the orders. What I can't get to is how to add this number to the start time, factor in break minutes and get to the projected completion time. I have Excel 2003 at work. Clearly I need to take a class!
View 4 Replies View RelatedMy Splash screen opens a few seconds after the workbook has loaded. Is there a way to make the workbook open minimzed until the the splash screen closes then open properly? What I trying to say is that only the splash screen is visible until it closes.
View 5 Replies View Related