Sumif in 3d

[Beeblebrox]

I found a VBA solution to SUMIF in 3d however, it returned a Valu
error.
I need to sumif over 200 sheets. How can I do this

 

[Tom Ogilvy]

that might be an indication that it wasn't actually a solution.

Without knowing what your solution was, it would be hard to say.

 

[Dave Peterson]

I'd check the data in each of those sheets, too.

Maybe you have a cell that evaluates to #value! in one of those sheets.

But it could be the code, too. If there are unhandled errors, you could see
that result, too.

 

[Beeblebrox]

Here's the coding I used. I'm testing conditions that are the text
results of a lookup and summing cells that are numerical results of
nested IF statements and a lookup). But I also tried it with replacing
the text lookup with straight text and the If formulas with numbers on
only three sheets. Still no luck.



Function SumIf3D(Range3D As String, Criteria As String, Optional
Sum_Range As Variant) As Variant

Dim sTestRange As String
Dim sSumRange As String
Dim Sheet1 As Integer
Dim Sheet2 As Integer
Dim n As Integer
Dim Sum As Double

Application.Volatile

If Parse3DRange(Application.Caller.Parent.Parent.Name, Range3D,
Sheet1, Sheet2, Sheet3, sTestRange) = False Then
SumIf3D = CVErr(xlErrRef)
End If

If IsMissing(Sum_Range) Then
sSumRange = sTestRange
Else
sSumRange = Sum_Range.Address
End If

Sum = 0
For n = Sheet1 To Sheet3
With Worksheets(n)
Sum = Sum +
Application.WorksheetFunction.SumIf(.Range(sTestRange), Criteria,
..Range(sSumRange))
End With
Next n
SumIf3D = Sum
End Function

 

[Dave Peterson]

Did you check your data in each sheet for errors?

Do you have any hidden rows in any of the sheets that could have errors?

If you changed the sheets to a smaller group, did it work ok?

What was the formula you used in the cell?