Saltar al contenido

Cómo pausar una macro en ejecución


Recommended Posts

publicado

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

publicado

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.

 

publicado

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.

 

 

publicado

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

publicado

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!

publicado
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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
    • Podrías compartir tu solucion
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.