Formato horas y condicionales.

Hola eslait,

Creo que realmente tu problema es el numero 2 de tu lista. El primero no creo que lo sea tanto, aunque hablando de numeros de punto
flotante que son los valores de horas todo podria ser por supuesto. El tema como ya has dicho es que para que se detecte la
coincidencia la formula se debe recalcular con cierta periodicidad, cosa que no pasa normalmente.

Las opciones que se me ocurren pasan necesariamente por el uso [en mayor o menor grado] de macros.

1. Usar un macro como el siguiente:

Sub test()
Application.OnTime Sheets("Hoja1").Range("A1").Value, "Mensaje"
End Sub

Sub Mensaje()
MsgBox "Hola"
End Sub

2. Usando formula y macros

a) Pon la siguiente formula en, digamos, la celda [B1] (en [A1] tendras la hora buscada en formato de hora) de la Hoja1:

=SI(Y(HORA(AHORA())=HORA(A1);MINUTO(AHORA())=MINUTO(A1));"Hola";"")

b) pon el siguiente codigo en el modulo VBA de ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

Private Sub Workbook_Open()
StartBlinking
End Sub

c) pon el siguiente codigo en un modulo VBA estandar de tu archivo (digamos Modulo1):

Dim dtNext As Date

Sub StartBlinking()
dtNext = Now + TimeValue("00:00:01")
Application.Calculate
Application.OnTime dtNext, "StartBlinking"
End Sub

Sub StopBlinking()
Application.OnTime dtNext, "StartBlinking", schedule:=False
End Sub

d) Guarda los cambios, cierra y vuelve a abrir tu libro.


Las ventajas y desventajas de los metodos creo que seran literalmente "evidentes" cuando los pruebes.

Saludos,
KL

Hola KL,

La macro que me pusiste me funciona perfectamente. Tengo la suerte que la
aplicacion qu eestoy intentando hacer estoy cambiando continuamente las
celdas por lo que, cuando llega la hora determinada siempre me lo refleja
(puede ser que con un retardo de + - 5 segundos que es lo qu tardo en
cambiar una celda cuando introduzco un dato nuevo).

Si tengo algo nuevo que comentarte sobre este tema te lo ire diciendo. Ahora
voy a intentar a hacer que cada 5 minutos me avise y registre una serie de
datos. Voy a intentarlo hacer solito, gracias por todo

"KL" escribio en el mensaje
news:OdJFgl2%

Hola eslait,

Creo que realmente tu problema es el numero 2 de tu lista. El primero no
creo que lo sea tanto, aunque hablando de numeros de punto flotante que
son los valores de horas todo podria ser por supuesto. El tema como ya has
dicho es que para que se detecte la coincidencia la formula se debe
recalcular con cierta periodicidad, cosa que no pasa normalmente.

Las opciones que se me ocurren pasan necesariamente por el uso [en mayor o
menor grado] de macros.

1. Usar un macro como el siguiente:

Sub test()
Application.OnTime Sheets("Hoja1").Range("A1").Value, "Mensaje"
End Sub

Sub Mensaje()
MsgBox "Hola"
End Sub

2. Usando formula y macros

a) Pon la siguiente formula en, digamos, la celda [B1] (en [A1] tendras la
hora buscada en formato de hora) de la Hoja1:

=SI(Y(HORA(AHORA())=HORA(A1);MINUTO(AHORA())=MINUTO(A1));"Hola";"")

b) pon el siguiente codigo en el modulo VBA de ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

Private Sub Workbook_Open()
StartBlinking
End Sub

c) pon el siguiente codigo en un modulo VBA estandar de tu archivo
(digamos Modulo1):

Dim dtNext As Date

Sub StartBlinking()
dtNext = Now + TimeValue("00:00:01")
Application.Calculate
Application.OnTime dtNext, "StartBlinking"
End Sub

Sub StopBlinking()
Application.OnTime dtNext, "StartBlinking", schedule:=False
End Sub

d) Guarda los cambios, cierra y vuelve a abrir tu libro.


Las ventajas y desventajas de los metodos creo que seran literalmente
"evidentes" cuando los pruebes.

Saludos,
KL