Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Solved
Excel VBA- Using Comparison Operators to Prompt Warning Message
Posted on 2013-01-13
Hi Experts,
I have a text box that holds values of adjusted amounts less than $150.
If the amount entered by the end user is over $150 then a warning message advising the end user to check their entry should generate.
What's happening with my current code is that it's not recognizing any amounts under $99.00 so the warning message pops warning that the amount entered needs to be under $150 when it is.
It'll accept some entries like $12 and $15 but if I enter $79 or $9.99 it'll trigger the warning box to pop when the entries are clearly under $150.
I need assistance modifying the code so that it'll work properly.
Thank you in Advance for your time.
Sample-Workbook.xlsm
I have a text box that holds values of adjusted amounts less than $150.
If the amount entered by the end user is over $150 then a warning message advising the end user to check their entry should generate.
What's happening with my current code is that it's not recognizing any amounts under $99.00 so the warning message pops warning that the amount entered needs to be under $150 when it is.
It'll accept some entries like $12 and $15 but if I enter $79 or $9.99 it'll trigger the warning box to pop when the entries are clearly under $150.
I need assistance modifying the code so that it'll work properly.
Thank you in Advance for your time.
Sample-Workbook.xlsm
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
2
4 Comments
Active today
You are converting number to text before compare. Remove Format and compare value. Something like this:
Private Sub textAdjust_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Me.textAdjust.Value = Format(Me.textAdjust.Value, "$#,###,###.00")
'checks to see if adj amount is less than $150
If Me.textAdjust.Value > "150" Then
MsgBox "Adjustment amount should be $150 or Less. Please check the amount entered."
Me.textAdjust.Value = ""
End If
End Sub
... alternatively, (edit: without needing a format change)...
Brian.
Private Sub textAdjust_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.textAdjust.Value = Format(Me.textAdjust.Value, "$#,###,###.00")
'checks to see if adj amount is less than $150
If CDbl(Replace(Me.textAdjust.Value, "$", "")) > 150 Then
MsgBox "Adjustment amount should be $150 or Less. Please check the amount entered."
Me.textAdjust.Value = ""
End If
End Sub
Brian.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications. You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.
Suggested Courses
Course of the Month13 days, 15 hours left to enroll
656 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.