Stupid fingers!

You may want to try the select case structu

Select case tr
case is = 4
select case rn
case is = 4:bn=1
case is = 3:bn=2
case is = 2:bn=3
case is = 1:bn=4
end select
case is = 8888 '
select case rn 'do more tests here
case is = 4:bn=1
case is = 3:bn=2
case is = 2:bn=3
case is = 1:bn=4
end select
end select

======
But sometimes, you can use math:

if tr = 4 then
bn = 5 - rn
else...


Little Penny wrote:

I have a code the based on the user input of tr and rn will determine
the value of bn.
I tried to structure it as you see below but it does not pass bn on to
when it needs to be used.

Any help would be appreciated.

tr, bn and rn are declard as long

tr = InputBox("TOTAL BOXES IN THIS ORDERB.")
rn = InputBox("THIS IS BOX NUMBER?")

If tr = 4 Then

ElseIf rn = 4 Then bn = 1
ElseIf rn = 3 Then bn = 2
ElseIf rn = 2 Then bn = 3
ElseIf rn = 1 Then bn = 4



End If

If tr = 3 Then


ElseIf rn = 3 Then bn = 1
ElseIf rn = 2 Then bn = 2
ElseIf rn = 1 Then bn = 3



End If

If tr = 2 Then


ElseIf rn = 2 Then bn = 1
ElseIf rn = 1 Then bn = 2



End If

Thanks

Little Penny

--

Dave Peterson