Nested if returning error 1004

  • Thread starter Thread starter tom
  • Start date Start date
T

tom

This sub returns error 1004 when it hits the second if statement. Can
you tell me why?

------------
Sub addYears()

Dim year1 As Integer
Dim year2 As Integer

For Each cell In Range("a1", "a3000")
If cell.Value = cell.Offset(1, 0).Value Then
year1 = cell.Offset(0, 4).Value
year2 = cell.Offset(1, 4).Value
cell.Offset(0, 5).Value = year1 + year2
Else
If cell.Value = cell.Offset(-1, 0).Value Then
cell.Offset(0, 5).Value = "See Above"
End If

End If
Next cell
----------

Thanks

-tom


End Sub
 
It works if the second if statement refers to something other than
offset(-1,0), such as offset(1,0), then it works.
Ideas?
 
when your cell is on Row 1 your offset of -1 is an error
Try this:

For Each Cell In Range("a1", "a3000")
If Cell.Value = Cell.Offset(1, 0).Value Then
year1 = Cell.Offset(0, 4).Value
year2 = Cell.Offset(1, 4).Value
Cell.Offset(0, 5).Value = year1 + year2
Else
If Cell.Row > 1 Then
If Cell.Value = Cell.Offset(-1, 0).Value Then
Cell.Offset(0, 5).Value = "See Above"
End If
End If
End If
Next Cell
 
Back
Top