Date Tracking

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a cell for date entry, every month the cell will be updated. I then
want all the dates entered to be stored in seperate cells on another sheet.
Can I do it?
 
Maybe you can clarify a little, you haven't gotten any answers and I suspect
it is because nobody understood your question

what are the dates entered to be stored in separate cells on another sheet?

Regards,

Peo Sjoblom
 
Sorry for the confusion. Maybe this will help. A person will perform a task
and then enter the date on sheet 1 cell A1, a month later they will perform
the task again and put new date in sheet 1, cell A1. I want all the dates to
appear on sheet 2, in seperate cells, date 1 -A1, date 2 - A2, and so on.
Does that help or is it still confusing.
 
In the sheet module of sheet1 (Right click on the tab, choose view code and
paste this in. Change sheet name to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
Set sht = ActiveWorkbook.Sheets("sheet2")

If Target.Address = "$A$1" Then
rw = sht.Cells(Rows.Count, "A").End(xlUp).Row + 1
sht.Range("A" & rw).value = Format(Now(), "dd-mmm-yyyy, hh:mm AM/PM")
End If

End Sub
 
THANK YOU
THANK YOU
THANK YOU

Ken Wright said:
In the sheet module of sheet1 (Right click on the tab, choose view code and
paste this in. Change sheet name to suit.

Private Sub Worksheet_Change(ByVal Target As Range)
Set sht = ActiveWorkbook.Sheets("sheet2")

If Target.Address = "$A$1" Then
rw = sht.Cells(Rows.Count, "A").End(xlUp).Row + 1
sht.Range("A" & rw).value = Format(Now(), "dd-mmm-yyyy, hh:mm AM/PM")
End If

End Sub
Click to expand...
 
Back
Top