Last data entry made time and Date show in each worksheet
You could add this to your workbook which will record changes to a Master
sheet
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Const MASTER_SHEET As String = "MAster" '<=== change to suit
Dim wsmaster As Worksheet
Dim iRow As Long
Set wsmaster = Worksheets(MASTER_SHEET)
If Sh.Name < wsmaster.Name Then
iRow = wsmaster.Cells(wsmaster.Rows.Count, "A").End(xlDown).Row + 1
wsmaster.Cells(iRow, "A").Value = Sh.Name
wsmaster.Cells(iRow, "B").Value = Target.Address(False, False)
wsmaster.Cells(iRow, "C").Value = Environ("UserName")
End If
End Sub
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Rajat" wrote in message
...
Hi,
i've created a Excell file and there are atleast 55 worksheet and i've
named
them as 1, 2, 3 to 55 etc. but the content of the each worksheet is same
(means data entry field are same in each sheet) its basically a templet
for
entering specific information of seperate projects Print area of each
sheet
is A1:Y74. At one go all the information are not filled up in each sheet,
it
will be updated regularly. I've used the ToolsProtectionProject Sheet
option so that the user can access only those fields where they have to
enter
DATA.
My requirement is i want to know when last data entry (not just simple
saving of sheet) was made in each sheet and saved that time and date to
appear in a specific cell of each sheet say A75 for Time and A76 for Date.
Because there will be instance when one user will open the file and enter
the updated data related to projects in 2 or 3 sheet out of 55 and closed
the
file in that instance i want to see that the sheet where updation was made
those show the time and date in that sheet and other sheets remaim
unchaged
untill those are updated.
Thanx in advance,
|