Fecha automática
Hola elsa
Tengo una hoja en Excel donde se registra a las personas que llegan con un ejecutivo, la idea es que en automático se asigne la hora en el momento en que se termina de capturar el nombre del visitante uando llega, use la función Ahora() pero no me da los resultados deseados podrías ayudarme por favor, gracias
Tengo una hoja en Excel donde se registra a las personas que llegan con un ejecutivo, la idea es que en automático se asigne la hora en el momento en que se termina de capturar el nombre del visitante uando llega, use la función Ahora() pero no me da los resultados deseados podrías ayudarme por favor, gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Podés utilizar una rutina en el evento de captura del dato 'nombre'. Supongamos que este dato se encuentra en la col A, entonces en el Editor, en el objeto Hoja que corresponda colocá esta rutina, ajustándola a tus referencias;
Private Sub Worksheet_Change(ByVal Target As Range)
'controla si el cambio se da en la col A
If Target.Column = 1 Then
'podrías controlar 1 sola celda con la instrucc. siguiente:
'if target.address(false, false) = "A2" then
'se coloca la hora en celda de la col siguiente:
Target.Offset(0, 1).Value = Time()
End If
End Sub
PD) Te recuerdo que tenés 1 consulta pendiente de finalizar del 11/09 con titulo: ¿Archivo demasiado grande?
Private Sub Worksheet_Change(ByVal Target As Range)
'controla si el cambio se da en la col A
If Target.Column = 1 Then
'podrías controlar 1 sola celda con la instrucc. siguiente:
'if target.address(false, false) = "A2" then
'se coloca la hora en celda de la col siguiente:
Target.Offset(0, 1).Value = Time()
End If
End Sub
PD) Te recuerdo que tenés 1 consulta pendiente de finalizar del 11/09 con titulo: ¿Archivo demasiado grande?
