Change randbetween amount in code

[RAJESH SHAH]

Hello code experts
I have this code which displays amount with randbetween varying from 100-9900 in the extract sheet. I need your help to edit the code and change the randbetween amount to 50250-99500. I also want the figures to be round off like 50250, 51000, 51750, etc., and not 50251,50252, and so on.

[TMS]

To drop the least significant digit, use, for example,

Please Login or Register  to view this content.

[RAJESH SHAH]

TMS. The code was shared by beyond excel in this group. It is perfect for getting random amounts between maybe 100 to 9990.
The code is so complicated for me to understand. Only if there were any comments at the end of each line, it would have helped me to edit whenever necessary. I am not able to figure out which line does what. Can you please edit the code and help me get the expected result which is figures between 50250 to 99750.

[TMS]

I am currently using an iPad so I can’t see code in workbooks. Post the code in the thread.

[TMS]

Or post a link to the thread where the solution was provided, assuming the code was posted in the thread.

[RAJESH SHAH]

[TMS]

Use Code tags, not HTML tags.

[RAJESH SHAH]

I forgot. How do I use code tags. Done. I will try to find the link and if found I will share it here.

[RAJESH SHAH]

Please Login or Register  to view this content.

[zzzeddy]

This might help..

Please Login or Register  to view this content.

zeddy

[RAJESH SHAH]

What do I define zVal, a and b as ..?

[Andy Pope]

The help on RND gives you the code to do randbetween.
if you reduce the min and max values by a factor of 10 and then increase the random value by a factor of 10 you should get the values required.

Please Login or Register  to view this content.

From VBA Help

To produce random integers in a given range, use this formula:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

[Andy Pope]

Is Randbetween available in xl2007?

[RAJESH SHAH]

I tried and edited this line

Please Login or Register  to view this content.

as

Please Login or Register  to view this content.

and it worked. zeddy, your code gave me the idea and that helped me to corect it. Thanks man. Thanks to TMS for his support.
But there is one issue, I am getting amounts below 50,000 also. Need to edit one more line.

[RAJESH SHAH]

Andy Pope. I think it works in 2007 too and thanks for the response.

[Andy Pope]

If it does then you can use the same approach of reducing the 2 values by 10 and increasing the result by 10.

[RAJESH SHAH]

No. I am unable to understand that. I tried 99,000 but it is showing once again values more than 99,000.

[RAJESH SHAH]

The help on RND gives you the code to do randbetween.
if you reduce the min and max values by a factor of 10 and then increase the random value by a factor of 10 you should get the values required.

Please Login or Register  to view this content.

From VBA Help

To produce random integers in a given range, use this formula:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Your line solved the problem. I edited like this and it gave me the expected result.

Please Login or Register  to view this content.

Thanks Andy Pope

[JohnTopley]

Try

i = Int(WorksheetFunction.RandBetween(52050, 99999) / 10) * 10

[RAJESH SHAH]

That too worked perfectly. Thank you John Topley.