Entrada de celda para llamar macro en celda adyacente

Problema

Tengo un escenario que me gustaría automatizar. El escenario es el siguiente

Si ingreso un valor en cualquier celda de una columna en particular, quiero que la hora del sistema se ingrese en la celda adyacente. Actualmente, he usado este comando en una macro para hacerlo, pero es un proceso manual (ActiveCell.Value = Time) y tengo que hacer clic en la celda adyacente y luego presionar los botones de acceso directo para hacerlo siempre.

Ejemplo:

Si ingreso 123 en la celda A2, quiero que la hora del sistema (por ejemplo, 6:59:33 PM) se capture en la celda B2. Quiero continuar ingresando valores en la columna 'A' uno debajo del otro con la hora del sistema ingresada automáticamente hasta la segunda en la celda adyacente correspondiente en la columna 'B'. ¿Es esto posible? Sería genial si alguien pudiera ayudarme.

Solución

Implemente este código en la hoja de trabajo en la que desea que funcione (haga clic derecho en la pestaña de la hoja de trabajo, haga clic en ver código):

 Private Sub Worksheet_Change (ByVal Target As Range) ActiveCell.Offset (-1, 1) = Time End Sub 

Cada vez que pones algo en una celda y presionas ENTER, la hora actual del sistema se está poniendo en la celda adyacente a la derecha.

Nota

TENGA EN CUENTA que debe confirmar su entrada presionando ENTER y no use las flechas o TAB.

Gracias a Trowa por este consejo en el foro.