Jump to content

KAITEKI

Members
  • Content Count

    9
  • Joined

  • Last visited

About KAITEKI

  • Rank
    Newbie

Converted

  • Campos Array
  1. Bigpetroman, ayer no había visto bien el bingo gratis del que me pusiste el enlace para descargar, sólo había visto el video de presentación. Al intentar abrirlo bien en pc con excel de 64 bits, me da error, ya que se hizo con uno de 32 bits. El problema es que está el VBA protegido y al intentar saltarme la protección, para modificar el código y hacerlo funcionar, se corrompe el archivo. No obstante lo he hecho en un excel de 32 bits y lo he podido abrir. La verdad es que está muy currado y funciona bien, pero me gustaría acceder a sus tripas para aprender más de su funcionamento. Estoy en ello, a ver si lo consigo. Muchas gracias de nuevo por el aporte. Saludos.
  2. Muchas gracias por la información. Lo único que podría aportar ideas sería el último bingo, pero la sacada de bolas es manual, en el mío de esa manera no tendría ningún problema. Lo gracioso es que funcione en automático como el mío, pero de una forma mejor, si fuera posible... De momento, me quedo con el mío, a ver si puedo subsanar los detallitos que he comentado. Muchas gracias de nuevo. Saludos.
  3. Buenas tardes. Estoy intentando hacer una hoja que sirva para el juego de "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. Como he comentado en algún otro post, 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... Me han comentado utilizar Application.Onkey. Voy a ver si soy capaz de hacerlo funcionar. Bueno, ya me diréis si me podéis orientar sobre los fallos que reporto. Muchas gracias. BINGO.xlsm
  4. Ah, vale, perfecto. Entonces abro otro hilo con las dudas que tengo, si te parece bien
  5. 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
  6. 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.
  7. 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.
  8. 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
  9. Buenos días. Me presento como nuevo usuario del foro. Me gusta automatizar mis hojas de cálculo y hago mis pinitos en programación VBA, pero a un nivel muy por debajo de todos los expertos que por aquí abundan. Espro aprender mucho de los grandes genios. Un cordial saludo a todos.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5