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
|