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

 

[James006]

Hi,

Do you mean that Column Q is already filled with Dates ...

and that you only need to add the current time ...?

 

[Patriot2879]

Yes please.Got the date just need time as well please

 

[James006]

Hi again,

You could test following modification :

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 = Cells(Rw.Row, "Q").Value + (Now - Date)
    Next Rw
    Application.EnableEvents = True
  End If
End Sub

Hope this will help

 

[Patriot2879]

Thank you. I shall try this in the morning. Will this now put date and time onto row Q? Thanks for the help

 

[James006]

Thank you. I shall try this in the morning. Will this now put date and time onto row Q? Thanks for the help

No ...

Asked you the question if you already had a date in Column Q ...

This macro is designed to ONLY add the time to the existing date ...

 

[Patriot2879]

Sorry. I got date in column q but wanted to add time/date combined in column q if possible?

 

[SpillerBD]

Sorry. I got date in column q but wanted to add time/date combined in column q if possible?

Your macro does include date and time, but the macro doesn't format for Date and time.

Cells(Rw.Row, "Q").NumberFormat = "m/d/yyyy h:mm"

 

[Patriot2879]

Thank you i shall try this tomorrow morning. Thanks for your time

 

[James006]

As indicated by Spiller ... your macro already creates Date and Time ... with the instruction Now ...