Any great minds can help :Auto updation

[deepak]

Hi experts,
I'm a proffessional in garment manufacturing. I make daily
production reports. I have to update data, daily. (Today's
production figures are added to yesterday's and a
cumulative is produced).
Can anybody suggest a method so that I can....
* Type the daily prod. on a daily basis.
* and the daily production figures getautomatically get
saved in a different sheet.
* If I want to call a particular day's production details,
I can call it from that seperate sheet.

If any one can guide me, it will be a great help.
Thank you
deepak

 

[Don Guillett]

Right click on sheet tab>view code>copy/paste this.Modify to suit.
This copies today's date and cell d1 to the next available row in sheet3,col
A

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.address <> "$D$1" Then Exit Sub
With Sheets("sheet3") 'sheet to copy to
x = .Cells(Rows.Count, 1).End(xlUp).Row + 1
..Cells(x, 1) = Date
..Cells(x, 2) = Target
End With
End Sub

To retreive, just use vlookup on the date entered in d2
=vlookup(d2,sheet3!a1:b2000,2)