poner la fecha y hora junto a una celda modificada

28/03/2006 - 23:28 por Adolfo Aparicio | Informe spam
Hola grupo.
Necesito poner la fecha y la hora en una celda contigua a otra modificada
por los usuarios.

Me explico. En la columna B los usuarios ponen datos (concretamente
porcentajes de avance de los diferentes proyectos que figuran en cada fila).
Y en la columna C necesito que figure la fecha y hora en la que se modificó
la celda contígua de la columna B.

He probado con algo parecido a esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Count = 1 Then
If (Target.Column = 2 And Target <> 0) Then
Target.Offset(-0, 1) = Now
End If
End If
End Sub

pero no funciona bien. El problema es que cuando pasas el cursos por encima
de una celda de la columna B (previamente escrita) se actualiza la hora en la
columna C, y solo debiera actualizarse la hora si se cambia el dato de la
columna B.

Alguna idea?

Gracias.

Adolfo Aparicio
 

Leer las respuestas

#1 Héctor Miguel
29/03/2006 - 05:20 | Informe spam
hola, Adolfo !

Necesito poner la fecha y la hora en una celda contigua a otra modificada por los usuarios.
En la columna B los usuarios ponen datos (concretamente porcentajes de avance de los diferentes proyectos que figuran en cada fila).
Y en la columna C necesito que figure la fecha y hora en la que se modifico la celda contígua de la columna B.
He probado con algo parecido a esto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Count = 1 Then
If (Target.Column = 2 And Target <> 0) Then
Target.Offset(-0, 1) = Now
End If
End If
End Sub
pero no funciona bien. El problema es que cuando pasas el cursos por encima de una celda de la columna B (previamente escrita)
se actualiza la hora en la columna C, y solo debiera actualizarse la hora si se cambia el dato de la columna B.
Alguna idea?



cambia/mueve el codigo que estas usando [pero]... de 'evento' ;)
de -> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a -> Private Sub Worksheet_Change(ByVal Target As Range)

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Preguntas similares