Aplicar una pausa en una macro de VBA Excel

Hola,

Para hacer una pausa, puedes usar efectivamente Sleep declarando la API al inicio del módulo:

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Luego, al llamarla en tu procedimiento:

Sleep 1000 'Sleep calcula en milisegundos. Así que Sleep 1000 esperará 1 segundo...

También puedes usar Wait. Wait calcula en segundos. Ejemplo de Microsoft de espera de 10 segundos [Según Microsoft: Este ejemplo pausa una macro en ejecución durante aproximadamente 10 segundos.], el aproximadamente me divierte mucho... :

newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime

También está el Timer... Véase este ejemplo de Mister lermitte222...

Timer y wait cuentan en segundos, sleep en milisegundos.
Con timer puedes decidir realizar una tarea repetitiva cada "x" unidades de tiempo, con Wait o Sleep, es tu macro la que espera antes de continuar su ejecución. [Fuentes: ouskel'n'or]
Atentamente,
Franck P

Dim PausaTiempo, Inicio, Fin, TiempoTotal Si (MsgBox("Presiona Sí para pausar durante 5 segundos", 4)) = vbYes Entonces PausaTiempo = 5 ' Establecer duración. Inicio = Timer ' Establecer tiempo de inicio. Hacer Mientras Timer < Inicio + PausaTiempo DoEvents ' Ceder a otros procesos. Bucle Fin = Timer ' Establecer tiempo de finalización. TiempoTotal = Fin - Inicio ' Calcular tiempo total. MsgBox "Pausado durante " & TiempoTotal & " segundos" Else Fin End Si

Hola,
Gracias por esta información, me ha sido muy útil.
Tengo una pregunta relacionada con este tema. He insertado este tiempo de espera en mi macro vinculada a un botón, pero me gustaría que el tiempo no estuviera limitado y que la macro se reanudara en el próximo "clic" del ratón...
Gracias por su ayuda
Atentamente
Emmanuelagen