Audit Trail Not Working 100% As Planned

[cferretti]

Hello,

I'm new to VBA and I have some code for an audit trail I've found on the web that I'd like to make work for my project.

The goal is to have 5 columns of data, on another worksheet titled "Audit", as follows: Username of who made the change, Cell change location, Previous Data, New Data (overwritten or added new), Date/Time of Change.
What is currently happening is I seem to only be tracking changes that happen in column A of my primary worksheet. It does track Username, cell location, new data, and date/time of change. But it doesn't pick up what the previous data was and I am stumped on that part. I've tried changing certain lines to different ranges and I'm not seeing any changes in what it prints out.

Here is my code just for the Audit Trail portion:

Please Login or Register  to view this content.

[Logit]

.
Create a sheet named "Tracker". Paste this code in the ThisWorkbook module :

Please Login or Register  to view this content.

[cferretti]

Hi Logit,

I plugged in your code but it isn't working at all on my "Audit" sheet. I'm new to VBA so I may not be understanding everything that is going on in your code. For example, I looked up .HasFormula but I'm not sure its necessary to have in my sheet since I'm mostly dealing with data entry and not formulas (save a couple of cells).

Here is all of my code with yours plugged in at the bottom (attached). If you have time could you please explain what I'm doing wrong? I'd like to learn from my mistakes too so I can do this by myself in the future.

[cferretti]

Hi Logit,

I accidentally added your code to Sheet1 instead of ThisWorkbook. Once I added it to ThisWorkbook, it mostly works; however I think I'm missing some data in my audit tracker.

This is what I get as an output when I make changes in sheet 1:

VBA_01.PNG

It seems that everything is switched around. I'm going to make some changes and see if I can fix it.

[Logit]

.
My apologies. After posting the code I realized some of it was "out of wack". I edited the code in my workbook but failed to
repost the correct code for your use. I am so sorry.

Here is the correct code :

Please Login or Register  to view this content.

[cferretti]

Thank you, Logit!

I actually made some changes too once I figured out how everything works. Thank you for your code, it works great!

Here is my version, the only difference is the order of the columns:

Please Login or Register  to view this content.

[Logit]

.
You are welcome.