Here's an easy one:

For the spreadsheet I am developing I want to track changes on a separate
sheet. On the main sheet I have added in a button that will activate the
changes sheet but how do I make it so the current system date and time get
populated in columns A and B in the next empty row?

Thanks in advance for your help.
Neal

bearsfan wrote:
Here's an easy one:

For the spreadsheet I am developing I want to track changes on a separate
sheet. On the main sheet I have added in a button that will activate the
changes sheet but how do I make it so the current system date and time get
populated in columns A and B in the next empty row?

Thanks in advance for your help.
Neal


First

Range("A5").Select

Make the cell equal to the formula <=Today()

Then

Range("A5").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

You copy todays date and paste it as a value so it is static.

Sub record_it()
Dim r As Range
Dim free_row As Long
Worksheets("Sheet2").Activate
Set r = ActiveSheet.UsedRange
free_row = r.Rows.Count + r.Row
Cells(free_row, 1) = Date
Cells(free_row, 2) = Time
End Sub

This code will not write in open areas in the middle of your used range.
--
Gary''s Student


"bearsfan" wrote:

Here's an easy one:

For the spreadsheet I am developing I want to track changes on a separate
sheet. On the main sheet I have added in a button that will activate the
changes sheet but how do I make it so the current system date and time get
populated in columns A and B in the next empty row?

Thanks in advance for your help.
Neal

Thanks for your help Gary's Student & Smarty Pants! Much appreciated.

"Gary''s Student" wrote:

Sub record_it()
Dim r As Range
Dim free_row As Long
Worksheets("Sheet2").Activate
Set r = ActiveSheet.UsedRange
free_row = r.Rows.Count + r.Row
Cells(free_row, 1) = Date
Cells(free_row, 2) = Time
End Sub

This code will not write in open areas in the middle of your used range.
--
Gary''s Student


"bearsfan" wrote:

Here's an easy one:

For the spreadsheet I am developing I want to track changes on a separate
sheet. On the main sheet I have added in a button that will activate the
changes sheet but how do I make it so the current system date and time get
populated in columns A and B in the next empty row?

Thanks in advance for your help.
Neal