Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Historial de Cambios

28/02/2009 - 20:29 por mamo66 | Informe spam
Ayuda Hacer una pregunta
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.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

 

Busqueda sugerida :