This snippet will check the value of the selected cell and if that value =
214 then it will check cell R1 and if it is equal to or less than zero, a
message will pop up to notifty the user. If the selected cell does not equal
214, or if the cell does equal 214 but R1 is greater than zero, the user
will not receive a notice.


If Selection.Value = 214 Then
If Range("R1").Value <= 0 Then
MsgBox "Cell R1 is zero or less"
End If
Emd Of





"oldjay" wrote in message
...
Thanks

That runs so well I thought I might ask you
for the code that will be inside a macro. If the selected cell =214 then
check to be sure there is a value greater than zero in cell R1 if not
error
message

"JLGWhiz" wrote:

The code should have been put in the worksheet code module if the title
line
of Private Sub Worksheet_SelectionChange() is used. Then when you select
a
cell on the worksheet, if it is in column C it will trigger the
procedure.
If you want to use a command button to run the procedure, you will need
it
written differently and the procedure to check the cells should be put in
the public module.

For the command button:

Private Sub CommandButton1_Click()
Call ChkColC
End Sub

For the public Module1

Sub ChkColC()
If ActiveCell.Column = 3 Then
If Not IsEmpty(ActiveCell) And ActiveCell < "" Then
MsgBox "Has Data"
Else
MsgBox "No Data"
End If
End If
End Sub





"oldjay" wrote in message
...
I inserted Call Worksheet_SelectionChange and Call
Worksheet_SelectionChange(ByVal Target As Range) as the first line of
my
Command Button to check for a proper selection but get an error message
"Argument not Optional"

"JLGWhiz" wrote:

Give this a shot.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Cells.Count = 1Then
If Not IsEmpty(Target) And Target < "" Then
MsgBox "Has Data"
Else
MsgBox "No Data"
End If
End If
End Sub



"oldjay" wrote in message
...
This code must be inserted in a sub routine so that the code doesn't
continue
if a empty cell has been selected. as written it gives an error 424
'Object
required"

"Wouter HM" wrote:

Hi oldjay

You can use the worksheet event shown below:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Be sure to look at a single cell
If Target.Cells.Count = 1 Then
' Check if a cell iu column C is selected
If Target.Column = 3 Then
' Check id the selected cell is empty
If IsEmpty(Target) Then
MsgBox "On empty cell"
End If
End If
End If
End Sub


HTH,

Wouter
.



.



.