View Single Post
  #6   Report Post  
Summer
 
Posts: n/a
Default

Mangesh,

Thank you for responding!. Answers to my questions are not critical. I am
merely curious. Please do not go through a lot of trouble on my account. If
the solution is complicated, please do not spend time on this.

Below is the original poster's question with your reply (the one you lost
track of).

Thank you again!
~Summer

"Mangesh Yadav" wrote in message
...
| You can get the sheet name with this formula:
|
=RIGHT(CELL("filename",A1),(LEN(CELL("filename",A1 ))-FIND("]",CELL("filename
| ",A1))))
|
| I have lost track of the post whcih you mention.
|
| Mangesh

| "Summer" wrote in message
| ...
| Mangesh,
|
| Tried your code. This is so cool! (I'm a newbie - only 3 wks with Excel)
|
| I'd like to take this code you posted for the OP and use it a different
| way.
| I am curious...Can this be done?:
|
| Have the Log sheet store "historical" changes, logging only a finite
| number
| of them (overwriting oldest log entries as newer ones are returned)? Can
| the
| Log
| sheet also return the Sheet Name that was edited? My idea is to have
| something *similar* to an "Audit Trail".
|
| Example of proposed Log sheet:
|
| Sheet Name......... Date & Time............. Cell Address(es)
|
|
|
.........A.................B...................... ...........C...............
| 1......CustList......6/16/2005..13:09........$A$23:$B$24
| 2......Products.....6/16/2005 13:15........$D$678
| 3......CustList......6/16/2005 13:22........$G$567:$K$567
| 4......CustList......6/16/2005 13:25........$A$567:$E$567
| etc...
|
| Hope this makes sense.
| --
| Summer

-----------------------------------------

Mangesh wrote Jun 14, 2005:

Set a log sheet named say Log. You may hide this sheet. Add a standard
module and enter the following code:


Sub LogChanges(addr)

Set myLog = Worksheets("log")
myRow = myLog.Range("A65536").End(xlUp*).Row

myLog.Cells(myRow, 1) = Now()
myLog.Cells(myRow, 2) = addr


End Sub


And in every other sheets module, add the following code


Private Sub Worksheet_Change(ByVal Target As Range)
Call LogChanges(Target.Address)

End Sub
Whenever a user changes some cell, the address is logged in column B in
log sheet, and the time in column A.


Mangesh

--------------------------------------------

Kiran wrote Jun 14, 2005:

Hi All,
I have shared my work book. How do i know the changed made by other users
I need to close and reopen to see the changes made by the other user i would
like to know without closing the work book i should know the changes made by
other user is there any thing like refresh the work book?
TIA
-----------------------------------------