Numeros del 1 al 36

hola, Antonio !

Como hago para que se formen cinco grupos de forma aleatoria y que no se repitan EJ:
a.- 1-2-3-4-5
b.- 7-8-9-10-11
c.- 13-14-15-16-17
d.- 18-19-20-21-22
e.- 6-23-12-24-25

[supongo que] para una mayor 'seguridad' de que no obtendras algun 'repetido'...
-> necesitaras el apoyo de algun codigo/macro que se encargue de ello
[p.e.] para el rango 'A1:E5' de la hoja activa...

Sub VeinticincoDeTreintayseis()
Application.ScreenUpdating = False
Dim Unicos As New Collection, Unico, _
Fila As Byte, Col As Byte, Sig As Byte
Do: On Error Resume Next
Unico = Int((Rnd * 36) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 25
For Col = 1 To 5
For Fila = 1 To 5
Sig = Sig + 1
Cells(Fila, Col) = Unicos(Sig)
Next
Next
End Sub

saludos,
hector.

Estimado Hector:
Disculpa mi desconocimiento de programacion pero me puedes decir que realizo
pasao por paso ,por que no entiendo nada si tu lo has probado tanbien me lo
indicas y si me lo puedes enviar a mi correo ya echo por favor
Mil gracias por la molestia
Antonio
miami Florida

"Héctor Miguel" wrote:

hola, Antonio !

> Como hago para que se formen cinco grupos de forma aleatoria y que no se repitan EJ:
> a.- 1-2-3-4-5
> b.- 7-8-9-10-11
> c.- 13-14-15-16-17
> d.- 18-19-20-21-22
> e.- 6-23-12-24-25

[supongo que] para una mayor 'seguridad' de que no obtendras algun 'repetido'...
-> necesitaras el apoyo de algun codigo/macro que se encargue de ello
[p.e.] para el rango 'A1:E5' de la hoja activa...

Sub VeinticincoDeTreintayseis()
Application.ScreenUpdating = False
Dim Unicos As New Collection, Unico, _
Fila As Byte, Col As Byte, Sig As Byte
Do: On Error Resume Next
Unico = Int((Rnd * 36) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 25
For Col = 1 To 5
For Fila = 1 To 5
Sig = Sig + 1
Cells(Fila, Col) = Unicos(Sig)
Next
Next
End Sub

saludos,
hector.

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Seguro que para Héctor no es molestia, es más, deberías mandarle tus datos y
los de tu cliente para que en el mismo envío te haga llegar una factura en
el que figuréis tu y tu cliente y así se la pasas al cobro y otro faena
hecha.


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Antonio" escribió en el mensaje
news:

Estimado Hector:
Disculpa mi desconocimiento de programacion pero me puedes decir que
realizo
pasao por paso ,por que no entiendo nada si tu lo has probado tanbien me
lo
indicas y si me lo puedes enviar a mi correo ya echo por favor
Mil gracias por la molestia
Antonio
miami Florida

"Héctor Miguel" wrote:

hola, Antonio !

> Como hago para que se formen cinco grupos de forma aleatoria y que no
> se repitan EJ:
> a.- 1-2-3-4-5
> b.- 7-8-9-10-11
> c.- 13-14-15-16-17
> d.- 18-19-20-21-22
> e.- 6-23-12-24-25

[supongo que] para una mayor 'seguridad' de que no obtendras algun
'repetido'...
-> necesitaras el apoyo de algun codigo/macro que se encargue de ello
[p.e.] para el rango 'A1:E5' de la hoja activa...

Sub VeinticincoDeTreintayseis()
Application.ScreenUpdating = False
Dim Unicos As New Collection, Unico, _
Fila As Byte, Col As Byte, Sig As Byte
Do: On Error Resume Next
Unico = Int((Rnd * 36) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 25
For Col = 1 To 5
For Fila = 1 To 5
Sig = Sig + 1
Cells(Fila, Col) = Unicos(Sig)
Next
Next
End Sub

saludos,
hector.

Siempre hay algún capullo como http://ijulian.iespana.es/
¡Importante!: Colabora con quien no sabe, o calla!

"julian-vlc-sp" escribió en el mensaje news:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Seguro que para Héctor no es molestia, es más, deberías mandarle tus datos y
los de tu cliente para que en el mismo envío te haga llegar una factura en
el que figuréis tu y tu cliente y así se la pasas al cobro y otro faena
hecha.


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Antonio" escribió en el mensaje
news:
> Estimado Hector:
> Disculpa mi desconocimiento de programacion pero me puedes decir que
> realizo
> pasao por paso ,por que no entiendo nada si tu lo has probado tanbien me
> lo
> indicas y si me lo puedes enviar a mi correo ya echo por favor
> Mil gracias por la molestia
> Antonio
> miami Florida
>
> "Héctor Miguel" wrote:
>
>> hola, Antonio !
>>
>> > Como hago para que se formen cinco grupos de forma aleatoria y que no
>> > se repitan EJ:
>> > a.- 1-2-3-4-5
>> > b.- 7-8-9-10-11
>> > c.- 13-14-15-16-17
>> > d.- 18-19-20-21-22
>> > e.- 6-23-12-24-25
>>
>> [supongo que] para una mayor 'seguridad' de que no obtendras algun
>> 'repetido'...
>> -> necesitaras el apoyo de algun codigo/macro que se encargue de ello
>> [p.e.] para el rango 'A1:E5' de la hoja activa...
>>
>> Sub VeinticincoDeTreintayseis()
>> Application.ScreenUpdating = False
>> Dim Unicos As New Collection, Unico, _
>> Fila As Byte, Col As Byte, Sig As Byte
>> Do: On Error Resume Next
>> Unico = Int((Rnd * 36) + 1)
>> Unicos.Add Unico, CStr(Unico)
>> Loop Until Unicos.Count = 25
>> For Col = 1 To 5
>> For Fila = 1 To 5
>> Sig = Sig + 1
>> Cells(Fila, Col) = Unicos(Sig)
>> Next
>> Next
>> End Sub
>>
>> saludos,
>> hector.
>>
>>
>>

yo tambien lo quiero
y en papel de regalo.. con chongo y todo...

un Saludo

Lord Voldemort
Visual Basic 2005

Página de inicio del grupo: http://mx.groups.yahoo.com/group/vb2005Mysql
Dirección de correo del grupo:

"julian-vlc-sp" escribió en el mensaje
news:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
Seguro que para Héctor no es molestia, es más, deberías mandarle tus datos
y los de tu cliente para que en el mismo envío te haga llegar una factura
en el que figuréis tu y tu cliente y así se la pasas al cobro y otro faena
hecha.


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"Antonio" escribió en el mensaje
news:

Estimado Hector:
Disculpa mi desconocimiento de programacion pero me puedes decir que
realizo
pasao por paso ,por que no entiendo nada si tu lo has probado tanbien me
lo
indicas y si me lo puedes enviar a mi correo ya echo por favor
Mil gracias por la molestia
Antonio
miami Florida

"Héctor Miguel" wrote:

hola, Antonio !

> Como hago para que se formen cinco grupos de forma aleatoria y que no
> se repitan EJ:
> a.- 1-2-3-4-5
> b.- 7-8-9-10-11
> c.- 13-14-15-16-17
> d.- 18-19-20-21-22
> e.- 6-23-12-24-25

[supongo que] para una mayor 'seguridad' de que no obtendras algun
'repetido'...
-> necesitaras el apoyo de algun codigo/macro que se encargue de ello
[p.e.] para el rango 'A1:E5' de la hoja activa...

Sub VeinticincoDeTreintayseis()
Application.ScreenUpdating = False
Dim Unicos As New Collection, Unico, _
Fila As Byte, Col As Byte, Sig As Byte
Do: On Error Resume Next
Unico = Int((Rnd * 36) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 25
For Col = 1 To 5
For Fila = 1 To 5
Sig = Sig + 1
Cells(Fila, Col) = Unicos(Sig)
Next
Next
End Sub

saludos,
hector.