FIJAR FECHA

El código que te pongo abajo me sirivió para una pregunta que hice en su
momento, igual que la tuya. Seguro que el de los compañeros es más completo,
pero este me sirivió a mi.

Public Function FechaSi( _
Optional Condicion As Variant = "", _
Optional SiCumple As Variant = "", _
Optional SiNoCumple As Variant = "", _
Optional Formato As String = "dd/mmm/yy" _
) As Variant
If Condicion = "" Or Condicion = True Then
If SiCumple = "" Then
SiCumple = Format(Now, Formato)
ElseIf IsDate(SiCumple) Then
SiCumple = Format(CLng(CDate(SiCumple)), Formato)
End If
FechaSi = SiCumple
Else
If IsDate(SiNoCumple) Then SiNoCumple = _
Format(CLng(CDate(SiNoCumple)), Formato)
FechaSi = SiNoCumple
End If
End Function

"Mario" escribió en el mensaje de
noticias:

Hola Todos,

Necesito una macro que me permita insertar en celda A1 la fecha del
dia cuando ingreso algun dato en la celda B1. No puedo hacerlo con la
formula HOY() ya que cada dia actualiza la fecha, y lo que quiero es
fijarla al dia corriente y la mantenga como dato de fecha de
transaccion.

Gracias A Todos,


Mario.