Message Box Help

[Scarecrow]

Im new to excel and have just been finding out the basics of macros. Can anyone tell me how to make a message box appear when a certain cells value reaches 0?

[David]

Try this it tests A6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A6").Value = 0 Then MsgBox ("Value = 0")

End Sub
--
David


"Scarecrow" wrote:

>
> Im new to excel and have just been finding out the basics of macros. Can
> anyone tell me how to make a message box appear when a certain cells
> value reaches 0?
>
>
> --
> Scarecrow
> ------------------------------------------------------------------------
> Scarecrow's Profile: http://www.excelforum.com/member.php...o&userid=35364
> View this thread: http://www.excelforum.com/showthread...hreadid=551335
>
>

[Norman Jones]

Hi Scarecrow,

Try:

'=============>>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range

Set rng1 = Me.Range("A1") '<<==== CHANGE

On Error Resume Next
Set rng2 = Intersect(Target, rng1.Precedents)
On Error GoTo 0

If Not Intersect(rng1, Target) Is Nothing _
Or Not rng2 Is Nothing Then
With rng1
If Not .Value = "" And .Value = 0 Then
MsgBox rng1.Address(0, 0) & " value = 0"
End If
End With
End If

End Sub
'<<=============

This is worksheet event code and should be pasted into the worksheets's code
module (not a standard module and not the workbook's ThisWorkbook module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.


---
Regards,
Norman



"Scarecrow" <[email protected]> wrote
in message news:[email protected]...
>
> Im new to excel and have just been finding out the basics of macros. Can
> anyone tell me how to make a message box appear when a certain cells
> value reaches 0?
>
>
> --
> Scarecrow
> ------------------------------------------------------------------------
> Scarecrow's Profile:
> http://www.excelforum.com/member.php...o&userid=35364
> View this thread: http://www.excelforum.com/showthread...hreadid=551335
>