Barnabas

• Jan 22nd, 2007

 

Hi,

We have option for comparing the Excel Sheets. For generataing macros we compared.

And another one option is, using if condition we compare the two cells, and apply for the whole.

Thanks

Barna

silambarasi

• Jul 29th, 2011

 

Compare 2 Excel sheets cell by cell

Code
Set objExcel = CreateObject(Excel.Application) 


objExcel.Visible = True 


Set objWorkbook1= objExcel.Workbooks.Open(sample1.xls) 


Set objWorkbook2= objExcel.Workbooks.Open(sapmle2.xls) 


Set objWorksheet1= objWorkbook1.Worksheets(1) 


Set objWorksheet2= objWorkbook2.Worksheets(1) 


For Each cell In objWorksheet1.UsedRange 


  If cell.Value <> objWorksheet2.Range(cell.Address).Value Then   


     cell.Interior.ColorIndex = 3 


     'Highlights in red color if any changes in cells 


  Else 


     cell.Interior.ColorIndex = 0 


  End If 


Next 


 


set objExcel=nothing