From: karim on
hi,

I want to record current time into cell(A2) when cell (A1) does contain
value with macro.
I want to record it automaticaly without using any shortkey or tab,

Please help.


From: ozgrid.com on
If Range("A1")<> val Then Range("A2")=Time


--
Regards
Dave Hawley
www.ozgrid.com
"karim" <karim(a)discussions.microsoft.com> wrote in message
news:C3422553-BE0C-42FB-9301-E0A3533FE70C(a)microsoft.com...
> hi,
>
> I want to record current time into cell(A2) when cell (A1) does contain
> value with macro.
> I want to record it automaticaly without using any shortkey or tab,
>
> Please help.
>
>

From: Gord Dibben on
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo enditall
Application.EnableEvents = False
If Me.Range("A1").Value <> "" Then
Me.Range("A2").Value = Format(Now, "hh:mm:ss")
End If
enditall:
Application.EnableEvents = True
End Sub

Placed in the worksheet module.


Gord Dibben MS Excel MVP

On Fri, 30 Apr 2010 20:25:01 -0700, karim <karim(a)discussions.microsoft.com>
wrote:

>hi,
>
>I want to record current time into cell(A2) when cell (A1) does contain
>value with macro.
>I want to record it automaticaly without using any shortkey or tab,
>
>Please help.
>