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

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
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje

Más respuestas relacionadas

¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: