Restrict Data Entry, data validation

I have a cell that is populated through a formula, I was hoping to have an
error to display if the formula brings that cell below zero. I would also
like to cancel the event that lead up to this error.

Any ideas?

Paste following code in worksheet's code
(right-click on sheet tab, select Code)

'--------------------------
Private Sub Worksheet_Calculate()
If Range("A1").Value < 0 Then
MsgBox ("Below zero")
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
'------------------------------------

HTH
--
AP


"Dan Connors" <[email protected]> a écrit dans le message
de news:[email protected]...
> I have a cell that is populated through a formula, I was hoping to have an
> error to display if the formula brings that cell below zero. I would also
> like to cancel the event that lead up to this error.
>
> Any ideas?

Fantastic! Thank you so much.

"Ardus Petus" wrote:

> Paste following code in worksheet's code
> (right-click on sheet tab, select Code)
>
> '--------------------------
> Private Sub Worksheet_Calculate()
> If Range("A1").Value < 0 Then
> MsgBox ("Below zero")
> Application.EnableEvents = False
> Application.Undo
> Application.EnableEvents = True
> End If
> End Sub
> '------------------------------------
>
> HTH
> --
> AP
>
>
> "Dan Connors" <[email protected]> a écrit dans le message
> de news:[email protected]...
> > I have a cell that is populated through a formula, I was hoping to have an
> > error to display if the formula brings that cell below zero. I would also
> > like to cancel the event that lead up to this error.
> >
> > Any ideas?
>
>
>

Thanks for the feedback!
--
AP

"Dan Connors" <[email protected]> a écrit dans le message
de news:[email protected]...
> Fantastic! Thank you so much.
>
> "Ardus Petus" wrote:
>
> > Paste following code in worksheet's code
> > (right-click on sheet tab, select Code)
> >
> > '--------------------------
> > Private Sub Worksheet_Calculate()
> > If Range("A1").Value < 0 Then
> > MsgBox ("Below zero")
> > Application.EnableEvents = False
> > Application.Undo
> > Application.EnableEvents = True
> > End If
> > End Sub
> > '------------------------------------
> >
> > HTH
> > --
> > AP
> >
> >
> > "Dan Connors" <[email protected]> a écrit dans le
message
> > de news:[email protected]...
> > > I have a cell that is populated through a formula, I was hoping to
have an
> > > error to display if the formula brings that cell below zero. I would
also
> > > like to cancel the event that lead up to this error.
> > >
> > > Any ideas?
> >
> >
> >