Date stamp help required

[HDavidson]

Hi all i need some help with a vba code.What i would like is a date stamp placed in a list in a worksheet in a shared workbook when each user updates their particular tab in the workbook.The date stamp need to include user name date and time in the following format username dd/mm/yy hh:mm:ss.This also needs to be blank if the user has not updated their sheet.I have pasted below what i am currently using although this does not give me seconds or blank if not updated.

[code[

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Row >= 3 And Target.Row <= 1000 And Target.Column >= 4 Then


Cells(1, Target.Column) = Now()
Cells(2, Target.Column) = Application.UserName


End If
End Sub

[/code]

Thanks

 

[James006]

Hello,

The seconds ... are available thanks to Now()... but not displayed ... just adjust your custom format by adding :ss

Regarding the Blank issue ...when do you need it to happen ?

 

[HDavidson]

if the user has not updated their sheet.although i understand this will be pointless after they have made the first entry.

 

[James006]

if the user has not updated their sheet.although i understand this will be pointless after they have made the first entry.

Precisely ...

Could you fix your ' seconds ' issue ...?

 

[HDavidson]

Sorted thanks for that.

 

[James006]

You are welcome ...

 

[r1998]

Hello HDavidson
In ThisWorkbook use

Private Sub Workbook_Open()
Sheet12.Range("e1:e2").ClearContents
End Sub

and in Sheet12 use

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 1000 And Target.Column >= 4 Then
Cells(1, Target.Column) = Application.UserName & " " & Format(Now(), "dd/mm/yy hh:mm:ss")
End If
End Sub