Hello,

Hope someone can help with this please...

Using VB in Excel....

A value is entered into a cell in Excel and plotted on my line
chart...

I need a message box to be shown when the value is less than 15,250 or
above 15,310. I cannot get the msgbox to show up....The value is being
entered in cell B1..I have tried to use B1 in the code as an
alternative to TextBox1 but still doesn't work....

My attempt at coding is as follows:

Sub Add_Entry()
Range("A7").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value
TextBox1.Value = ""
Range("B1").Select
If TextBox1.Value 15310 Then MsgBox "Outside Limits - Schedule
Maintenance", vbCritical + vbOKOnly, "Urgent"

End Sub


hope someone can help,

thanks in advance
simon..


--
squoggy
------------------------------------------------------------------------
squoggy's Profile: http://www.excelforum.com/member.php...o&userid=23561
View this thread: http://www.excelforum.com/showthread...hreadid=376005

You can use data - validation to do this. Look at data validation
http://www.contextures.com/xlDataVal01.html

--
HTH...

Jim Thomlinson


"squoggy" wrote:


Hello,

Hope someone can help with this please...

Using VB in Excel....

A value is entered into a cell in Excel and plotted on my line
chart...

I need a message box to be shown when the value is less than 15,250 or
above 15,310. I cannot get the msgbox to show up....The value is being
entered in cell B1..I have tried to use B1 in the code as an
alternative to TextBox1 but still doesn't work....

My attempt at coding is as follows:

Sub Add_Entry()
Range("A7").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value
TextBox1.Value = ""
Range("B1").Select
If TextBox1.Value 15310 Then MsgBox "Outside Limits - Schedule
Maintenance", vbCritical + vbOKOnly, "Urgent"

End Sub


hope someone can help,

thanks in advance
simon..


--
squoggy
------------------------------------------------------------------------
squoggy's Profile: http://www.excelforum.com/member.php...o&userid=23561
View this thread: http://www.excelforum.com/showthread...hreadid=376005

Hello Simon,

You can correct this problem this way...

CORRECTION #1 MOVE CLEARING THE TEXTBOX

Sub Add_Entry()
Range("A7").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value
Range("B1").Select
If TextBox1.Value 15310 Then MsgBox "Outside Limits - Schedul
Maintenance", vbCritical + vbOKOnly, "Urgent"
TextBox1.Value=""
End Sub


Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=37600

Fantastic..many thanks for the prompt response..

I had been staring at the code all day and now its working...

Many thanks once again..

Simon..

--
squogg
-----------------------------------------------------------------------
squoggy's Profile: http://www.excelforum.com/member.php...fo&userid=2356
View this thread: http://www.excelforum.com/showthread.php?threadid=37600