Sum multi worksheets for same criteria

You can find explanations and examples of 3D references here

Hi Pepe Le Mokko,

Thanks for the references.
It is good but it seems it is not able to deal with that some items are not located in the same cell address from different worksheets.
Thanks anyway!

UDF (User Defined Function)is the best solution.
Code for UDF

Function SumAllSheets(RoHead As Range, ColHead As Range)

Dim Sh As Worksheet
Dim Rng1 As Range, Rng2 As Range
Dim Ro As Long, Col As Long

For Each Sh In Worksheets

If Sh.Name <> "Summary" Then
Set Rng1 = Sh.Range("A:A").Find(What:=RoHead, After:=Sh.Range("A1"), LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False)
If Not Rng1 Is Nothing Then
Ro = Rng1.Row
End If

Set Rng2 = Sh.Range("1:1").Find(What:=ColHead, After:=Sh.Range("A1"), LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False)
If Not Rng2 Is Nothing Then
Col = Rng2.Column
End If

If Ro > 0 And Col > 0 Then SumAllSheets = SumAllSheets + Sh.Cells(Ro, Col)
Ro = 0
Col = 0
End If

Next Sh

End Function

How to Use UDF code:
In Tthe developer tab click--> Visual Basic
VB window opens
Insert--> Module
Paste the code.
Close the window.
Now UDF is available in Function List

Hi kvsrinivasamurthy,

It is complicated to me but I will spend some time on tracking how it works.

Thanks a lot!

If you have any problem pl upload file and point out where is the problem. I will try to help.

Pl see file. Helper table added
When more sheets are added add sheet name in Column L.
In A2 then copied across.

=IF($K$2="",0,IFERROR(INDEX(INDIRECT($L$2),MATCH($A2,INDIRECT($M$2),0)-1,MATCH(B$1,INDIRECT($N$2),0)-1),0))+IF($K$3="",0,IFERROR(INDEX(INDIRECT($L$3),MATCH($A2,INDIRECT($M$3),0)-1,MATCH(B$1,INDIRECT($N$3),0)-1),0))+IF ColumnL($K$4="",0,IFERROR(INDEX(INDIRECT($L$4),MATCH($A2,INDIRECT($M$4),0)-1,MATCH(B$1,INDIRECT($N$4),0)-1),0))+IF($K$5="",0,IFERROR(INDEX(INDIRECT($L$5),MATCH($A2,INDIRECT($M$5),0)-1,MATCH(B$1,INDIRECT($N$5),0)-1),0))+IF($K$6="",0,IFERROR(INDEX(INDIRECT($L$6),MATCH($A2,INDIRECT($M$6),0)-1,MATCH(B$1,INDIRECT($N$6),0)-1),0))+IF($K$2="",0,IFERROR(INDEX(INDIRECT($L$7),MATCH($A2,INDIRECT($M$7),0)-1,MATCH(B$1,INDIRECT($N$7),0)-1),0))+IF($K$8="",0,IFERROR(INDEX(INDIRECT($L$8),MATCH($A2,INDIRECT($M$8),0)-1,MATCH(B$1,INDIRECT($N$8),0)-1),0))+IF($K$9="",0,IFERROR(INDEX(INDIRECT($L$9),MATCH($A2,INDIRECT($M$9),0)-1,MATCH(B$1,INDIRECT($N$9),0)-1),0))+IF($K$10="",0,IFERROR(INDEX(INDIRECT($L$10),MATCH($A2,INDIRECT($M$10),0)-1,MATCH(B$1,INDIRECT($N$10),0)-1),0))+IF($K$11="",0,IFERROR(INDEX(INDIRECT($L$11),MATCH($A2,INDIRECT($M$11),0)-1,MATCH(B$1,INDIRECT($N$11),0)-1),0))+IF($K$12="",0,IFERROR(INDEX(INDIRECT($L$12),MATCH($A2,INDIRECT($M$12),0)-1,MATCH(B$1,INDIRECT($N$12),0)-1),0))+IF($K$13="",0,IFERROR(INDEX(INDIRECT($L$13),MATCH($A2,INDIRECT($M$13),0)-1,MATCH(B$1,INDIRECT($N$13),0)-1),0))

tywlam... is it possible for all the column headers to be present on each sheet, in ANY order, even if there are no data below them?

Have you seen my previous post

Thanks for feed back.

OK. Here is an alternative that is much easier to maintain. Create a Named Range (I called it "Sheets", CTRL-F3 to view/edit), using this formula:

=$L$1:INDEX($L:$L,MATCH("zzz",$L:$L))

as you add additional sheets to the list from L4 downwards, the Named range will not need to be changed again. Then, this array formula in B2, copied across and dnown will deliver the answer:

=SUM(SUMIF(INDIRECT("'"&Sheets&"'!A1:J100"),$A2,OFFSET(INDIRECT("'"&Sheets&"'!A1:J100"),,MMULT(IF(T(OFFSET(INDIRECT("'"&Sheets&"'!A1:J1"),,COLUMN(INDIRECT("A:J"))-COLUMN(INDIRECT("A:A")),,1))=B$1,COLUMN(INDIRECT("A:J"))-COLUMN(INDIRECT("A:A")),0),TRANSPOSE(COLUMN(INDIRECT("A:J"))^0)),,1)))

Array Formulae are a little different from ordinary formulae in that they MUST be confirmed in the FIRST CELL ONLY by pressing CTRL+SHIFT+ENTER to activate the array, not just ENTER. After that, the array can be dragged down as normal, to cover the desired range.

You will know the array is active when you see curly brackets { } - or "curly braces" for those of you in the USA, or "flower brackets" for those of you in India - appear around the outside of your formula. If you do not use CTRL+SHIFT+ENTER you will (almost always) get an error message or an incorrect answer. Press F2 on that cell and try again.

Don't type the curly brackets yourself - it won't work...

I have set it to cover columns A to J, down as far as row 100. If you need more, adjust the bits in red in B2, array enter, and copy across & down. Do not use whole column references with INDIRECT, as it will process 1,000,000 rows. Make it reasonable, but not excessive!!

Originally Posted by Glenn Kennedy

OK. Here is an alternative that is much easier to maintain.

It seems this should use less resource to do the calculations. Let me try and come back to you later.
Thanks again.

On second thoughts, some of the INDIRECTS can be removed:

=SUM(SUMIF(INDIRECT("'"&Sheets&"'!A1:J100"),$A2,OFFSET(INDIRECT("'"&Sheets&"'!A1:J100"),,MMULT(IF(T(OFFSET(INDIRECT("'"&Sheets&"'!A1:J1"),,COLUMN($A:$J)-COLUMN($A:$A),,1))=B$1,COLUMN($A:$J)-COLUMN($A:$A),0),TRANSPOSE(COLUMN($A:$J)^0)),,1)))

This will reduce recalculation time.

You're welcome.

---

If that takes care of your original question, please select "Thread Tools" from the menu link above and mark this thread as SOLVED.

It'd also be appreciated if you were to click the Add Reputation button at the foot of any of the posts of all members who helped you reach a solution.