IF(ISERROR) in an array

[tiredofit]

I have these formulae in cells:

=IF(ISERROR(A1/B1),0,A1/B1)

=IF(ISERROR(C1/D1),0,C1/D1)

How can I create this in a VBA array?

For Example:

Dim DataArray() As Variant

DataArray = Cells(1,1).CurrentRegion.Value

Dim MyArray(1 To 10, 1 To 2) As Variant

Dim Counter As Integer

On Error GoTo ErrHandler

For Counter = 1 To 10

    MyArray(Counter, 1) = DataArray(Counter, 1) / DataArray(Counter, 2)
    MyArray(Counter, 2) = DataArray(Counter, 3) / DataArray(Counter, 4)

Next Counter

Exit Sub

ErrHandler:

MyArray(Counter, 1) = 0
MyArray(Counter, 2) = 0

Resume Next

If only B1 OR D1 is zero, it will error out but how can my array know which one errors?

Thanks

 

[Marcelo Branco]

Sorry but if my original formula was different, say:

=IF(ISERROR(IF(A2>Z100,E2,E2/F2),0,IF(A2>Z100,E2,E2/F2))

then if A2 was a letter, say p but Z100 is the value 1000, it does NOT error.

Ok. This is a different formula. Adapt the code as needed.
Next time, please, show us the actual scenario you are working with and all the conditions involved.

M.