URGENT: How To Pop Up Message Box If Cell Greater Or Less Than A Specific Value In Excel?

[Emanuel1980]

Hi,

I'm using the below code to pop a message box whenever the value of cells in column "J" is greater than 8. The target value which is 8 in this case is in Cell A1.

The issue i'm having here is i get the pop up for any value that is entered whcih should not be the case. It must pop up only when the value is greater "8"

PLEASE HELP

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
Dim rngJ As Range, rngA As Range
xA = "A1"
Set rngJ = Application.Intersect(Target.EntireRow, Range("J1").EntireColumn)
Set rngA = Application.Intersect(Target.EntireRow, Range("A1").EntireColumn)
If rngJ.Value > rngA.Value Then
MsgBox Prompt:="The hours entered is greater than your scheduled working hours, please enter less than or equal to 8 hours! THANK YOU", Title:="Infovision Social"
Target.Value = ""
End If
End If
End Sub

 

[moe10134]

You don't need VB code to do this. You can use Data Validation in the Data Tools under the Data tab.
Highlight the column and select Data Validation.

Settings:
Allow = Whole Number
Data = Less than
MAX= 8

Error Alert tab
Check the box to Show error alert after invalid data is entered.
Style: Stop, Warning or INformation
Title = STOP
Error Message = You are over 8 hours!

Give it a try and see if you like that.

 

[moe10134]

Sorry - MAX = 9 then you can enter 8 for hours.

 

[Emanuel1980]

Sorry - MAX = 9 then you can enter 8 for hours.

Thank you for your response.

I tried that earlier and it wouldn't work. Hence i took the VBA route.