sorteo tour en excel

Si nos explicas qué quieres hacer...


"dido" escribió en el mensaje
news:
Hola!

Me han mandado hacer el sorteo para la porra del tour, y uno me ha
comentado que cree que se puede hacer en excel, pero que no sabe cómo.
Por si alguien me quiere echar una mano, son 189 corredores, pero hay
que quitar el 10, 20, 30... ya que no hay esos dorsales. Somos 21 en la
porra.


Un saludo,

Ejemmm... nomesplicobien...

Quiero que salgan en una fila aleatoriamente los números del 1 al 181.
He mirado en el grupo pero solo encuentro fórmulas que sacan números
que se repiten, y quiero que no se repitan. O sea, algo asi como
=ENTERO(ALEATORIO()*181)+1, pero que no se repitan. Si se puede, claro
:-)

Prueba con el siguiente código, pero hazlo en uno nuevo que tenga una hoja llamada Hoja1 (es donde el código volcará los datos):

Sub prueba()
Dim col1 As New Collection, col2 As New Collection
Dim bElem As Byte
Dim n As Integer

For n = 1 To 181
col1.Add n
Next n

For n = 181 To 1 Step -1
bElem = Int((n) * Rnd + 1)
col2.Add col1(bElem)
col1.Remove bElem
Next n

For n = 1 To 181
Worksheets("Hoja1").Cells(n, 1) = col2(n)
Next n
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel
www.excelesp.com


"dido" escribió en el mensaje news:
Ejemmm... nomesplicobien...

Quiero que salgan en una fila aleatoriamente los números del 1 al 181.
He mirado en el grupo pero solo encuentro fórmulas que sacan números
que se repiten, y quiero que no se repitan. O sea, algo asi como
=ENTERO(ALEATORIO()*181)+1, pero que no se repitan. Si se puede, claro
:-)

Vaya, lo he hecho y me ha salido perfecto :-)))))))))))))

muchísimas gracias Fernando!!