Type Mismatch Error When Comparing Ranges

[phenley3]

I have the following code and get a type mismatch error when comparing two ranges through a loop. When comparing the rows, the first column has a number and the other three contain strings. The idea is to find any differences between the two sheets and put them into another sheet. I changed .Value to .Text in the if statement, and it ran, but it put everything into the other sheet as though everything was different.

Set target = output.Range("B3:D3")
For i = 13 To prevws.Cells(13, 2).End(xlDown).Row
    Set test = prevws.Range(prevws.Cells(i, 2), prevws.Cells(i, 5))
    For w = 13 To curws.Cells(13, 2).End(xlDown).Row
        Set comp = curws.Range(curws.Cells(w, 2), curws.Cells(w, 5))
[B]        If test.Value = comp.Value Then[/B]
            same = True
            Exit For
        Else
            same = False
        End If
    Next w
    If same = False Then
            target.Value = test.Value
            Set target = target.Offset(1, 0)
    End If
Next i

 

[RoryA]

Welcome to the forum.

You can't compare one array to another using the = operator. You'd have to loop through each array.

 

[phenley3]

Thanks for the reply.

So I'd have to add a third loop within the second that loops through each value in the range?

 

[RoryA]

Either that or do something like joining the arrays into delimited strings that you can directly compare.