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