How do I code a cell to display the current date on double-click?

Hi, I want to be able to have the current date entered into a given
cell, when I double-click it.

It will always be a cell, in one particular column, reserved for date.
Jim

Hi,

Write the BeforeDoubleClick of worksheet as follow:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Column = 2 Then' for second(B) column
Target.Value = Now()
End If
End Sub

Regards,

Vinit


George wrote:
> Hi, I want to be able to have the current date entered into a given
> cell, when I double-click it.
>
> It will always be a cell, in one particular column, reserved for
date.
> Jim

If the cell for your date is range named, say "main.date" then your
doubleclick event is easier to follow

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel
As Boolean)
Dim rDate As Range
Set rDate = ThisWorkbook.Names.Item("main.date").RefersToRange
If Target.Address = rDate.Address Then
Cancel = True
Target.Value = Now
End If
End Sub

HTH
Patrick Molloy
Microsoft Excel MVP

"George" wrote:

> Hi, I want to be able to have the current date entered into a given
> cell, when I double-click it.
>
> It will always be a cell, in one particular column, reserved for date.
> Jim
>

Application.intersect () can also help to check the activecell in a
range

Yes, this example below seems to work just fine.
Please tell me, I'd like to know how to write this stuff, but I can't
learn it on my own. Is there a site or a good book, loaded with such
macro/module examples?

Thanks,
Jim

>Hi,
>
>Write the BeforeDoubleClick of worksheet as follow:
>
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
>As Boolean)
>If Target.Column = 2 Then' for second(B) column
> Target.Value = Now()
>End If
>End Sub
>
>Regards,
>
>Vinit
>
>
>George wrote:
>> Hi, I want to be able to have the current date entered into a given
>> cell, when I double-click it.
>>
>> It will always be a cell, in one particular column, reserved for
>date.
>> Jim
>