Alguien tiene idea de como puede detener un bucle infinito Do while con otra macro en VBA excel. Necesito generar 2 CTA a la macro, una para iniciar y otra para poder pararla, pero mientras el bucle se este ejecutado no es posible clicar sobre algún otro botón en excel.
El código quiero poder detener es este:
Sub Grafico()
Application.ScreenUpdating = TrueDim wks As Worksheet
'SE INDICA QUE SELECCIONE EL GRÁFICO DE LA HOJA DE CÁLCULO ACTIVASet wks = ActiveWorkbook.Sheets(8)
'wks.ChartObjects("Gráfico 1").Select
DoEvents
Dim Inicial, Final, delta AsDate
delta = Hoja8.Range("C3").Value
Inicial = Hoja8.Range("C1").Value
Final = Hoja8.Range("C2").Value
DoWhile Hoja8.Range("a3") <> 8
Application.Wait (Now + TimeValue("00:00:01"))
Inicial = Inicial + delta
Hoja8.Range("C1") = Inicial
'Application.Wait (Now + TimeValue("00:00:02"))'
DoEvents
Final = Inicial + delta
Hoja8.Range("C2") = Final
'Application.Wait (Now + TimeValue("00:00:01"))
DoEvents
'ActiveWorkbook.RefreshAll
Application.ScreenUpdating = True'Stop
Application.Calculation = xlCalculationAutomatic
wks.ChartObjects("Gráfico 1").Activate
Application.ActiveChart.Refresh
Application.Wait (Now + TimeValue("00:00:02"))
'wks.ChartObjects("Gráfico 1").Activate
DoEvents
'Debug.Print "Final"'StopLoopEndSub
Muchas gracias a alguien que pueda darme alguna idea.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola, Buenas tardes
Alguien tiene idea de como puede detener un bucle infinito Do while con otra macro en VBA excel. Necesito generar 2 CTA a la macro, una para iniciar y otra para poder pararla, pero mientras el bucle se este ejecutado no es posible clicar sobre algún otro botón en excel.
El código quiero poder detener es este:
Muchas gracias a alguien que pueda darme alguna idea.