Sobre EXCEL, avanzada, se puede?

[RJ]

tengo una pregunta para hacerles sobre excel. No se si se podra hacer pero veamos. Necesito tener en una de las celdas la hora en tiempo real , osea que cambie cada minuto automaticamente, y sea posible compararla con otra celda que contenga una hora ingresada. Se puede ??. Muchas gracias

[jasistemas]

si se puede, obviamente con VBScript (macros), mas o menos asi:
activecell.value=time()

y actualizarla con un timer.
Busca mas ejemplos de codigo aqui:
www.vbcode.com
Saludos
Juan Arturo GOmez

[RJ]

lo probe, pero sigue siendo etsatico , no dinamico, necesito que cambien solos los minutos MUAAAAAAAAAAAA !!!!! ayudas, gracias igual por colaborar

[RJ]

Si dentro de ese mismo modulodonde tengo lo anterior mencionado le pongo una especie de GOTO, me consume todos los recursos de la planilla y no puedo hacer nada, algun experto en visual basic que me ayude

Sub horareal()
z:
ActiveCell.Value = Time()
GoTo z:
End Sub

Esto no funciona aunque si cambia la hora en tiempo real, me consume todo. HELP MEEEEE!!!

[GCII]

Hola, si se puede de una manera más fácil:

1.-Tienes que activar en el Menú Herramientas- complementos- las opciones Herramientas de análisis y herramientas de análsis VBA.
2.-En alguna celda (por ejemplo utilizaré la secuencia A1, A2 y A3)escribes:
A1: =Hora(A3)
A2: =Minuto(A3)
A3: =Ahora()

La fórmula Ahora (A3)te dará la fecha y horas de tu PC, la fórmula hora (A1) tomará la hora de dicha fórmula, la Hora de tu PC) y la fórmula minuto (A2) tomará los minutos. Todo actualizable minuto a minuto y hora a hora...(verifica que tengaz actualización automática en Herramientas- opciones- calcular automático u oprime la tecla F9.

Si quieres Hora y minutos juntos en una celda prueba con (basado en la secuencia anterior)
en A5 escribe =A1&":"&A4.

Saludos...

[guelan]

Hola, acabo de hacer lo que dices pero no actualiza aún teniendo en Herramientas/opciones/calculo automatico
Solo actualiza cuando presionas F9
¿Hago algo mal? :(

[Alexander]

Prueba con este codigo

Sub RELOJ()
TiEMPO = 0
Do While TiEMPO = 0
Range("A1") = Time
DoEvents
Loop
End Sub

Esto hace un do while infinto te muestra la hora en la celda a1 y te la actuliza cada segundo, el Doevents hace que se salda cada segundo a otro procedimiento y te permite moverte en excel y hasta a otro programa que tienes abierto , lo unico malo es que se detiene en cuanto tu introduces un valor en otra celda y pulsas enter para aceptar el valor.
Espero que te sirva de algo.

[RJ]

GC realize todo ,pero no puedo lograr el calculo en tiempo real, solo se actualiza si presiono F9, faltara activar algo mas ????. Muchas gracias

[RJ]

GC ya comprendo como funciona, se actualiza cuando lleno alguna otra celda osea con una accion en la planilla.

Alexander esta muy buena tu idea y funciona lindo, lastima que se detiene cuando hay una accion sobre la planilla, voy a ver si averiguo algo mas para solucionarlo.

Gracias amigos los sigo escuchando.

[Alexander]

Sub RELOJ()
Workbooks("nombrelibro.xls").Worksheets( "Hoja1").Range("A1") = Time

If Workbooks("nombrelibro.xls").Worksheets( "Hoja1").Range("A1") = Workbooks("nombrelibro.xls").Worksheets( "Hoja1").Range("A2") Then
tiempo = 1
Else
tiempo = 0
End If

Application.OnTime Now + TimeValue("0:0:1"), "Reloj", tiempo

If tiempo = 1 Then
MsgBox "Hora Detenida"
End If
End Sub

Con esto puedes hacer "casi" todo con el reloj funcionando digo casi ya que con lo que probe funciona bien, por ejemplo.
Puedes escribir datos en la celdas, insertar formular,funciones ejecutar otra macro que tenga el libro e incluso puedes abrir otro libro y ejecutar una macro si la tiene salvarlo y cerrarlo y el reloj sigue funcionando.
Lo unico que no puedes hacer es cerrar el libro que tiene el reloj ejecutandose hasta que lo detengas por lo demas parece funcionar bien.
En mi ejemplo el reloj se detiene cuando el usuario le introduzca una hora en la celda A2 y esta sea igual a la que se esta ejecutando en la celda A1.
Te coloco la propiedad Workbooks para que no de error cuando trates de abrir otro libro mientras se este ejecutando el reloj.

Espero tus comentarios
Saludos y Suerte

[RJ]

Alex, todo un maestro, dejame probarlo y te cuento. Por supuesto a los demas tambien gracias

[RJ]

Alex me podrias explicar la linea que dice application.ontime .... como trabaja.

Y ayudarme para que el formato de la hora que se muestra sea sin segundos ni pm/am porque sino no me da tiempo para compararlo con una celda. Gracias

[RJ]

Tengo un problema, ahora con esta macro el AHORA() de excel tambien se actualiza, lo que no me permite guardar en una celta la hora en un determinado instante. Como lo puedo resolver ?????

[Alexander]

La verdad no se que quieres hacer pero si usas el ahora() directamente en una celda de excel independientemente si esta usando la macro del reloj, se actualiza con cualquier accion que realices en excel asi que no te sirve para tomar la hora en un tiempo determinado y quede fija, a menos que tomes la hora desde una macro y mediante una instruccion le asignes la hora a una celda por ejemplo range("a1")=time formateas la celda sin am/pm y queda fija solo se va a actualizar cuando ejecutes la macro que contiene la instruccion.
Para que entiendas como funciona ontime te metes en la ayuda alli hay varios ejemplos a lo mejor consigues algo mejor.
Aqui tienes mi correo [email protected] si quieres me detallas mejor lo que quieres hacer y vemos que podemos hacer.
Saludos