I want to compare old and new datasheets and highlight changes
 

I want to compare old and new datasheets and highlight changes
 

Helpful posting advice here... http://www.cpearson.com/excel/newposte.htm

--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins - use XL Companion to compare data)



"Barry"

wrote in message

I want to compare old and new datasheets and highlight changes
 

Sometimes less is more, sometimes more is more. When posting questions to
this DG, more is more and more is better. I can only assume what you want;
this may or may not help:


Sub Compare2Shts()
For Each Cell In Worksheets("CompareSheet#1").UsedRange
If Cell.Value < Worksheets("CompareSheet#2").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next

For Each Cell In Worksheets("CompareSheet#2").UsedRange
If Cell.Value < Worksheets("CompareSheet#1").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next
End Sub


Regards,
Ryan--

--
RyGuy


"Jim Cone" wrote:


Helpful posting advice here... http://www.cpearson.com/excel/newposte.htm

--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins - use XL Companion to compare data)



"Barry"

wrote in message

I want to compare old and new datasheets and highlight changes
 

Hi Jim & Ryan,
Ryan your reply read like it could be what I am looking for but being new to
VBA I amnot sure what to put in place of sheet1 or sheet2.

More info,

I have an Access 2007 database that once a week the main table get exported
to an Excel 2007 table (only one spreadsheet)
..
The data in the access table gets changed duing each weekly cyle and the
data in the previous weeks export stays the same.

I need to compare the two tables without making any changes to the data and
find out where the changes have been made, (create a new table with the
change highlighted) this are very large table and to do this manually is very
error prone.

Barry

"ryguy7272" wrote:

Sometimes less is more, sometimes more is more. When posting questions to
this DG, more is more and more is better. I can only assume what you want;
this may or may not help:


Sub Compare2Shts()
For Each Cell In Worksheets("CompareSheet#1").UsedRange
If Cell.Value < Worksheets("CompareSheet#2").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next

For Each Cell In Worksheets("CompareSheet#2").UsedRange
If Cell.Value < Worksheets("CompareSheet#1").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next
End Sub


Regards,
Ryan--

--
RyGuy


"Jim Cone" wrote:


Helpful posting advice here... http://www.cpearson.com/excel/newposte.htm

--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins - use XL Companion to compare data)



"Barry"

wrote in message

I want to compare old and new datasheets and highlight changes
 

If the data is non-sensitive, send me the file and I will set up a tool for
you to use going forward. Or, try to put some very basic data in a workbook,
that is somewhat similar to your workbook, send it to me, and I will take
care of the task and send it back to you.

Regards,




--
RyGuy


"Barry" wrote:

Hi Jim & Ryan,
Ryan your reply read like it could be what I am looking for but being new to
VBA I amnot sure what to put in place of sheet1 or sheet2.

More info,

I have an Access 2007 database that once a week the main table get exported
to an Excel 2007 table (only one spreadsheet)
.
The data in the access table gets changed duing each weekly cyle and the
data in the previous weeks export stays the same.

I need to compare the two tables without making any changes to the data and
find out where the changes have been made, (create a new table with the
change highlighted) this are very large table and to do this manually is very
error prone.

Barry

"ryguy7272" wrote:

Sometimes less is more, sometimes more is more. When posting questions to
this DG, more is more and more is better. I can only assume what you want;
this may or may not help:


Sub Compare2Shts()
For Each Cell In Worksheets("CompareSheet#1").UsedRange
If Cell.Value < Worksheets("CompareSheet#2").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next

For Each Cell In Worksheets("CompareSheet#2").UsedRange
If Cell.Value < Worksheets("CompareSheet#1").Range(Cell.Address) Then
Cell.Interior.ColorIndex = 3
End If
Next
End Sub


Regards,
Ryan--

--
RyGuy


"Jim Cone" wrote:


Helpful posting advice here... http://www.cpearson.com/excel/newposte.htm

--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins - use XL Companion to compare data)



"Barry"

wrote in message