Message Box Help
 

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

--
Scarecro
-----------------------------------------------------------------------
Scarecrow's Profile: http://www.excelforum.com/member.php...fo&userid=3536
View this thread: http://www.excelforum.com/showthread.php?threadid=55133

Message Box Help
 

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

Message Box Help
 

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" wrote
in message ...

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