DISTRIBCUCI0N ALEATORIA

Te transcrivo esta rutina cuya autoria es de Fernando
Arroyo y hace lo que tu pides... estudiala y ajustala a
tus necesidades:

Sub Aleatorio1_10()
Dim v As Byte, s As String, m As Variant
'Crear la matriz con los 10 números
Do
v = Int((10 - 1 + 1) * Rnd + 1)
If InStr(s, Right("0" & v, 2)) = 0 Then
s = s & IIf(Len(s) = 0, "", ",") & Right("0" & v, 2)
End If
m = Split(s, ",")
If UBound(m) = 9 Then Exit Do
Loop

'Volcar matriz a hoja
For v = 1 To 10
Worksheets("Hoja1").Range("G" & v + 5) = m(v - 1)
Next v

'Ordenar rango A1:A6
Worksheets("Hoja1").[E6:G15].Sort _
Key1:=Range("G6"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Saludos
Servando Villalon

Hola, me gustaria saber si en excel se puede hacer un

distribucion aleatoria sin repeticion de los elementos.
Lo he intentado con los formatos condicionales, no igual
a un rango de celdas, pero no funciona. lo que intentaria
mas o menos seria en cada celda de forma aleatoria un
numero, entre 1 y 10, en la siguiente tambien entre 1 y
10 pero evitando el anterior, la siguiente evitando los
dos anteriores etc, pero no lo consigo. Gracias

.

No se si te entiendo pero ahi te va.


Por ejemplo en celdas

A1:a10 pon los numeros que deseas

en columna b1:b10 pon la funccion =Rand() ojo que en español yo creo
que el nombre de esta funccion es diferente pero es facil de encontrar.


ahora selecciona las dos columnas y ordena la column B.


Suerte

Cesar Zapata

DISTRIBUCION ALEATORIA wrote:

Hola, me gustaria saber si en excel se puede hacer un distribucion aleatoria sin repeticion de los elementos. Lo he intentado con los formatos condicionales, no igual a un rango de celdas, pero no funciona. lo que intentaria mas o menos seria en cada celda de forma aleatoria un numero, entre 1 y 10, en la siguiente tambien entre 1 y 10 pero evitando el anterior, la siguiente evitando los dos anteriores etc, pero no lo consigo. Gracias