Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
logistics of application and procedures
I am providing templates for the employees in the office.
Each of their files(which acts as a template for them to continually use, example jmaytimesheet.xls it contains: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Ans As Integer Ans = MsgBox("Is your Timesheet complete and ready" & vbLf & "for Submission to the Payroll Office?" & vbLf & "Answering No will Save it for Further" & vbLf & "Input the Next time you return", vbYesNoCancel, "Your Timesheet Status") If Ans = vbYes Then SendToProcessing If Ans = vbNo Then ThisWorkbook.Save End If End Sub and Sub SendToProcessing() Dim PEDate As String Dim ECode As String Dim SFolder As String PEDate = Format(Range("H2"), "mmddyyyy") ' H2 = 5/28/04 as example ECode = Range("C4").Value 'C4 = MAYJ as example ChDir "C:\My Documents\Paymaster\PRBackUp\" ActiveWorkbook.SaveCopyAs PEDate & ECode & ".xls" End Sub All files contained in C:\My Documents\Paymaster\PRBackUp \are to be e-mailed to the person that preapres the Payroll every two weeks. When the Payroll person opens each file and Prints it out for their records << which is OK But when they try and close each one the Workbook_BeforeClose macro runs. How can I remove this from the files that have been Saved as 052804MAYJ.xls so that this situation doesn't occur? Any other advice you see let me know? Tks in Advance, |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Separating sub procedures | Excel Discussion (Misc queries) | |||
macro to close excel application other than application.quit | Excel Programming | |||
Using Sub-procedures w/in a function | Excel Programming | |||
what's wrong with this sub procedures? | Excel Programming | |||
VBA -- procedures as arguments? | Excel Programming |