Boton de comando en un modulo

Jajajajajajajaja

Tienes razon, ayuda a aligerar la rigidez!!

"Héctor Miguel" escribió:

hola, Carlos !

> Que paso? HM!
> Mi nombre es Carlos, pero creo que ayudas a tantos usuarios que no recuerdas a todos!! ...

despues de contestar a tu consulta original diciendo: "hola, (...) ?"
recorde que eres Carlos (pero ya habia mandado la respuesta) :-(

el segundo "???" y la "recriminacion"... fue en "venganza" de que me llamaste "HB" :))

(disculpa, pero a veces las "bromas" ayudan a aligerar la rigidez) :D

saludos,
hector.

Hécot una colsulta mas:

de este codigo:

Private Sub CommandButton1_Click()
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 * 75) + 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

que modicifaciones puedo(es) hacer, para que el rango de :

1a columna sean de 1 a 15
2a Columna sea de 16 a 30
3a Columna sea de 31 a 45
4a columna sea de 46 a 60
5a colmuna sea de 61 a 75

es decir que el las celdas a1 a2 a3 a4 a5 no se repitan los numero pero que
solo esten en el rango del 1 al 15 y asi en las siguientes columnas y filas.

(Quiero hacer las hojtas del bingo)

Gracias

hola, Crasol ! :))

Hecot una colsulta mas:
de este codigo: (...)
que modicifaciones puedo(es) hacer, para que el rango de :
1a columna sean de 1 a 15
2a Columna sea de 16 a 30
3a Columna sea de 31 a 45
4a columna sea de 46 a 60
5a colmuna sea de 61 a 75
es decir que el las celdas a1 a2 a3 a4 a5 no se repitan los numero pero que solo esten en el rango del 1 al 15
y asi en las siguientes columnas y filas.
(Quiero hacer las hojtas del bingo)

por ahi hubieras empezado :D aqui encuentras ejemplos (incluso para jugar)
(de seguro puedes adaptarlo)-> http://www.cpearson.com/Zips/Bingo.ZIP

saludos,
hector

__ el codigo expuesto __

Private Sub CommandButton1_Click()
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 * 75) + 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 Hector Miguel:

Como puedo modificar el codigo que me muestras en la liga, para no solo
hacer dos tarjetas sino 100 al mismo tiempo, no es para lucrar como lo pide
quien lo creo es para una buena causa.

jajaja explicaciones no pedidas (jajajajaja)

Gracias

"Héctor Miguel" escribió:

hola, Crasol ! :))

> Hecot una colsulta mas:
> de este codigo: (...)
> que modicifaciones puedo(es) hacer, para que el rango de :
> 1a columna sean de 1 a 15
> 2a Columna sea de 16 a 30
> 3a Columna sea de 31 a 45
> 4a columna sea de 46 a 60
> 5a colmuna sea de 61 a 75
> es decir que el las celdas a1 a2 a3 a4 a5 no se repitan los numero pero que solo esten en el rango del 1 al 15
> y asi en las siguientes columnas y filas.
> (Quiero hacer las hojtas del bingo)

por ahi hubieras empezado :D aqui encuentras ejemplos (incluso para jugar)
(de seguro puedes adaptarlo)-> http://www.cpearson.com/Zips/Bingo.ZIP

saludos,
hector

__ el codigo expuesto __
> Private Sub CommandButton1_Click()
> 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 * 75) + 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, Carlos !

Como puedo modificar el codigo que me muestras en la liga
para no solo hacer dos tarjetas sino 100 al mismo tiempo
no es para lucrar como lo pide quien lo creo es para una buena causa.

jajaja explicaciones no pedidas (jajajajaja)

(me temo que) si el codigo viene protegido... habria que solicitar la clave al autor -?-
(por otro lado)... no te sale mas barato comprar un/os "jueguito/s de loteria" ??? :))

o comenta como quisierar distribuir la numeracion para las 100 tarjetas
- cuantos numeros por tarjeta ?
- si los vas a poner en una hoja de excel... en que rangos ?
- cualquier otro detalle "en el tintero"

saludos,
hector.