Select an Option and Invoke the Appropriate Code

[Gos-C]

Hi all,

I have the following codes:

Sub oRiskBasedMin()
Dim rskMin As Integer
If Range("EI1") <= 299 Then
        rskMin = 50
ElseIf Range("EI1") <= 499 Then
        rskMin = 75
    ElseIf Range("EI1") <= 699 Then
            rskMin = 100
        ElseIf Range("EI1") <= 4999 Then
                rskMin = 120
            ElseIf Range("EI1") >= 5000 Then
                    rskMin = 175
End If

Range("EJ1") = rskMin

End Sub

Sub iRiskBasedMin()
Dim rskMin As Integer
If Range("EI1") <= 299 Then
        rskMin = 50
ElseIf Range("EI1") <= 499 Then
            rskMin = 100
    ElseIf Range("EI1") <= 699 Then
                rskMin = 125
        ElseIf Range("EI1") <= 999 Then
                    rskMin = 150
            ElseIf Range("EI1") <= 4999 Then
                        rskMin = 175
                ElseIf Range("EI1") >= 5000 Then
                            rskMin = 225
End If

Range("EJ1") = rskMin

End Sub

I want to have the user select either Online or In-Store, and then invoke the appropriate code: If the user selects Online, use the oRiskBasedMin code; if the user selects In-Store, use the iRiskBasedMin code.

Any help, please?

Thank you,
Gos-C

 

[Ruddles]

You could use a MsgBox but that only allows Yes and No, so the wording of the prompt in the box would be a bit laboured.

InputBox relies on the user typing something and then clicking OK, so that would be similarly clunky.

I would probably create a small userform with two buttons captioned Online and In-Store, and have each one call the appropriate subroutine when clicked. At the point where you want the user to decide, simply .Show the form.

Consider having a Cancel button too, if appropriate.

 

[Gos-C]

Thank you, Ruddles. I will try the userform listbox.

Regards,
Gos-C

 

[Ruddles]

Listbox? It sounds from your description that a pair of command buttons would do the job:-

 

[Gos-C]

Looks good! Thank you, Ruddles. I will certainly follow your advice.

Cheers,
Gos-C