Find differences between sheets in two different workbooks

[sumit dey]

Hi experts,

I need some urgent help with this.
I have two workbooks with many sheets in them which are named similar.
I want to get the difference between a particular column between each sheet in the workbooks I have attached the workbook for your reference. In my example I need to find the difference between column E and the results should show up in a new worksheet.

[Pepe Le Mokko]

I need some urgent help with this.

Administrative Note:
Please remember that those who help here do so voluntarily and of their own goodwill. They live in many different time zones and many will be out at work right now if they are not asleep on the other side of the globe. This is not a paid 'service': members will help when they are ready and able to do so, and not 'on demand'. Please do not try to put pressure of time on anyone here: if you get the help you need today, that's fine, but you really should not count on it. Thanks for your understanding and patience.

[sumit dey]

Sub MakeFormulas()
Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim sourceBook As Workbook
Dim sourceSheet As Worksheet
Dim outputSheet As Worksheet
Application.ScreenUpdating = True

'Where is the source workbook?
Set sourceBook = Workbooks.Open("C:\My Documents\Book1.xlsx")

'what are the names of our worksheets?
Set sourceSheet = sourceBook.Worksheets("Sheet1")
Set outputSheet = ThisWorkbook.Worksheets("Sheet1")

'Determine last row of source
With sourceSheet
SourceLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
With outputSheet
'Determine last row in col P
OutputLastRow = .Cells(.Rows.Count, "P").End(xlUp).Row
'Apply our formula
.Range("Q2:Q" & OutputLastRow).Formula = _
"=VLOOKUP(A2,'[" & sourceBook.Name & "]" & sourceSheet.Name & "'!$A$2:$B$" & SourceLastRow & ",2,0)"
End With

'Close the source workbook, don't save any changes
sourceBook.Close False
Application.ScreenUpdating = True
End Sub

I am using the above code but, it's showing Error 9 subscript out of range. The debugger is at " Set output sheet= ThisWorkbook.Worksheets("Sheet1").

Please advice

[jolivanes]

Aside from what Pepe told you, read the forum rules. Number 2 is of interest to you.

[sumit dey]

Please Login or Register  to view this content.

I think this may work