Save excel file based on a cell condition

[russelldt]

I want to be able to save an excel file, only when specific data have been entered

I can create an if(and( formula to validate the input that is required, and place the result “1” in cell A1. If cell A1 is 1, the file can be saved, (not save as). If cell A1 is ‘0’, a message should appear to complete data in the cells.

Thanks

 

[russelldt]

It will be with if you add the "Application.quit" code.

Sub Workbook_BeforeSave()
If Sheets("Sheet1").Range("A1") = 1 Then
    ActiveWorkbook.Save
    Application.Quit
Else
    MsgBox "You are missing data"
End If
End Sub

 

[russelldt]

Thanks. Is this run a Macro? As I don’t see the macro() command

 

[petertenthije]

Yes you can use this as a macro. You can assign it to an object as well if you like.

Thanks. Is this run a Macro? As I don’t see the macro() command

 

[russelldt]

Yes you can use this as a macro. You can assign it to an object as well if you like.

Many thanks

 

[russelldt]

Many thanks

Hello,

I have encountered a small problem with this macro. I often have more than one file open at the same time. When i activate the macro in the file i am working with (call it File 1), the file saves, and closes, but then I get a popup that prompts me to save the next open file (say File 2). If i chose not to save File 2 (i.e. select Cancel), the original file (File 1) does not save and returns.

I would appreciate if you could have a look at this and help with a solution that only closes the file i am actually working on, not any other open files.

Thank you