Convertir función =ahora en valor fijo

Si (p.e.) la fórmula "=SI(ESBLANCO(C15);"";AHORA()" la tienes en la columna A y además los datos en la columna C, los
entras a mano (y no con fórmula), prueba con el siguiente código en el módulo de la hoja:


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 Then

If Target.Value <> "" Then

Application.EnableEvents = False

Target.Offset(, -2).Value = Date

Application.EnableEvents = True

End If

End If

End Sub


Nota: La columna A, no precisa fórmulas y la escritura de la fecha es automática.


Saludos: Antonio.

****************************************

"Ubaldo" escribió en el mensaje
news:
> Hola a todos
>
> En una celda de Excel 2003 introduzco la función =ahora para poner la fecha
> y hora del sistema, pero me interesaria que justo después se convierta en un
> valor fijo para que no se actualilce cuando actualizo la hoja de cálculo. He
> probado el copiar y hacer un pegado especial de solo valores y funciona, pero
> no es comodo lo deseado es que automaticamente justo despùes de introducir la
> función ya se convierta en valor.
>
> Gracias a todos.