For each and If with worksheet function

[justin 00089]

Trying to find time gaps based off each cell and its offset (the next cell down) in a dynamic range. My error message right now is 'object required' in the if statement.

For Each cell In picks()
If WorksheetFunction.Abs(cell.Offset(-1, 0).Value - cell.Value) > 0.02083 Then

do something

ElseIf WorksheetFunction.Abs(cell.Offset(-1, 0).Value, -cell.Value) = cell.Value Then

do nothing

end if
Next Cell

 

[Joe4]

Can we see the test of your code to see how "pick()" is defined?

 

[justin 00089]

it is actually meant to be numbers() but it is defined as a dynamic range as follows

l = Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, "C").End(xlUp).Row
Set numbers = Range("C2:C" & l)

 

[Joe4]

You shouldn't have "()" after picks or numbers, if it is just a range variable.
Also, confirm what the value of "l" is in a message box, to make sure it is some value greater than 1.
If it is 1, you are going to have issues with the cell.Offset(-1, 0) reference, as you cannot move up 1 row from the first row.

If those things do not solve your problem, please post the entire code for us to analyze.

 

[justin 00089]

will remove "()". one of those 2+2=5 moments.