Message box on value

[OptionTrader]

Hi all,

I need to trigger a message box if 2 conditions are met: A1>1 and A2>1 Message "Limit Exceeded".

On searching I've found some code but can't get it to work;

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Value > Target Then MsgBox _
"Please complete commentary section", vbCritical, "Input required"
End Sub

But can't get it to work. What is the "Target.Column" Refering to please ?

[davesexcel]

Give this a go

Please Login or Register  to view this content.

[OptionTrader]

Thanks Dave, but doesn't work. Nothing happens when A1 and A2 exceed 1

[davesexcel]

Thanks Dave, but doesn't work. Nothing happens when A1 and A2 exceed 1

Sure it does, or I would not have replied.

If it does not work in the worksheet_change then use the selection_change

Are A1 and A2 Formulas?

[OptionTrader]

Sure it does, or I would not have replied.

If it does not work in the worksheet_change then use the selection_change

Are A1 and A2 Formulas?

Tried the selection_change and still nothing happens. A1 and A2 are not formulas, but values typed in by the operator.

I must be doing something very basic wrong, but what ?

[davesexcel]

Did you put the code in the worksheet module?

Right click on the sheet tab and select view codes.

[jeffreybrown]

You also might need to reset application.EnableEvents = True

In the VBE select Ctrl+G and then enter in the box provided application.EnableEvents = True and hit enter.

[OptionTrader]

Application.EnableEvents=True and still nothing

See screen shot below...

[davesexcel]

Application.EnableEvents=True and still nothing

See screen shot below...

You did not place the code in the worksheet module.

Right click on the sheet tab and select view codes, paste the code there.

[OptionTrader]

Many thanks.