Fecha de modificación

Hola.
Necesitaba una macro que me ingrese en una celda determinada la fecha en la que se modifique cualquier valor en la hoja. ¿Es posible?
Un saludo.

1 respuesta

1
Respuesta de
Hola amigo, puedes utilizar este código en el evento de hoja Change.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cell As Range
Dim OldText As String, NewText As String
If CheckBox1 Then
For Each cell In Target
With cell
On Error Resume Next
OldText = .Comment.Text
If Err <> 0 Then .AddComment
NewText = OldText & "Cambiado a " & cell.Text & _
" por " & Application.UserName & " el " & Now & vbLf
.Comment.Text NewText
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End With
Next cell
End If
End Sub
Private Function HasComment(r) As Boolean
Dim x As String
HasComment = False
On Error Resume Next
x = r.Comment.Text
If Err = 0 Then HasComment = True
End Function
jcgonzalez3165@gmail.com
Hola, lo que necesito es que p.e. en la celda a1 me ingrese la fecha de la modificación o introducción de cualquier dato que se haga en la hoja.
Mándame tu archivo y te ayudo. Lo que hace la macro anterior es poner un comentario a cada celda que se modifique y cuantas veces se modifique. Explicándome, si pones un valor en A2, creará un comentario con la modificación, fecha y hora. Si vuelves a cambiar el valor, modificará el comentario y le agregará los nuevos datos.
A mi criterio es mejor porque te darás cuenta cuál celda fue modificada. Con lo que planteas se tendría que evaluar un rango. Si quieres lo modifico para que solo en una celda aparezca el cambio, pero me tienes que enviar tu archivo para insertar la rutina en el lugar correspondiente.
jcgonzalez3165@gmail.com
Enviado archivo a tu correo.
Ya te envié el archivo con la modificación.
jcgonzalez3165@gmail.com
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: