Question

Say I had just copied a table to another workbook, and wanted to write a macro to verify the copy was successful, I would have to have two range variables to compare them. How do I assign the address of the cell being compared to follow the other cell’s address in the other workbook, so that they are both offset the same way, even if the two starting cells are different, and so can still be compared correctly?

Answer 1

Change the originalRange to your original data range in the desired workbook. If this is run immediately after your paste you can use Selection for the pastedValue data. If not then change this accordingly:

Dim i As Double, j As Double
Dim originalRange() As Variant, pastedValue() As Variant
Dim copyPassed As Boolean

originalRange = Workbooks("Book1").Sheets("Sheet1").Range("A1").CurrentRegion.Value
pastedValue = Selection

copyPassed = True

For i = 1 To UBound(pastedValue, 1)

    For j = 1 To UBound(pastedValue, 2)

        If (originalRange(i, j) <> pastedValue(i, j)) Then

            copyPassed = False
            GoTo test_exit:

        End If

    Next j

Next i

test_exit:

MsgBox "Copy Passed: " & copyPassed