Do Until with multiple condidtions

[alexaronson]

Hello

I am writing some code that ask a user to input two variabls via an InputBox.

In order for the down stream code to work there are 3 conditions that have to be met.
1) startValue > 0
2) endValue < 100
3) startValue < endValue

I am trying to use a Do Until function, but I cannot seem to figure out how to get it reprompt the user until all 3 conditions are met.

Here is what I have so far.

Dim startValue as Integer, endValue as Integer

startValue = InputBox(Prompt:="Please enter the least number of days to compute an average with greater than 0.")
endValue = InputBox(Prompt:="Please enter the most number of days to compute an average with.  100 is the max")

Do Until startValue < endValue
    startValue = InputBox(Prompt:="Please enter the least number of days to compute an average with must be less than the most number of days, please enter agian.")
    endValue = InputBox(Prompt:="Please enter the most number of days to compute an average with must be more than the least number of days.  100 is the max")
Loop

Thanks for any help you can give!

 

[phxsportz]

Do Until startValue < endValue AND startvalue > 0 and Startvalue < 100

 

[VoG]

Try

Do Until startValue < endValue And startValue > 0 And endValue < 100

 

[Norie]

Why don't you try a useform rather than inputboxes?

It could have textboxes for the 2 values and a command button to continue with the code.

That command button could be disabled until the criteria are fulfilled.

 

[alexaronson]

Thanks VoG and phxsportz. The line changed worked.

Norie,

How do I create a userform? I have never heard of that before. Also what is the advantage of the userform over the Do Until statement?

Thanks for the education and help to all!

 

[VoG]

Here's an introduction to UserForms http://www.contextures.com/xlUserForm01.html

 

[Norie]

Well to create a userform goto the VBE (ALT+F11) and then Insert>Userform.

You should now see a blank userform and also a Toolbox.

From the toolbox you can add various controls to the userform. eg textboxes, command buttons etc.

I don't know if there is any advantage per se of using a userform but it might allow you more control over what's happening.

You could even restrict the values the user can enter by using a listbox or combobox.