Forums Últimos mensajes - Powered by IBM
 

Historial de Cambios

28/02/2009 - 20:29 por mamo66 | Informe spam
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.
 

Leer las respuestas

#1 Juan Español
28/02/2009 - 21:21 | Informe spam
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 noticias
news:
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.

Preguntas similares