Change Event - Track Multiple cell value changes

[MHamid]

Hello,

I’m looking for some guidance so I can start writing my code.

I need to keep track of changes made in a worksheet ("Main") and placed into a "Log" Sheet. So let’s say that the cell values changed in range B7:F7;H7:I7 (or at least 1 of these cell value changes, then I want the previous values copied to a log sheet into range E3:K3 and the new value copied into range L3:R3.
The changes are based on formulas, if that makes a difference. So we will add new data weekly into another sheet, and the formulas in the Main Sheet will update automatically. I would like to see these changes reflected into a log sheet.
How can I accomplish this?
Below is the sample data.


Thank you,

TrackChangesSample.xlsx
	A	B	C	D	E	F	G	H	I
6	Account Number	Ownership	Ownership1	Ownership2	Location	Impacts	Notation	LocationRevised	Section
7	159486	Owned	Business1	SubBusiness 1	North America	SubBusiness2	Based on blah blah blah	North America	EH
8	4895	Owned	Business2	SubBusiness 4	North America	SubBusiness3	Based on blah blah blah	Asia	WHO
9	15563	Not Owned	Not Owned Business1	Not Owned SubBusiness 1			Based on blah blah blah	Europe	TEST
10	4487952	Not Owned	Not Owned Business1	Not Owned SubBusiness 1			Based on blah blah blah	Latin America	BLAH
11	4522489	Not Owned	Not Owned Business2	Not Owned SubBusiness 2		Not Owned SubBusiness 3	Based on blah blah blah	North America	WHAT
Main

TrackChangesSample.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1					PRIOR DATA / OLD DATA							NEW DATA / UPDATED DATA
2	Week of	Week of	Current Date	Account Number	Ownership	Ownership1	Ownership2	Location	Impacts	LocationRevised	Section	Ownership	Ownership1	Ownership2	Location	Impacts	LocationRevised	Section
3	5/23/2023	5/23/2023	5/27/2023	159486	Owned	Business1	SubBusiness 1	North America	SubBusiness2	North America	EH	Not Owned	Not Owned Business1	Not Owned SubBusiness 1			Europe	TEST
4	5/23/2023	5/23/2023	5/27/2023	4895	Owned	Business2	SubBusiness 4	North America	SubBusiness3	Asia	WHO	Not Owned	Not Owned Business2	Not Owned SubBusiness 2		Not Owned SubBusiness 3	North America	WHAT
5	5/23/2023	5/23/2023	5/27/2023	15563	Not Owned	Not Owned Business1	Not Owned SubBusiness 1			Europe	TEST	Owned	Business2	SubBusiness 4	North America	SubBusiness3	Asia	WHO
6	5/23/2023	5/23/2023	5/27/2023	4487952	Not Owned	Not Owned Business1	Not Owned SubBusiness 1			Latin America	BLAH	Owned	Business1	SubBusiness 1	North America	SubBusiness2	North America	EH
7	5/23/2023	5/23/2023	5/27/2023	4522489	Not Owned	Not Owned Business2	Not Owned SubBusiness 2		Not Owned SubBusiness 3	North America	WHAT	Owned	Business1	SubBusiness 1	North America	SubBusiness2	North America	BLAH
Log

 

[sijpie]

You will need to capture the change event in the sheet where the user makes the changes, not in the 'Main' sheet. This is because when the values of the formulas change, these are not seen as change events.

Personally I would do it as follows

1. Create a Worksheet_Change() event for the sheet(s) where the users make changes
2. the event should check if the change is in an area where it affects the main sheet (if that is relevant)
3. if the change does affect the Main sheet, then store the changed value that the user made
4. do an Application.Undo to undo this change
5. Load the total table on the Main sheet into an array
6. Redo the change by placing back the stored value
7. Load the total table in Main again into another array
8. Compare the two arrays and where they differ, store the value in the first array into your log sheet

An alternative method would be to store the Main table into an array on opening the Workbook, Then again track the changes of the usersheet and after each change:

1. Load the Main table into the 2nd array
2. Compare the two arrays and log changes as above
3. then refresh the 1st array by loading the Main table again

The latter approach may be minimally more efficient, but the 1st array must be declared at the top of the ThisWorkbook module in order that it keeps its values