Como cargar una la misma macro de fecha/hora en dos celdas distintas?
Realice una macro para que se capture automáticamente la fecha y hora en una celda al momento de capturar un dato en otra celda en especifico. Ahora deseo aplicar la misma macro en otra celda, pero me marca un error.
El proceso y macro es el siguiente:
1. Capturo el N° de pase de salida en la celda "G6".
2. En la celda "I6" de forma automática aparece la fecha y hora (fija).
Lo que necesito es:
1. Capturar en la celda "J6" el N° de pase de entrada.
2. Que en la celda "K6" se capture automáticamente la fecha y hora (fija).
Mi macro que uso es:
Private Sub Salida()
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("g:g")) Is Nothing Then
Range("i" & Target.Row) = Format(Now, "dd/mmm/yy hh:mm")
End If
End Sub
¿Estoy aplicando mal la macro al intentar replicarla para usarla en otras celdas?
1 Respuesta
Eso que envías no tiene relación a lo que comentas tienes, adem´s, hay una línea de más ---> "Private Sub Salida()"
Regresando al Evento que has colocado, lo que hace es que si hay cambios en las celdas de la columna "G", se coloca la fecha en la celda, de la misma fila, de la columna "I". Si tú lo que deseas es que cuando ingreses "algo" en "J6" se coloque la fecha en "K6", debes colocar algo así haciendo uso del Evento "Change" de la hoja en cuestión:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$6" Then
Range("K6") = Format(Now, "dd/mmm/yy hh:mm")
End If
End SubAbraham Valencia
