Agregar fechas y horas en excel.
Hola amigos ya me han ayudado una vez y aun sigo agradeciéndoselos, ahora necesito nuevamente su apoyo, este es mi caso.
Estoy desarrollando una hoja de excel para control de existencias en un almacen, pero necesito que la hoja de trabajo haga lo siguiente:
Si yo capturo un dato en la columna F, en la columna L debe agregarse en automático la fecha de esa modificación, en la columna M debe agregarse en automático la hora de esa modificación.
Pero también si yo capturo un dato en la columna I, en la columna N debe agregarse en automático la fecha de esa modificación y en la columna O debe agregarse en automático la hora de esa modificación.
Todo en la misma hoja de trabajo.
Creo que si me explique..
¿Qué código debo agregar? Por favor agradezco su ayuda.
Estoy desarrollando una hoja de excel para control de existencias en un almacen, pero necesito que la hoja de trabajo haga lo siguiente:
Si yo capturo un dato en la columna F, en la columna L debe agregarse en automático la fecha de esa modificación, en la columna M debe agregarse en automático la hora de esa modificación.
Pero también si yo capturo un dato en la columna I, en la columna N debe agregarse en automático la fecha de esa modificación y en la columna O debe agregarse en automático la hora de esa modificación.
Todo en la misma hoja de trabajo.
Creo que si me explique..
¿Qué código debo agregar? Por favor agradezco su ayuda.
1 respuesta
Respuesta de angelcrisnor
1
Creo que el siguiente código de más abajo, que tendrás que copiar en el editor de Visual Basic de esa hoja, hace lo que quieres.
Si necesitas ayuda, dímelo.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim ValorPrevio
Private Sub Worksheet_Change(ByVal CeldaEditada As Range)
Dim RangoCeldaEditada, RangoCeldaFecha, RangoCeldaHora As String
RangoCeldaEditada = Replace(CeldaEditada.Address, "$", "")
If CeldaEditada.Cells.Count = 1 Then
If CeldaEditada.Column = 6 And CeldaEditada.Value <> ValorPrevio Then
RangoCeldaFecha = "L" + Mid(RangoCeldaEditada, 2)
RangoCeldaHora = "M" + Mid(RangoCeldaEditada, 2)
Range(RangoCeldaFecha).Value = Date
Range(RangoCeldaHora).Value = Format(Time, "hh:mm:ss")
End If
If CeldaEditada.Column = 9 And CeldaEditada.Value <> ValorPrevio Then
RangoCeldaFecha = "N" + Mid(RangoCeldaEditada, 2)
RangoCeldaHora = "O" + Mid(RangoCeldaEditada, 2)
Range(RangoCeldaFecha).Value = Date
Range(RangoCeldaHora).Value = Format(Time, "hh:mm:ss")
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal CeldaSeleccionada As Range)
ValorPrevio = CeldaSeleccionada.Value
End Sub
Si necesitas ayuda, dímelo.
Saludos
Angel
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim ValorPrevio
Private Sub Worksheet_Change(ByVal CeldaEditada As Range)
Dim RangoCeldaEditada, RangoCeldaFecha, RangoCeldaHora As String
RangoCeldaEditada = Replace(CeldaEditada.Address, "$", "")
If CeldaEditada.Cells.Count = 1 Then
If CeldaEditada.Column = 6 And CeldaEditada.Value <> ValorPrevio Then
RangoCeldaFecha = "L" + Mid(RangoCeldaEditada, 2)
RangoCeldaHora = "M" + Mid(RangoCeldaEditada, 2)
Range(RangoCeldaFecha).Value = Date
Range(RangoCeldaHora).Value = Format(Time, "hh:mm:ss")
End If
If CeldaEditada.Column = 9 And CeldaEditada.Value <> ValorPrevio Then
RangoCeldaFecha = "N" + Mid(RangoCeldaEditada, 2)
RangoCeldaHora = "O" + Mid(RangoCeldaEditada, 2)
Range(RangoCeldaFecha).Value = Date
Range(RangoCeldaHora).Value = Format(Time, "hh:mm:ss")
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal CeldaSeleccionada As Range)
ValorPrevio = CeldaSeleccionada.Value
End Sub
