View Single Post
  #5   Report Post  
chris w
 
Posts: n/a
Default

link dosent work.

but I have run into a glitch with this function, kinda,

What this tool is doing is I have a button that runs a macro to update links
to the sheet and makes a change to the cell "I7" so "J7" shows when the
update macro was run and I want "L7" to show who ran the update. Using
author, it puts my name in regardless of who (which computer) has the sheet
open. I have another cell that shows who the last author is, but last author
dosent work unless the person saves the sheet before running the update.

I suppose I can have as part of the macro to save sheet?


"Bob Phillips" wrote:

Chris,

This is the answer I gave to a similar question this morning

http://msdn.microsoft.com/library/de...texcel2000.asp

The object browser in VBA

The VBA Help file (look up Excel Object Model)

--

HTH

RP
(remove nothere from the email address if mailing direct)


"chris w" wrote in message
...
Worked like a charm, thanx

Where can I find a "dictionary" of VB code or the pop up entries that come
up to help complete the code?

"Bob Phillips" wrote:

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("I7")) Is Nothing Then
Range("J7") = Now
Range("L7").Value =

ActiveWorkbook.BuiltinDocumentProperties("author")
End If

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"chris w" wrote in message
...
Below is a change declaration I have in a sheet, is it possible to

have a
similar change declaration using docProps in another cell? So when

the
change is made to cell "I7" the date is put in "J7" and the current

author
is
put in "L7"

I tried to copy what I have below except change = Now to =
DocProps("author") and that didnt work.

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("I7")) Is Nothing Then
Range("J7") = Now
End If

End Sub