Numeros del 1 al 36

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

Siempre hay algún capullo como http://ijulian.iespana.es/

Entiendo que los calificativos personales es mejor dejarlos aparte, para mi
son de mal gusto y por eso no haré referencia a la dirección de correo que
usas haciendo ningún chiste fácil con ella, ni sobre el conocimiento que de
ella puedas tener por usarla o no, etc.

¡Importante!: Colabora con quien no sabe, o calla!

En cuanto a las ordenes te las puedes ahorrar, hace ya tiempo que mi papá me
dejar actuar por mi mismo.

Por último, hay una cosa en la que estoy de acuerdo contigo, y es en lo de
colaborar, pero para mi,

" ... si tu lo has probado tanbien me lo indicas y si me lo puedes enviar a
mi correo ya echo por favor"

aunque acabe en "por favor" no tiene nada que ver con "colaborar"


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


"ax23" escribió en el mensaje
news:%
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.
>>
>>
>>

hola, Antonio !

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

1) ten lista una hoja *limpia*
2) abre el editor de vba... atajo de teclado: -> {Alt}+{F11}
3) inserta un modulo nuevo: [menu] insertar / modulo
4) copia/pega en el modulo recien creado las lineas de la macro [al final de este mensaje]
5) regresa a excel y/o cierra el editor de vba... atajo de teclado: -> {Alt}+{F4}
6) ejecuta la macro [p.e.] pulsa: -> {Alt}+{F8}...
-> seleccionas la macro [VeinticincoDeTreintayseis] y pulsas en el boton [ejecutar]

-> cada vez que la ejecutes, obtendras 5 series de 5 numeros entre 1 y 36 no-repetidos en el rango A1:E5

si crees que sea necesario enviarte algo *ya hecho*... comentas ?
saludos,
hector.

__ las consultas anteriores __

> 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

Estimado Hector :
Tu si tienes correa como dicen en mi querido peru,te cuento que lo deseo es
algo que tu llamas con bastante propiedaad algo ya echo por favor si me lo
puedes enviar ha mi correo y probar si trabaja en mi exel 2000

Antonio
Miami Florida

"Héctor Miguel" wrote:

hola, Antonio !

> 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

1) ten lista una hoja *limpia*
2) abre el editor de vba... atajo de teclado: -> {Alt}+{F11}
3) inserta un modulo nuevo: [menu] insertar / modulo
4) copia/pega en el modulo recien creado las lineas de la macro [al final de este mensaje]
5) regresa a excel y/o cierra el editor de vba... atajo de teclado: -> {Alt}+{F4}
6) ejecuta la macro [p.e.] pulsa: -> {Alt}+{F8}...
-> seleccionas la macro [VeinticincoDeTreintayseis] y pulsas en el boton [ejecutar]

-> cada vez que la ejecutes, obtendras 5 series de 5 numeros entre 1 y 36 no-repetidos en el rango A1:E5

si crees que sea necesario enviarte algo *ya hecho*... comentas ?
saludos,
hector.

__ las consultas anteriores __
>> > 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

hola, Antonio !

Tu si tienes correa como dicen en mi querido peru...

*una parte* de la expresion que usaste... [como que] *trata de ser satisfactoria* [en el ego]
[suponiendo que su significado sea similar o el mismo que aqui en México] :))
aunque... [sinceramente] prefiero no *tener correa*... y seguir por el camino *en libertad* :D

... algo ya echo... si me lo puedes enviar ha mi correo y probar si trabaja en mi exel 2000

si me indicas cual es tu correo ??? [y... de que funciona... funciona] ;)

saludos,
hector.

Mi correo es ,si me lo puedes mandar te lo agradecere
mucho ten presente que mi excel es del 2000 y esta en ingles.
y gracias desde ya

"Héctor Miguel" wrote:

hola, Antonio !

> Tu si tienes correa como dicen en mi querido peru...

*una parte* de la expresion que usaste... [como que] *trata de ser satisfactoria* [en el ego]
[suponiendo que su significado sea similar o el mismo que aqui en México] :))
aunque... [sinceramente] prefiero no *tener correa*... y seguir por el camino *en libertad* :D

> ... algo ya echo... si me lo puedes enviar ha mi correo y probar si trabaja en mi exel 2000

si me indicas cual es tu correo ??? [y... de que funciona... funciona] ;)

saludos,
hector.