aleatorio excluyendo numeros

[Rafael]

Hola,

Como puedo usar la función aleatorio.entre entre un rango de numeros
exluyendo ciertos números?

Gracias

Rafael

[David]

¿Vale que construyas tu propia función?

Podrías implementar algo como esto:

Function Aleatorios(Número_Inicial As Integer, Número_Final As Integer,
Rango_A_Excluir As Range)
Application.Volatile
Dim N As Integer, Salir, Igual As Boolean
Randomize
Do
N = Round(Rnd() * (Número_Final - Número_Inicial) + Número_Inicial, 0)
Salir = True
For Each celda In Rango_A_Excluir.Cells
If celda.Value = N Then Salir = False
Next celda
Loop Until Salir
Aleatorios = N
End Function

Una observación final: Una función volátil se recalcula cada vez que haces
un cambio en tu hoja electrónica. Si generas una gran cantidad de valores
con esta función, probablemente se ralentice tu Excel. En ese caso, puedes
anular la línea "Application.volatile", y para forzar el cálculo de nuevos
valores, borras y vuelves a escribir cualquier valor de los parámetros de
entrada.

- - - - - -

"Rafael" escribió: