Actualización de Fecha

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.

On 22 ene, 23:35, "Héctor Miguel"
wrote:

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.

Hector muchas gracias.
Pero en realidad no me quedó muy claro. Es como decís vos, si se
produce un cambio en la hoja 2, quiero que en una celda de la hoja 1
se registre la fecha de dicho cambio.
No me quedó claro donde fijo la celda de la hoja 1, donde se registra
la fecha.
Muchas gracias

hola, matias !

... no me quedo muy claro... si se produce un cambio en la hoja 2
quiero que en una celda de la hoja 1 se registre la fecha de dicho cambio.
No me quedo claro donde fijo la celda de la hoja 1, donde se registra la fecha...

mi suposicion "era" que cualquier cambio en "X" hoja (en cuyo modulo se pone el codigo)
se debe registrar en la "hoja2" (en orden consecutivo)

si tu realidad es que necesitas el registro EN la "hoja1", solo cambia esta parte del codgo:
de:
With Worksheets("hoja2").Range("a65536").End(xlUp)
a:
With Worksheets("hoja1").Range("a65536").End(xlUp)

si NO quieres registros consecutivos, sino solo en "la celda" de la hoja1...
=> comenta cual es "la celda"
y cualquier detalle que se te este quedando "en el tintero"
(para NO tener que "suponer" que si o que no y donde ni nada de eso)

saludos,
hector.

__ OP __

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