Actualizar valor de una celda despues de ingresar

14/11/2008 - 19:18 por crx73 | Informe spam
Hola,

Tengo una tabla donde estoy capturando movimiento de una cuenta, hay
una columna destinado a la hora y aqui tengo una duda, deseo ingresar
la fecha en el formato militar, es decir, algo así como 115448, pero
que al cambiar de celda, de forma automáticamente este cambie a
11:54:48 AM

Es posible lograr esto con alguna macro?

De antemano, muchas gracias por su ayuda.


Claudio C.
 

Leer las respuestas

#1 Héctor Miguel
15/11/2008 - 02:50 | Informe spam
hola, Claudio !

Tengo una tabla donde estoy capturando movimiento de una cuenta
hay una columna destinado a la hora y aqui tengo una duda
deseo ingresar la fecha en el formato militar, es decir
algo asi como 115448, pero que al cambiar de celda
de forma automatica este cambie a 11:54:48 AM
Es posible lograr esto con alguna macro?



si suponemos que este tipo de entrada lo necesitas para el rango [A2:A15]
(o modifica como mejor te convenga)...
copia/pega (o escribe) lo siguiente en el modulo de codigo de "esa" hoja...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a15")) Is Nothing Then ActiveCell.Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a2:a15")) Is Nothing Then Exit Sub
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target = Evaluate("text(" & Target.Address & ",""00\:00\:00"")")
Application.EnableEvents = True
End Sub

=> toma nota que deberas ingresar 8 digitos (hhmmss)

saludos,
hector.

Preguntas similares