If statement

[TheMatrixReloaded]

Here is the code:

With Sheets("Order Table").Range("B" & intcurrentrow)
If lstOrderType = "Delivery" Then
.Value = "Delivery"
ElseIf lstOrderType = "Carry-Out" Then
.Value = "Carry-Out"
Else
.Value = "Eat-In"
End If
End With

The only value i get in the range is Eat-In.

[bergy]

I tried your code and it worked for me. Are you sure you are passing the right variable names (spelled correctly, right number of spaces...)?

[TheMatrixReloaded]

Yes, here is my updated code, still getting "Eat-In" for value in range.

With Sheets("Order Table").Range("B" & intcurrentrow)
If cboOrderType = "Delivery" Then
.Value = "Delivery"
ElseIf cboOrderType = "Carry-Out" Then
.Value = "Carry-Out"
Else
.Value = "Eat-In"
End If
End With

[bergy]

On 2002-05-07 09:33, TheMatrixReloaded wrote:
Yes, here is my updated code, still getting "Eat-In" for value in range.

With Sheets("Order Table").Range("B" & intcurrentrow)
If cboOrderType = "Delivery" Then
.Value = "Delivery"
ElseIf cboOrderType = "Carry-Out" Then
.Value = "Carry-Out"
Else
.Value = "Eat-In"
End If
End With

When you say you only get "Eat-In" for a value, do you mean in every case? If that's the case, then you must not be passing a correct value for "Delivery" or "Carry-Out". Have you tried setting a watch on the cboOrderType variable to check what the value is?

[bergy]

I noticed in your code that cboOrderType could equal any value besides "Dinner" and Carry-Out" and it would place "Eat-In" in the range. It never checks to see what happens if it says something else. Try this replacement code:

With Sheets("Order Table").Range("B" & intcurrentrow)
If lstOrderType = "Delivery" Then
.Value = "Delivery"
ElseIf lstOrderType = "Carry-Out" Then
.Value = "Carry-Out"
ElseIf lstOrderType = "Eat-In" Then
.Value = "Eat-In"
Else
.Value = "Incorrect Value"
End If
End With

[TheMatrixReloaded]

Now it comes up with "Incorrect Value", so its skipping through all the other if's, and going straight to the last one. I can't figure it out. I can send u the file if you want to look at it first hand.

[bergy]

Why don't you place a watch on cboOrderType and place a breakpoint at the first 'IF' statement. It will show you what value is assigned to "cboOrderType". I really believe this is the problem. "cboOrderType" is not the value you think it is. It might be something simple as an extra space.

[NateO]

It may not be incorrect in the file that's one the way...Should be careful how many people you get cracking on this at one time, it's not considerate to have 30 people all reinventing the wheel at once.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-07 12:11 ]