I am trying to check to see if a file is open, if it is then I simply want to activate it and finish the commands in this macro. If not open, then I want to open it
Here's my vb
Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Workbooks.Open Filename:= _
"G:\a Account Information\Active Accounts\Norfolk Academy\Spend Down Forms\15-16\NA 2016 Period 5 Spend Down Form.xls" _
, UpdateLinks:=0
Application.CalculateFull
If Range("F273") > 5 Then MsgBox "The Sum of your Weekly Food Budgets Exceeds your Period Food Budget. Please Correct", vbCritical + vbOKOnly
If Range("J273") > 5 Then MsgBox "The Sum of your Weekly Janitorial Budgets Exceeds your Period Janitorial Budget. Please Correct", vbCritical + vbOKOnly
If Range("N273") > 5 Then MsgBox "The Sum of your Weekly Paper Budgets Exceed your Period Paper Budget. Please Correct", vbCritical + vbOKOnly
If Range("R273") > 5 Then MsgBox "The Sum of your Weekly Labor Budgets Exceed your Period Labor Budget. Please Correct", vbCritical + vbOKOnly
If Range("E72") < -20 Then Range("E71").Select
If Range("E72") < -20 Then MsgBox "Your Spend Down does not match your Week 1 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("E72") > 20 Then Range("E71").Select
If Range("E72") > 20 Then MsgBox "Your Spend Down does not match your Week 1 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("I72") < -20 Then Range("I71").Select
If Range("I72") < -20 Then MsgBox "Your Spend Down does not match your Week 1 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("I72") > 20 Then Range("I71").Select
If Range("I72") > 20 Then MsgBox "Your Spend Down does not match your Week 1 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("M72") < -20 Then Range("M71").Select
If Range("M72") < -20 Then MsgBox "Your Spend Down does not match your Week 1 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("M72") > 20 Then Range("M71").Select
If Range("M72") > 20 Then MsgBox "Your Spend Down does not match your Week 1 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q72") < -20 Then Range("Q71").Select
If Range("Q72") < -20 Then MsgBox "Your Spend Down does not match your Week 1 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q72") > 20 Then Range("Q71").Select
If Range("Q72") > 20 Then MsgBox "Your Spend Down does not match your Week 1 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("E139") < -20 Then Range("E138").Select
If Range("E139") < -20 Then MsgBox "Your Spend Down does not match your Week 2 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("E139") > 20 Then Range("E138").Select
If Range("E139") > 20 Then MsgBox "Your Spend Down does not match your Week 2 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("I139") < -20 Then Range("I138").Select
If Range("I139") < -20 Then MsgBox "Your Spend Down does not match your Week 2 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("I139") > 20 Then Range("I138").Select
If Range("I139") > 20 Then MsgBox "Your Spend Down does not match your Week 2 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("M139") < -20 Then Range("M138").Select
If Range("M139") < -20 Then MsgBox "Your Spend Down does not match your Week 2 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("M139") > 20 Then Range("M138").Select
If Range("M139") > 20 Then MsgBox "Your Spend Down does not match your Week 2 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q139") < -20 Then Range("Q138").Select
If Range("Q139") < -20 Then MsgBox "Your Spend Down does not match your Week 2 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q139") > 20 Then Range("Q138").Select
If Range("Q139") > 20 Then MsgBox "Your Spend Down does not match your Week 2 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("E206") < -20 Then Range("E205").Select
If Range("E206") < -20 Then MsgBox "Your Spend Down does not match your Week 3 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("E206") > 20 Then Range("E205").Select
If Range("E206") > 20 Then MsgBox "Your Spend Down does not match your Week 3 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("I206") < -20 Then Range("I205").Select
If Range("I206") < -20 Then MsgBox "Your Spend Down does not match your Week 3 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("I206") > 20 Then Range("I205").Select
If Range("I206") > 20 Then MsgBox "Your Spend Down does not match your Week 3 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("M206") < -20 Then Range("M205").Select
If Range("M206") < -20 Then MsgBox "Your Spend Down does not match your Week 3 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("M206") > 20 Then Range("M205").Select
If Range("M206") > 20 Then MsgBox "Your Spend Down does not match your Week 3 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q206") < -20 Then Range("Q205").Select
If Range("Q206") < -20 Then MsgBox "Your Spend Down does not match your Week 3 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q206") > 20 Then Range("Q205").Select
If Range("Q206") > 20 Then MsgBox "Your Spend Down does not match your Week 3 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("E273") < -20 Then Range("E272").Select
If Range("E273") < -20 Then MsgBox "Your Spend Down does not match your Week 4 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("E273") > 20 Then Range("E272").Select
If Range("E273") > 20 Then MsgBox "Your Spend Down does not match your Week 4 Food Actual. Please Correct", vbCritical + vbOKOnly
If Range("I273") < -20 Then Range("I272").Select
If Range("I273") < -20 Then MsgBox "Your Spend Down does not match your Week 4 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("I273") > 20 Then Range("I272").Select
If Range("I273") > 20 Then MsgBox "Your Spend Down does not match your Week 4 Janitorial Actual. Please Correct", vbCritical + vbOKOnly
If Range("M273") < -20 Then Range("M272").Select
If Range("M273") < -20 Then MsgBox "Your Spend Down does not match your Week 4 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("M273") > 20 Then Range("M272").Select
If Range("M273") > 20 Then MsgBox "Your Spend Down does not match your Week 4 Paper Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q273") < -20 Then Range("Q272").Select
If Range("Q273") < -20 Then MsgBox "Your Spend Down does not match your Week 4 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
If Range("Q273") > 20 Then Range("Q272").Select
If Range("Q273") > 20 Then MsgBox "Your Spend Down does not match your Week 4 Productive Labor Actual. Please Correct", vbCritical + vbOKOnly
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks("NA 2016 Period 5 PFR.xls").Activate
Sheets("Period Consolidated Proforma").Select
End Sub
Display More