Crear mensaje

[luwobe]

Hola estimados expertos quisiera que me ayuden con una macro que al ejecutarlo me envie un mensaje en la pantalla que Indique "Es la hora de cambiar de producto". La hora que aparece en la celda...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wenner]

Sólo se me ocurre esto, pero no salta exactamente a la hora indicada.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If VBA.Time >=...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola:

En un módulo normal coloca esta macro:

Sub RELOJ()
On Error Resume Next
Application.OnTime EarliestTime:=Hora, Procedure:="RELOJ", Schedule:=False
Hora = Now + TimeValue("00:00:01")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wenner]

Muy bueno Antoni

 

[luwobe]

Wenner y Antoni son lo maximo si estuvieran cerca les enviaria un pisco sour por la macro realizada que era justo lo que necesitaba. Ademas por la rapidez con la que respondieron...
Les estoy muy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JoaoM]

Antoni, tengo este codigo
(Modulo)
Sub timer()
Application.OnTime Now + TimeValue("00:00:01"), "timer"
Formulario.LHora.Caption = Time
End Sub

(userform)
Private Sub UserForm_Activate()
timer
End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

En un Modulo estandard colocas una variable Publica

Public ahora as Double
Public Const Intervalo = 1
Public Const Procedimiento = "Timer"

En el Mismo Modulo
Sub timer()
Ahora = Now +...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola Gali:

Esto no funciona:

Private Sub UserForm_Activate()
Procedimiento
End Sub

A diferencia de Application.OnTime, la instrucción Call no admite el nombre del...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Tienes razon, Antoni...
me vi influenciado por este código que tenia hecho JoaoM

Private Sub UserForm_Activate()
timer
End Sub

Ahora bien, lo que no admite Call, lo puedes solcitar a...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí