View Single Post
  #2   Report Post  
Gord Dibben
 
Posts: n/a
Default

You could use worksheet event code to copy the entire row to another sheet
whenever a date is entered or a change is made to a date in that particular
column.

Assumes you have a Sheet1 for entry and a Sheet2 for tracking.

Also assumes dates are entered/edited in Column A of Sheet1

The copying is accumulative in Sheet2

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set vRngInput = Intersect(Target, Range("A:A"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo stoppit
Application.EnableEvents = False
For Each rng In vRngInput
If Target.Value < "" Then
Target.EntireRow.Copy Destination:= _
Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next
stoppit:
Application.EnableEvents = True
End Sub

This is worksheet code.

Right-click on the Sheet1 tab and "View Code".

Paste the above into that module.


Gord Dibben Excel MVP

On Wed, 23 Mar 2005 23:39:02 -0800, "SiliconAlleyDude"
wrote:

I have made a sheet which contains a column which is used to insert
installation dates, however these dates change from time to time due to
failed installations or rescheduled installation dates.

Is there a way which I can use to automatically track these changes in a
separate sheet?
E.g. Automatically copy the row to a new sheet, to keep track of changes?

Thanks in advance