Historial de Cambios

Buenas amigos,

Espero que esten bien. Amigos, mi problema es el siguiente; necesito
llevar los camios efectuados dentro de un rango de una hoja, Tengo
este codigo que encontre de nuestro amigo Hector, pero este solo me
registra la Celda que fue modificada y no el valor

Este es el codigo que encontre en el GRUPO...expuesto por Hector.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:E1595")) Is Nothing Then Exit Sub
With Worksheets("Historial de Cambios").Range("a65536").End
(xlUp).Offset(1)
.Offset(0, 0) = Target.Address
.Offset(, 1) = Now
End With
End Sub

Necesito grabar tambien el valor.

Que tal así:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A1:E1595")) Is Nothing Then Exit Sub
  With Worksheets("Hoja5").Range("a65536").End(xlUp).Offset(1)
    .Offset(0, 0) = Target.Address
    .Offset(, 1) = Target.Value
    .Offset(, 2) = Now
  End With
End Sub

"mamo66" escribió en el mensaje de noticiasnews:



> Buenas amigos,

> Espero que esten bien. Amigos, mi problema es el siguiente; necesito
> llevar los camios efectuados dentro de un rango de una hoja, Tengo
> este codigo que encontre de nuestro amigo Hector, pero este solo me
> registra la Celda que fue modificada y no el valor

> Este es el codigo que encontre en el GRUPO...expuesto por Hector.

> Private Sub Worksheet_Change(ByVal Target As Range)
>  If Intersect(Target, Range("A1:E1595")) Is Nothing Then Exit Sub
>  With Worksheets("Historial de Cambios").Range("a65536").End
> (xlUp).Offset(1)
>    .Offset(0, 0) = Target.Address
>    .Offset(, 1) = Now
>  End With
> End Sub

> Necesito grabar tambien el valor.- Ocultar texto de la cita -

- Mostrar texto de la cita -