Sub Auto_Open()DisparaActualizadorEnd SubSub ActualizaHora() Calculate DisparaActualizadorEnd SubSub DisparaActualizador()Application.OnTime Now + TimeValue("00:00:05"), "ActualizaHora"End Sub
Ver video:https://www.youtube.com/watch?v=WKtJJPG2rlE
ResponderBorrarSub Auto_Open()
DisparaActualizador
End Sub
Sub ActualizaHora()
Calculate
DisparaActualizador
End Sub
Sub DisparaActualizador()
Application.OnTime Now + TimeValue("00:00:05"), "ActualizaHora"
End Sub
Ver video:
ResponderBorrarhttps://www.youtube.com/watch?v=WKtJJPG2rlE