View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Otto Moehrbach[_2_] Otto Moehrbach[_2_] is offline
external usenet poster
 
Posts: 1,071
Default Validation List that will not allow cell to be empty

Cheryl
You did a good job. Thanks for the feedback. Otto
"carusso" wrote in message
...
Thanks, Otto. I had a little trouble getting the macro to work...I think
it
might have had something to do with the text wrapping in the msg box.
I modified it to this (with my specifics) and now it works:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If IsEmpty(Sheets("ADaM General Template").Range("H2").Value) Then
Cancel = True
MsgBox ("XML Data Type must be entered in Cell H2.")
End If
End Sub

Thanks again!
--
carusso


"Otto Moehrbach" wrote:

Cheryl
This little macro will fire when the user attempts to save the
workbook.
As written, this macro will check cell F5 in a sheet named "TheShtName".
If
the cell is blank, a message box will appear telling him that the Save
command has been cancelled and that F5 in sheet "TheShtName" must have an
entry. This is a workbook event macro and MUST be placed in the workbook
module. In all versions of Excel prior to 2007, you can access that
module
by right-clicking on the Excel icon that is immediately to the left of
the
word "File" in the menu at the top of the screen and selecting View Code.
"X" out of the module to return to your sheet. HTH Otto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If IsEmpty(Sheets("TheShtName").Range("F5").Value) Then
Cancel = True
MsgBox "The Save command has been canceled. An entry must" &
Chr(13) & _
"be made in sheet TheShtName, cell F5.", 16, "Entry Required"
End If
End Sub

"carusso" wrote in message
...
Hi Otto, thanks for your response. This would definitely solve the
problem.
Me being FAR from being an expert in VBA, I would greatly appreciate
your
help with writing that code.

Thanks!
Cheryl

--
carusso


"Otto Moehrbach" wrote:

Since there is nothing to force the user to even select that cell,
there
is
nothing in Data Validation to prevent the cell from being left blank.
However, there are VBA methods that could be used. For instance, when
the
user saves the workbook or closes the workbook, VBA can check that
certain
cells are in whatever condition you want. If they are not, a message
box
can be displayed to inform the user of what is required, and the
saving/closing can be negated if you wish. Post back if this might
fit
what
you want. HTH Otto
"carusso" wrote in message
...
Hi again all! ;-)

Is there a way to use the Data/Validation/List function to only
allow
users
to only enter Y or N BUT cannot be left empty?

Or is there a Custom formula that will do this?

thanks!
--
carusso