MsgBox Question
There are a couple of options.
1. Check for changes to precidents of the formula
if (target.address = "$G$39" or target.address = "$D$39") _
and range("J39") < .17 then
2. Since your code is very short you could chnge to a selection change event
and just check the value of J39...
--
HTH...
Jim Thomlinson
"ChrisM" wrote:
Hi All,
I would like a message box to appear if the contents of a certian cell is
less than 0.17.
The code I wrote to do this is given below:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target(1), Me.Range("j39")) Is Nothing Then Exit Sub
If Target(1).Value < 0.17 Then
MsgBox ("Error - Minimum Circ must be 17%. Call for Quote")
End If
End Sub
This works if I manually enter the value into cell j39, but I would like
cell J39 to update via a formula. For example, the formula in cell J39 is:
=g39/d39.
A series of check boxes and drop down boxes are used to select the
quantities in cells G39 and J39.
Any insights would be greatly appreciated.
Thank you.
Chris
|