Basic Date/Time Macro Question

[YDK]

Morning all,

I have been tasked with amending an existing spreadsheet where a button click will enter the date/time into Column A.

I have been asked to separate the data so that the date is displayed in Column A and the Time in Column B, is this possible using one button?

If not possible could anyone help provide me with Macro details for separate date/time stamps?

It would mean using 2 buttons however if that's what it comes down to then so be it!

Bit of background the sheet is used to capture specific data relating to exactly when incoming calls are received, the agent who takes the call simply clicks the button to generate data.

Many thanks.

 

[Sektor]

Sub DateAndTime()
    Range("A1") = DateValue(Now)
    Range("B1") = TimeValue(Now)
End Sub

 

[YDK]

Sub DateAndTime()
    Range("A1") = DateValue(Now)
    Range("B1") = TimeValue(Now)
End Sub

Hi Sektor,

Thanks a lot for that, it appears to work however instead of overwriting the data in columns A and B with every new click I need new data to be displayed on subsequent rows every time the button is clicked.

Any ideas?

 

[Sektor]

Sub DateAndTime()
    Cells(Rows.Count, 1).End(xlUp)[COLOR="Red"][B].Offset(1,0)[/B][/COLOR] = DateValue(Now)
    Cells(Rows.Count, 2).End(xlUp)[COLOR="Red"][B].Offset(1,0)[/B][/COLOR] = TimeValue(Now)
End Sub

 

[YDK]

Hmmm the values are still being written into A1 and B2 whenever I click the button

 

[Sektor]

Corrected (see previous post).

 

[YDK]

Yep that's the tweak I made just before your post, excellent many, many thanks!

 

[Sektor]

Not at all

 

[YDK]

Following on from the time/date macro, if I wanted to input a pre-populated value i.e. name in column E and team name in column F when clicking the button would this be the code;

Sub DateAndTime()
Cells(Rows.Count, "A").End(xlUp).Offset(1) = DateValue(Now)
Cells(Rows.Count, "B").End(xlUp).Offset(1) = TimeValue(Now)
Cells(Rows.Count, "E").End(xlUp).Offset(1) = Value(Smith, John)
Cells(Rows.Count, "F").End(xlUp).Offset(1) = Value(Technical Team)
End Sub

 

[YDK]

Anyone?