Numeros aleatorios

el chiste del melate es poner los numeros que le latan a uno, no los que
diga la computadora...jeje

Saludos

Manolo
Cancun, México





"Susana" <@> escribió en el mensaje
news:%

Hola

Necesito el codigo en VBA que genere 6 numeros del 1 al 49 sin que se
repitan y que los coloque de menor a mayor.

Gracias

me suena a la primitiva...

"LauMan MX (Manolo)" escribió en el mensaje
news:

el chiste del melate es poner los numeros que le latan a uno, no los que
diga la computadora...jeje

Saludos

Manolo
Cancun, México





"Susana" <@> escribió en el mensaje
news:%
> Hola
>
> Necesito el codigo en VBA que genere 6 numeros del 1 al 49 sin que se
> repitan y que los coloque de menor a mayor.
>
> Gracias
>
>

Pues si es para jugar a la primitiva...
Generar una combinacion y despues comprobarla en una base de datos.
Es un trabajillo que me han pedido

Pero si no lo sabeis ya lo preguntare en otros foros.
Gracias de todas formas.



"LauMan MX (Manolo)" escribió en el mensaje
news:

el chiste del melate es poner los numeros que le latan a uno, no los que
diga la computadora...jeje

Saludos

Manolo
Cancun, México





"Susana" <@> escribió en el mensaje
news:%
> Hola
>
> Necesito el codigo en VBA que genere 6 numeros del 1 al 49 sin que se
> repitan y que los coloque de menor a mayor.
>
> Gracias
>
>

"Más vale tarde que nunca" :-))

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

'Volcar matriz a hoja
For v = 1 To 6
Worksheets("Hoja1").Range("A" & v) = m(v - 1)
Next v

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


Ten en cuenta que los seis números se volcarán en el rango A1:A6 de Hoja1. Si tuvieran que ir en otro lugar, habría que modificar el código.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Susana" <@> escribió en el mensaje news:

Pues si es para jugar a la primitiva...
Generar una combinacion y despues comprobarla en una base de datos.
Es un trabajillo que me han pedido

Pero si no lo sabeis ya lo preguntare en otros foros.
Gracias de todas formas.



"LauMan MX (Manolo)" escribió en el mensaje
news:
> el chiste del melate es poner los numeros que le latan a uno, no los que
> diga la computadora...jeje
>
> Saludos
>
> Manolo
> Cancun, México
>
>
>
>
>
> "Susana" <@> escribió en el mensaje
> news:%
> > Hola
> >
> > Necesito el codigo en VBA que genere 6 numeros del 1 al 49 sin que se
> > repitan y que los coloque de menor a mayor.
> >
> > Gracias
> >
> >
>
>

Muchas gracias Fernando.

"Fernando Arroyo" escribió en el mensaje
news:%
"Más vale tarde que nunca" :-))

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

'Volcar matriz a hoja
For v = 1 To 6
Worksheets("Hoja1").Range("A" & v) = m(v - 1)
Next v

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


Ten en cuenta que los seis números se volcarán en el rango A1:A6 de Hoja1.
Si tuvieran que ir en otro lugar, habría que modificar el código.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Susana" <@> escribió en el mensaje
news:

Pues si es para jugar a la primitiva...
Generar una combinacion y despues comprobarla en una base de datos.
Es un trabajillo que me han pedido

Pero si no lo sabeis ya lo preguntare en otros foros.
Gracias de todas formas.



"LauMan MX (Manolo)" escribió en el mensaje
news:
> el chiste del melate es poner los numeros que le latan a uno, no los que
> diga la computadora...jeje
>
> Saludos
>
> Manolo
> Cancun, México
>
>
>
>
>
> "Susana" <@> escribió en el mensaje
> news:%
> > Hola
> >
> > Necesito el codigo en VBA que genere 6 numeros del 1 al 49 sin que

se

> > repitan y que los coloque de menor a mayor.
> >
> > Gracias
> >
> >
>
>