Ayuda Excel VBA tiempo de espera...

Me ha surgido la siguiente duda usando Excel 2010

Y es:

Resulta que haciendo una macro que es de vital importancia. Entre cada proceso, quiero que haya un tiempo de espera o retraso es decir que si la macro tiene que realizar por ejemplo lo siguiente:

Hoja1.Range("E14").Value = Hoja1.Range("E14").Value + 5

En este espacio quiero introducir una espera de 5 segundos para realizar la siguiente operación

Hoja1.Range("D4").Value = Hoja1.Range("D4").Value + 10

Esta es mi gran pregunta he probado con sleep y otros pero no me han válido me ha dado error necesito vuestra ayuda!

1 respuesta

Respuesta
2

Esta sería una opción

    Hoja1.Range("E14").Value = Hoja1.Range("E14").Value + 5
    Application.Wait Now + TimeValue("00:00:05")
    Hoja1.Range("D4").Value = Hoja1.Range("D4").Value + 10

Esta es otra opción

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub espera()
    Hoja1.Range("E14").Value = Hoja1.Range("E14").Value + 5
    Sleep (5000) ' Espera 5 segundos
    Hoja1.Range("D4").Value = Hoja1.Range("D4").Value + 10
End Sub

Y esta es una tercera opción

    Hoja1.Range("E14").Value = Hoja1.Range("E14").Value + 5
    Application.Wait DateAdd("s", 10, Now)
    Hoja1.Range("D4").Value = Hoja1.Range("D4").Value + 10

Ocupa la que más te guste.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas