Popup Error Messages For incompleet Sheet

[stokie21]

Hi Guys, Is there a way I can make an error message popup if cells are left empty.

As an example Say cell A2 needed a name to be entered and it was missed, as i press the save button can i have a message that says " you have not filled in cell A2 " ect ect

I have made a sheet and staff are missing silly things like yes no answers!!

Thanks

 

[wigi]

Do you understand what < 19 is doing? That should be the correct number of cells.

 

[stokie21]

right changed that number 19 to a number 9 and that sorted it!!

 

[stokie21]

Wigi , That was my next question

Thank you for the fast answer!!

 

[wigi]

And now you'll probably understand my post here:
http://www.mrexcel.com/forum/showpost.php?p=2797137&postcount=8

Glad it's solved but you see that VBA code isn't always a better solution when there are alternatives without VBA

 

[stokie21]

its working fine now, But it needs a tweek!!

I have entered all the info that i want,and checked the numbers match the cells and they do. The sheet is still saying to enter all info,here are the correct cells and code:

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If WorksheetFunction.CountA(Range("C11,H11,C13,H14,C16,C18,C20,D23,D25,I25,C27,F27,D29,I33")) < 19 Then
    Cancel = True
    MsgBox "You must complete all fields", vbExclamation, "NOT SAVED"
End If
End Sub

2nd problem say i open the sheet by mistake, as its on my desktop the sheet will not just close it says i need to enter the info!
I know thats its job but it needs a tweek!!

Can we tweek the code so that it will kick in as soon as something is entered in cell C11 ? if nothing is entered then the rule will not apply?

I am almost there, Problem 2 Still stands Any idea how to fix this?

 

[wigi]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sheet1").Range("C11").Value <> "" And WorksheetFunction.CountA(Sheets("Sheet1").Range("H11,C13,C16,C18,D23,I25,C27,D29")) < 8 Then
    Cancel = True
    MsgBox "You must complete all fields", vbExclamation, "NOT SAVED"
End If
End Sub

 

[stokie21]

Thank You Wigi And Vog for your help

Sheet Done and working ( for now )

Thank You Both