Fecha y hora de captura

Hola quiero saber como hacer que en una celda de excel me aparezca la hora y fecha de lo que capture en otra celda del mismo libro.
Saludos.

1 respuesta

Respuesta
1
Para esto necesitas una rutina.
Entrá al Editor (con Alt+F11), seleccioná con doble clic el objeto HOJA donde harás la captura (del panel a tu izquierda) y allí copiá esto.
Tendrás que ajustar el rango de col o la celda :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'x Elsamatilde
'se controla lo ingresado en celda B2 y se coloca la fecha/hora en C2
If Target.Address= "$B$2" Then Target.Offset(0, 1).Value = Now
End Sub
Nota: para controlar toda 1 col, reemplazá la referencia de celda x col, por ej:
If Target.Column= 2 Then Target.Offset(0, 1).Value = Now
Sdos. No olvides finalizar la consulta si el tema quedó resuelto.
Hola muchas gracias por la ayuda
Sin embargo solo funciona en la celda b2 y el resultado es en la celda c2 lo que pretendo es que por ejemplo en todo lo que capture en las celdas de la columna b1 hasta la b10, 000 me arroje la fecha y hora en la columna c2 a la c10, 000, vaya igual como me lo mandaste pero en ese rango ya que lo que yo realizo son gestiones con diferentes clientes, tengo mi base de datos y quiero saber a que horas y cuando fue la ultima vez que hable con ellos.
Saludos.
Entonces hacé lo que te comenté en la Nota:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'x Elsamatilde
'se controla lo ingresado en celda B2 y se coloca la fecha/hora en C2
If Target.Column= 2 Then Target.Offset(0, 1).Value = Now
'otra opción, para que te permita usar la celda B1:
If Target.Column= 2 and target.Row > 1 Then Target.Offset(0, 1).Value = Now
End Sub
ATENCIÓN: SOLO podes utilizar 1 de las 2, la otra tenés que quitarla

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Al oprimir Enter capturar la hora actual en una celda.

Tengo que hacer una macro para una planilla excel que al ingresar un dato numérico en la celda A10 y al momento de hacer enter me capture la hora "hh:mm" (formato 24 hs) en la celda I10 y asi sucesivamente, si pongo un dato en la celda A11 capture la...
1 respuesta

Hacer referencia a un valor en una hoja distinta macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'rango hasta la celda 2000 If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then 'columna H actualizando col G Target.Offset(0, -1) = Target.Offset(0, -1).Value - Target.Value 'acumula...
1 respuesta

Bloquear celda después de introducir datos

Estoy utilizando un código que me funciona perfectamente. """""Worksheet - Change""""" Private Sub Worksheet_Change(ByVal Target As Range) dia = Date If Target.Column = 1 Then Target.Offset(0, 2) = dia hora = Time If Target.Column = 1 Then...
1 respuesta

Planilla de Stock

Elsa! Una vez más, recurro a su experiencia y conocimiento. Tengo una planilla con unos 1000 productos detallados en la comlumna A, en la columna B cargo el stock, en la columna C figuran las entradas y en la columna DE figuran las salidas. Cuando...
1 respuesta

Bloquear celdas una vez escritas

Tengo un código en el que me ingresa la hora, fecha y usuario por celda modificada. Por ejemplo, si en a1 ingreso un dato, en a2 ingresa la fecha, a3 la hora, a4 el usuario. Ahora, una vez que se ingreso el dato, necesito que no se modifique la...
1 respuesta

COmo Colocar Fecha de Manere Automática

Estoy haciendo un archivo de control documentario. Necesito que por ejemplo cuando ingrese un nombre en la celda A1, automáticamente en la celda B1 se llene la fecha y en la celda C1 la hora ACTUAL en la que estoy ingresando los datos. Luego deseoq...
1 respuesta

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta

Como ejecutar una macro con celdas bloqueadas

Tengo la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 Then Target.Offset(0, 1) = Date End Sub El panorama es asi; tengo la hoja completamente protegida, solo algunas celdas donde ingresar datos, en este...
1 respuesta

Actualizar la hora ultima modificación celda-excel

Días pasado he probado una macro publicada en el sitio que tenía como fin poner en una Celda (A2) la fecha y hora en que se ingresó un dato en la Celda A1. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If...
1 respuesta