Track Changes via Macro

[ManSim]

Hi all,
I am brandnew to VBA but learn a bit more every day. Now I have the following problem that needs your help:
I have about 15 different excel inventories and need to check every Monday if changes were made in the last week. All files are shared hence "tracking changes" is basically possible.
Now instead of clicking the mouse so many times I attempted to start recording a macro to ease my work. The result was the following code:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Sub TrackChanges()
'
' TrackChanges Macro
'
<o> </o>
'
With ActiveWorkbook
.HighlightChangesOptions When:="15.03.2010"
.ListChangesOnNewSheet = True
.HighlightChangesOnScreen = True
End With
End Sub
<o> </o>
<o> </o>
Unfortunately this macro does not really work - nothing happens! What is wrong with this?
<o> </o>
PS. At a later stage I want to replace the hard coded date with an input msgbox...

Much appreciate any comment.
Thanks in advance

 

[memoney77]

Great thanks

 

[PRIMA]

Hi arkusM,

I tried your code and it works really great. Can you add some line that tracks the users if he/she add some information to all worksheets and list all those additional information in the trackers.

Thanks a lot.

Regards.

 

[arkusM]

Hi arkusM,

I tried your code and it works really great. Can you add some line that tracks the users if he/she add some information to all worksheets and list all those additional information in the trackers.

Thanks a lot.

Regards.

Prima,

In the code there is this bit that if you comment out will track EVERYTHING.

'Precursor Exits
    'Other conditions that you do not want to tracke could be added here
    If vOldValue = "" Then Exit Sub    'If you comment out this line *every* entry will be recorded

 

[PRIMA]

Hi arkusM,

I tried to remove the comment block, it gives me a "Compile Error".

What should I do?

Thanks.

 

[arkusM]

Hi arkusM,

I tried to remove the comment block, it gives me a "Compile Error".

What should I do?

Thanks.

Just try and comment out that one IF statement line. It should work for you.

 

[geospatial]

That works great. Is there a way to add 2 columns, one that will put the DTG of the change, and one that can read the username from the computer and put that in a column?

 

[arkusM]

That works great. Is there a way to add 2 columns, one that will put the DTG of the change, and one that can read the username from the computer and put that in a column?

Not sure what you mean by DTG. (even after googling it )
And the User name is already tracked.

 

[PRIMA]

Hi arkusM,

It work now.. Thank you so much for the wonderful code.

 

[geospatial]

Not sure what you mean by DTG. (even after googling it )
And the User name is already tracked.

DTG is Date Time Group, so it would be in format of 20100406 10:59:59

 

[arkusM]

DTG is Date Time Group, so it would be in format of 20100406 10:59:59

Time and Date are Tracked in seperate columns.

            .Offset(0, 6) = Time
            .Offset(0, 7) = Date

Could be sub'd with .offset(0,6) = Now
and format the column to display as you wish.