ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Excell Random number (https://www.excelbanter.com/excel-programming/402710-excell-random-number.html)

Lacoran

Excell Random number
 
I am using the rand() function in Visual basic to find a specific number on a
list and bring up the value from 2 cells over. I have got all that but the
list does not contain all number from 1 to 100. for example there is no 23
so when rand comes up with 23 the macro gets an error. is there a way in VB
that if it get that error it goes to the next integer 1 higher and
conditiunes that until it gets a number that works

JLGWhiz

Excell Random number
 
You could use On Error GoTo Restart:

example:

Sub Rand#()
Restart:
'your regular code
On Error GoTo Restart:
'execute Rand()
On Error GoTo 0
End Sub

"Lacoran" wrote:

I am using the rand() function in Visual basic to find a specific number on a
list and bring up the value from 2 cells over. I have got all that but the
list does not contain all number from 1 to 100. for example there is no 23
so when rand comes up with 23 the macro gets an error. is there a way in VB
that if it get that error it goes to the next integer 1 higher and
conditiunes that until it gets a number that works


Jerry W. Lewis

Excell Random number
 
If you assign a random number to each of the used ID numbers, and sort both
by the random numbers, then you will have a random ordering of the avilable
numbers.

Jerry

"Lacoran" wrote:

I am using the rand() function in Visual basic to find a specific number on a
list and bring up the value from 2 cells over. I have got all that but the
list does not contain all number from 1 to 100. for example there is no 23
so when rand comes up with 23 the macro gets an error. is there a way in VB
that if it get that error it goes to the next integer 1 higher and
conditiunes that until it gets a number that works



All times are GMT +1. The time now is 09:45 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com