Numeros aleatorios

Entendido... era válida y rápida. A veces somos algo perfeccionistas y eso
se puede convertir en un defecto.
Espero que lo de no dormir 'a veces' no sea muy a menudo, pues de ser así
vamos a coincidir en mas de una ocasión a horas intespectivas
Saludos.



"Héctor Miguel" escribió en el mensaje
news:

hola, chicos !

> Jesús Román escribio en el mensaje
> Hola madrugador!!! ... un pequeño fallo en la formula ... repite alguna

vez los numeros [...]

=> ¡ cierto !!!
'tendras que'... re-calcular el modelo =>{F9}<= una o dos veces

'cada...' [que se de el caso] :((

[solo me parecio la manera 'mas rapida'... al fin que... se trata de

'dejar al azar' el resultado] ;)

=> aahhh ! con respecto a lo de 'madrugador'... 'chas gracias [lo

que pasa es que 'a veces'... no duermo] :(

>> Fernando Arroyo escribio en el mensaje
>> Hace ... tiempo se planteo ... lo mismo ... siguiente sub [...]
>> ... hazlo en un libro vacio ... vuelca los 6 números en el rango A1:A6

de Hoja1, y si hubiera algún dato [...]

=> una 'variante' [pudiera ser] una funcion que 'devuelva' una cadena de

texto [donde 'se llame'] +/- como:

[esta propuesta es SOLO porque la funcion 'split' NO 'funciona' en

excel '97... y... 'todavia' esta 'vigente'] ;)

Function Loteria() As String
Dim Sig As Integer, Bolita As New Collection, Bolitas As Variant
Application.Volatile
Do: On Error Resume Next
Bolitas = Int((Rnd * 49) + 1)
Bolita.Add Bolitas, CStr(Bolitas)
Loop Until Bolita.Count = 6
Bolitas = ""
For Sig = 1 To 6
If Bolitas <> "" Then Bolitas = Bolitas & "."
Bolitas = Bolitas & Bolita.Item(Sig)
Next
Loteria = Bolitas
End Function

saludos,
hector.