add time to a time stamp

[Patriot2879]

Hi i have used your code below, but i want to add time to the date in Row Q can you help me please?

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Changed As Range, Rw As Range

  Set Changed = Intersect(Target, Union(Range("H:H"), Range("H:H")))
  If Not Changed Is Nothing Then
    Application.EnableEvents = False
    For Each Rw In Changed.Rows
      Cells(Rw.Row, "P").Value = Environ("Username")
      Cells(Rw.Row, "Q").Value = Now
    Next Rw
    Application.EnableEvents = True
  End If
End Sub

 

[Patriot2879]

hi all, thanks for your help. I have used the code below, which works but for some reason the date is coming up as 0/01/1900, any ideas to why this is happening?

Cells(Rw.Row, "Q").Value = Cells(Rw.Row, "Q").Value + (Now - Date)

 

[James006]

Hi,

Test following :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Changed As Range, Rw As Range


  Set Changed = Intersect(Target, Union(Range("H:H"), Range("H:H")))
  If Not Changed Is Nothing Then
    Application.EnableEvents = False
    For Each Rw In Changed.Rows
      Cells(Rw.Row, "P").Value = Environ("Username")
      Cells(Rw.Row, "Q").Value = Now
      Cells(Rw.Row, "Q").NumberFormat = "dd/mm/yyyy hh:mm:ss"
    Next Rw
    Application.EnableEvents = True
  End If
End Sub

HTH

 

[Patriot2879]

hi that works great now many thanks for your help, it is greatly appreciated

 

[James006]

Glad to hear your problem is now fixed ...