Cómo pausar una macro en ejecución

[KAITEKI]

Buenos días.

Soy nuevo en el foro (ya me pasé por el correspondiente hilo de presentaciones) y llevo varios días dándole vueltas a una hoja que estoy haciendo y no consigo hacer lo que quiero.

Adjunto una hoja muy sencilla (resumen de una más complicada) y que básicamente consiste en que excel comience a cantar en voz alta una serie de números, del 1 al 10.

El problema que me surge es que no consigo parar la ejecución del código mediente métodos normales, es decir, mediante algún boton de "pausa" y otro de "reanudación", sí se para mediante "Esc", pero no me permite reanudarlo después. Si pulso "Escape", sale el cuadro de aviso de que se ha producido el error '287' en tiempo de ejecución... pero el botón de "continuar" está deshabilitado, por lo que no puedo continuar el código donde se quedó.

Si no fuera posible detenerlo mediante alguna otra macro (botón), ya intentaría ingeniármelas para continuarlo donde se quedó al pulsar "Escape", pero lo que sí me gustaría es que no me saliera el cuador de aviso de Microsoft Visual Basic. ¿Habría alguna manera de evitar que saliera ese cuadro de diálogo?.

He estado leyendo el foro y creo que no es taréa sencilla implementar un botón de pausa, pero a lo mejor alguien tiene la solución.

 

Muchas gracias por adelantado.

 

Saludos.

 

 

 

Contar.xlsm

[Antoni]

Prueba el adjunto.

Contar (1).xlsm

[KAITEKI]

Muchas gracias, Antoni. Lo he probado y funciona perfectamente.

Como comenté, era un ejemplo simplificado de una hoja más compleja.

Se trata de un "Bingo" que estoy haciendo para la familia y me gustaría sofisticarlo un poco más.

La idea es poner un botón que pausara el canto de los números al cantar la linea, comprobar los números con useforms y continuar y hacer algo similar al cantar el bingo.

No sé si sería posible simular la tecla escape con Sendkeys para que se detuviera el proceso (más o menos como en el ejemplo), pero que me aplicara otro código a voluntad. Por ejemplo se se abriera una tabla para comprobar los números y después poder seguir con el cántico de los números.. No sé si me pillas la idea...

No sé si necesitarías la hoja entera para hacerte más a la idea, aunque está hecha a mi manera, en construcción y sin rematar, lógicamente. Lo más seguro es que se podría hacer de una forma mucho más sencilla, pero fue la que se me ocurrio y salvo lo de la pausa y reanudadción, cumple su cometido.

Muchas gracias de nuevo.

Saludos.

 

[Gerson Pineda]

Hola 

Te adjunto mi versión, espero te de mas ideas, para detener presiona "scape"

 

Saludos 

 

Detener procedimiento_GP.zip

[KAITEKI]

Gracias, Gerson.

También funciona, pero como he comentado en el mensaje anterior, me gustaría rizar el rizo un poco más.

Habría otra manera de detener el proceso que no fuera con la tecla escape, digamos con un botón ActiveX?. Lo he intentado, pero como está en medio del proceso, el relojito está dando vueltas y no hace caso a ninguna otra instrucción.

De todas formas, vuestras sugerencias me ayudarán al final y mucho, seguro.

Saludos.

 

 

[KAITEKI]

Buenas tardes.

Yo sigo a lo mío y gracias a los consejos recibidos, he seguido construyendo mi "Bingo".

Falta todavía implementarle varias cosas, como por ejemplo la comprobación de la línea y el bingo, pero por ahora, encuentro unos pequeños inconvenientes, que no sé cómo solventar.

Aparte de que me he vuelto loco para que el wait funcione medianamente bien, porque dependiendo de dónde coloque las líneas y dónde coloque el comando application.wait, los números se cantan y aparecen en la pantalla a su bola. Parece que ahora con la estructura que tengo, funciona medianamente bien.

 

Me surgen dos problemas:

Uno es que si nada más empezar el sorteo, doy  a ESCAPE, me salta un error. Ya sé que tengo que esperar a que se canten un par de números para que funcione bien, pero por si tiene solución.

El otro es que si espero un segundo más de la cuenta en que se cante el número y pulso ESCAPE, el número aparece en la pantalla y no se canta. Ya digo que he modificado la posición de application.wait y si lo hago, más o menos sucede lo mismo, pero se desbarata la aparición de los número y su cántico correspondiente. Posiblemente si aumento el tiempo de espera, se podría solucionar medianamente, pero haría un juego super pesado y largo.

 

Adjunto la hoja. Ya comenté ayer que soy aficionado y seguramente con muchos menos comandos u operaciones se consiga lo mismo, pero bueno, la he estructurado así y me da pereza pensarla de otra manera.

Al saltar los errores, los botones no se hacen "enabled" como se deberían hacer, hay que hacerlo manualmente si ello sucede.

Por cierto, sigo sin conseguir que un botón de "Pausa" en vez de pulsar ESCAPE haga algo...

 

Bueno, ya me diréis si me podéis orientar sobre los fallos que reporto.

 

Muchas gracias.

Saludos.

BINGO.xlsm

[Gerson Pineda]

Que tal Kaiteki

Entiendo lo que buscas hacer, pero no puedes hacer un tema como multi-temas, es decir varias consultas a la vez en un mismo tema

Con respecto a tu duda inicial, te hemos colaborado, y si buscas hacerlo mediante boton, intenta con la funcion application.onkey 

 

Saludos y suerte!

[KAITEKI]

Ah, vale, perfecto.

Entonces abro otro hilo con las dudas que tengo, si te parece bien

 

[Gerson Pineda]

Hace 18 minutos , KAITEKI dijo:

Ah, vale, perfecto.

Entonces abro otro hilo con las dudas que tengo, si te parece bien

 

Me parece bien, un tema por cada duda puntual

 

Saludos