Getting application or object defined error using offset

Question

I have written this example code to reporduce the error:

Sub test()

Dim rng As Range
Dim cell As Range

Set rng = ThisWorkbook.Worksheets(1).Range("C1:C3")

For Each cell In rng
    If cell.Value2 = cell.Offset(-1, 0).Value2 Then
    cell.Offset(1, 0) = "TRUE"
    End If
Next cell

End Sub

In the line If cell.Value = cell.Offset(-1, 0).Value2 I get an Application or Object defined error but I have no idea why. Usually it should check for C1 if B1 has the same value. Maybe I am just blind. Could anyone tell me why this is not working?

Máté Juhász · Accepted Answer · 2015-08-11 07:30:49Z

1

Offset property of Range object has the order of arguments: Offset(RowOffset, ColumnOffset), your code refers to the cells C0, which doesn't exist, try Offset(0,-1).

answered Aug 11, 2015 at 7:30

Máté Juhász

2,3552 gold badges24 silver badges46 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Getting application or object defined error using offset

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related