Check for missing cells before allowing it to be saved

[bdhobbs1]

I'm not very good with VBA and Macros. I've google and tried many different formulas, no luck.

I've got an excel spreadsheet where I need several fields to have data entered in them before allowing a save to take place.

My boss wants it to check for blank fields before you click the share button, I'm not sure that can be done.

Only 1 worksheet... the share button is going to be used by the Operator who will send it to the Supervisor.

Thanks for any input you give me.

 

[Logit]

The following checks two cells for content. If either or both are empty, the user cannot close the workbook.
You can add more cells to the list in the macro to match your project, as well as edit to have it more conform
to your needs. The code goes in the THISWORKBOOK module.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    If Sheet1.Range("A2").Value = "" Or Sheet1.Range("C2").Value = "" Then
        MsgBox "You missed something !", vbCritical, "Error"
        Cancel = True
    End If

End Sub

 

[bdhobbs1]

The following checks two cells for content. If either or both are empty, the user cannot close the workbook.
You can add more cells to the list in the macro to match your project, as well as edit to have it more conform
to your needs. The code goes in the THISWORKBOOK module.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
    If Sheet1.Range("A2").Value = "" Or Sheet1.Range("C2").Value = "" Then
        MsgBox "You missed something !", vbCritical, "Error"
        Cancel = True
    End If

End Sub

Thanks, but what about a before save option instead of a before close?
My worksheet is called Operator and the range is BA32 to BA41 if that helps you.

 

[Rick Rothstein]

This appears to be cross-posted on the ExcelForum forum.

 

[Logit]

The same module has a Before Save feature as well :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

You can put the macro inside there and paste it to the THISWORKBOOK module.


If you have cross posted your request for assistance on other forums, you must provide the links to those posting here and on the other forums as well. Rules.

 

[Peter_SSs]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Check for missing cells before allowing it to be saved
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[bdhobbs1]

Thanks for the replies, I just can't get anything to work on my end.

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Also Cross posted at: Check for missing data in cells before saving
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.