Boton de comando en un modulo

03/10/2008 - 08:06 por Age | Informe spam

Tengo el siguinete macro en un modulo:

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

quisiera ponerle un boton para que se ejecute con un click, que tengo que
hacer?

Gracias

Siga el debate

12 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 Age

07/10/2008 - 23:14 | Informe spam

Hector Miguel:

Para empezar me gustaria saber como es que te gusta que te digan, Héctor
Miguel, Héctor, Miguel, Master, sensei etc. (jajajaja broma esos ultimos dos)

La claves es "a"

La cuestion es que no lo utilizare solo una ocacioncion sino de forma
indefinida, y presimante es para poder darle un formato a mis necesidades.

Y las loterias de hasbro y mi alegria no me gustan mucho! :)

la distribucion es simple que solo den dos renglones de margen hacia abajo y
aparescan dos cuadros mas.

En la hoja original los rangos del primer cuadro son de a1:e6 siendo a1:a6
donde aparece BINGO, en el segundo cuadro el rango es g1:k6 donde g1:g6 donde
aparece BINGO, quisiera que debajo de esos mismos rango dejando dos renglones
aparescan los nuevos cuadros.

Gracias.

Responder a este mensaje

#12 Héctor Miguel

08/10/2008 - 04:33 | Informe spam

hola, Carlos !

La cuestion es que no lo utilizare solo una ocacioncion sino de forma indefinida
y presimante es para poder darle un formato a mis necesidades...
la distribucion es simple que solo den dos renglones de margen hacia abajo y aparescan dos cuadros mas.
En la hoja original los rangos del primer cuadro son de a1:e6 siendo a1:a6 donde aparece BINGO
en el segundo cuadro el rango es g1:k6 donde g1:g6 donde aparece BINGO
quisiera que debajo de esos mismos rango dejando dos renglones aparescan los nuevos cuadros.

ok, ok, (ya lo descargue y) observaras que existen hojas ocultas y una de ellas (llamada "Main")
es la que tiene los dos cuadros "originales" y todas las hojas "distribuyen" usando la funcion =aleatorio()
(o sea, ni siquiera necesitas macros para elaborar tus ~100 tablas de bingo)

solo necesitas "preparar" (copiar/pegar con todo, formatos, bordes, etc o cambiar como lo necesites)
-> n_Rangos an alguna hoja (incluso una hoja nueva) para concentrar donde necesites las tablas de bingo

el procedimiento mas sencillo podria ser copiar (de las tablas "de origen" en la hoja "Main")
y pegar solo los valores en cada (nueva) tabla en esa hoja
cada vez que lo hagas sucedera una "actualizacion" (o refresco)
y la siguiente "operacion" (copiado/pegado) sera con nuevos "valores"

si quieres hacer una macro para ello, solo necesitas un bucle para copiar... pegar valores (a cada taba en X_hoja)

si cualquier duda... comentas ?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida