Solved

# If..Then or Case Else

Posted on 2014-03-24
232 Views
Folks,
I am using the code below in a command button click event. It works. So my question is there a better way to do this - like using the Case...Else which I am not "yet" comfortable with?

`````` Dim QtrTotal As Integer
QtrTotal = 1571
If Range("B7") <> QtrTotal Then
MsgBox "1st Qtr Total Hamburgers is incorrect!", vbOKOnly, "Incorrect Answer"
Worksheets("2DLine").Range("B7").ClearContents
Range("B7").Select
Exit Sub
End If
QtrTotal = 1271
If Range("C7") <> QtrTotal Then
MsgBox "1st Qtr Total Milk Shakes is incorrect!", vbOKOnly, "Incorrect Answer"
Worksheets("2DLine").Range("C7").ClearContents
Range("C7").Select
Exit Sub
End If
QtrTotal = 238
If Range("D7") <> QtrTotal Then
Worksheets("2DLine").Range("D7").ClearContents
Range("D7").Select
Exit Sub
End If
QtrTotal = 642
If Range("E7") <> QtrTotal Then
MsgBox "1st Qtr Total Drinks is incorrect!", vbOKOnly, "Incorrect Answer"
Worksheets("2DLine").Range("E7").ClearContents
Range("E7").Select
Exit Sub
End If
``````
0
Question by:Frank Freese
[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
• 2

LVL 36

Accepted Solution

Kimputer earned 500 total points
ID: 39952129
You keep testing different cells with different qrtotals.
On first sight, one might think a case of qrtotals would be sufficient, but it's actually not.
Your code should be as it is. You could put it all in an if then, elseif, elseif, elseif else, but it doesn't help that much for coding or readability reasons.
0

Author Closing Comment

ID: 39952151
thanks...I wasn't heading to la-la land
0

LVL 3

Expert Comment

ID: 39952157
I agree with Kimputer.

I mean, you could use a Case...but then you'd have to update some variable for the cell reference...probably not worth it (and over-complicating things).
0

Author Comment

ID: 39952225
thanks for the affirmation
appreciate it
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabilâ€¦
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calculâ€¦
###### Suggested Courses
Course of the Month4 days, 15 hours left to enroll