Dates in excel

[swingkat]

Hello,

I'm would like to write a function that automatically writes the date an action is taken. In other words, it would be something like:

=IF(D12="x";TODAY(); ) but the problem is I need the date to remain as a static value, which is why I can't use TODAY or NOW. I'm stumped because the only way to write a static date that I have found is using the keyboard command CTRL+SHIFT+; and I can't include that sequence in the IF function or in VBA.

If anyone could help me with this I would be really grateful as I've been wrestling with this problem for two whole days without any luck. It seems so simple......

 

[erik.van.geit]

double click

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim cell As Range
Dim CheckRange As Range
Dim TC As Long

Set CheckRange = Intersect(Target, Union(Columns("D"), Columns("L"), Columns("T")))

If CheckRange Is Nothing Then Exit Sub

Cancel = True

Application.EnableEvents = False

    With Target
    .Value = "x"
    .Offset(0, 1) = Time
    End With

Application.EnableEvents = True

End Sub

a variation on this theme would be to put a checkmark in the cells

    With Target
    RH = .RowHeight
    .Font.Size = 10
    .Font.Name = "Marlett"
    .RowHeight = RH
    .Value = "a"
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Offset(0, 1) = Time
    End With