add the current TIME to a date that is entered on a userform

[kbishop94]

My code:

With Cells(llRow, 2)    
    .Value = CDate(txtDateADD.Value)
    .NumberFormat = "mm/dd/yyyy hh:mm"
End With

txtDateADD is a textbox where the user enters a date.

what I need to go into the cell (llRow, 2) when a commandbutton is clicked and the data is copied to my worksheet, is a date & time that looks like and is formatted like this:

1/15/2019 11:33:52 AM

but what i get is this:

1/15/2019


An exact time is not important... just whatever the current time (now) is will suffice.

Please and Thank you for your assistance.

Keith

 

[Rick Rothstein]

My code:

With Cells(llRow, 2)    
    .Value = CDate(txtDateADD.Value) [B][B][COLOR="#FF0000"]+ Time[/COLOR][/B][/B]
    .NumberFormat = "mm/dd/yyyy hh:mm"
End With

txtDateADD is a textbox where the user enters a date.

what I need to go into the cell (llRow, 2) when a commandbutton is clicked and the data is copied to my worksheet, is a date & time that looks like and is formatted like this:

1/15/2019 11:33:52 AM

but what i get is this:

1/15/2019


An exact time is not important... just whatever the current time (now) is will suffice.

Try adding what I show in red above and see if that works for you.

 

[kbishop94]

Try adding what I show in red above and see if that works for you.

Thank you Rick... worked perfectly sir.