Actualización de Fecha

22/01/2009 - 15:37 por matiaslandin | Informe spam
Mi consulta es la siguiente: Quiero que cada vez que se modifica
cualquier cosa en una Worksheet, en otra aparezca la última fecha en
que se actualizó. Se entiende???
Muchas gracias
 

Leer las respuestas

#1 Héctor Miguel
23/01/2009 - 02:35 | Informe spam
hola, matias !

Quiero que cada vez que se modifica cualquier cosa en una Worksheet
en otra aparezca la ultima fecha en se actualizo. Se entiende???



si suponemos que "la otra" hoja se llama "hoja2" -???-
copia/pega (o escribe) el siguiente procedimiento
=> en el modulo de codigo de la "worksheet" (donde se hacen las modificaciones)
(haz un clic-secundario sobre la etiqueta con su nombre y selecciona "ver codigo")

Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("hoja2").Range("a65536").End(xlUp)
.Offset(1) = Date
.Offset(1, 1) = Time
.Offset(1, 2) = Target.Address
.Offset(1, 3) = IIf(Target.Count > 1, "Varios", Target.Value)
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares