Compare Marco

[lisa duncan]

I need a macro to compare Columns A-H in worksheet 1
to Columns A-H in worksheet 2 move all differences to worksheet 3

 

[kpark91]

I assume they're all numbers in columns A - H in both worksheets?
Then paste onto ThisWorkbook module

Sub compareDiff()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet, LR&, i&, j&
    Set WS1 = Worksheets("Sheet1") 'Change name as required
    Set WS2 = Worksheets("Sheet2")
    Set WS3 = Worksheets("Sheet3")
     
    LR = WS1.Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To LR
            For j = 1 To 8
                'Difference between worksheet 2 and worksheet 1 (ws2 - ws1)
                WS3.Cells(i, j).Value = WS2.Cells(i, j).Value - WS1.Cells(i, j).Value
            Next j
        Next i
        
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[lisa duncan]

I am getting a subscript out of range errror I need to compare both numbers and text