date stamp and time stamp

[ace_silver10]

Hey,

Im running an occurance log and im wanting to automatically time stamp and entry.

A1	A2	A3	A4	A5
"Date stamp"	"Time Stamp"	Date validation list "Subject"	The actual log description	Data validation list "Name"

<tbody>
</tbody>

What I am wanting is for A1 and A2 to automatically populate, and be editable if the entry is late, when I add data in either A3, A4 or A5; this will be on multiple rows too. Id like VBA but willing to try anything

Cheers guru's

 

[mrmmickle1]

Try something like this.... if columns 3,4 or 5 are updated a change will occur in Columns 1 and 2 that updates the date and time:

[COLOR=#0000ff]Private Sub[/COLOR] Worksheet_Change([COLOR=#0000ff]ByVal[/COLOR] Target [COLOR=#0000ff]As[/COLOR] Range)
[COLOR=#008000]    'This code goes in the worksheet module[/COLOR]
 [COLOR=#0000ff]   If [/COLOR]Target.Column = 3 [COLOR=#0000ff]Or [/COLOR]Target.Column = 4 [COLOR=#0000ff]Or[/COLOR] Target.Column = 5 [COLOR=#0000ff]Then[/COLOR]
        Cells(Target.Row, 1) = Date[COLOR=#008000] 'This will be entered in column 1[/COLOR]
        Cells(Target.Row, 2) = Time [COLOR=#008000]'This will be entered in column 2[/COLOR]
[COLOR=#0000ff]    End If[/COLOR]
[COLOR=#0000ff]End Sub[/COLOR]

 

[ace_silver10]

you deserve a payrise

 

[mrmmickle1]

hahaha you can tell that to my boss