SUM cells with a specific column header from multiple worksheets - Using VBA

[isanka88]

Hi All Good people

I'm new to VBA and I'm seeking some assistance with a macro. I have a workbook with multiple sheets. First worksheet is call master worksheet. In the master worksheet I have sheet names. I would like to sum all cells below a specific column header named, "My text." across all my worksheets and insert the sum values in master sheet. For an example lets suppose I have 4 worksheets as Master, Shee1, Sheet2 and Sheet3. In the Master sheet I have each sheet names from A1 to C1. So I want the sum value below each of these sheet names. The sum value should pull from sheet 1, 2 & 3 based on heading name "My Text" But the column is dynamic in position (doesn't always fall under the same column or row)

Is there a way to find the term "My text" and sum all cells that fall under that column header?

Please let me know if I can provide any additional details to help with my request. I have attached my original workbook as below with my requirement explained on it

https://drive.google.com/file/…wDb1_C5Llb7eGOoDD1TH/view

Thanks in advance for your help!

 

[Osvaldo Palmeiro]

Hi. Try this code.

Sub GetSums()
 Dim lngCol As Long, wsName As Range
  With Sheets("Master")
   If .[C3] <> "" Then .Range("C3", .[B3].End(2)) = ""
   For Each wsName In .Range("C2", .[B2].End(2))
    lngCol = Sheets(wsName.Value).Rows(1).Find("My Text").Column
     wsName.Offset(1).Value = _
      Evaluate("Sum('" & wsName.Value & "'!" & Cells(3, lngCol + 1).Address & ":" & _
       Sheets(wsName.Value).Cells(Rows.Count, lngCol + 1).End(3).Address & ")")
   Next wsName
  End With
End Sub

 

[isanka88]

Hi Osvaldo
I do not know what to say and how to thank you. this is awesomely worked for me. My happiness is out of verbal definitions. You guys are amazing. Because of valuable people like you, Life is very easy for beginners like us. Thank you soo much for this. I owe you a lot for this.

 

[Osvaldo Palmeiro]

Hi, Isanka.
Thank you very much for your kind words and for your feedback.
We're glad to have contributed in some way to solve your demand.
Have a great weekend.

 

[isanka88]

Hi @Osvaldo Palmeiro

Here I have come again for seek your advise. You did a wonderful job last time. Now I need to add 1 more condition to the below macro you gave me.

Sub GetSums()
Dim lngCol As Long, wsName As Range
With Sheets("Master")
If .[C3] <> "" Then .Range("C3", .[B3].End(2)) = ""
For Each wsName In .Range("C2", .[B2].End(2))
lngCol = Sheets(wsName.Value).Rows(1).Find("My Text").Column
wsName.Offset(1).Value = _
Evaluate("Sum('" & wsName.Value & "'!" & Cells(3, lngCol + 1).Address & ":" & _
Sheets(wsName.Value).Cells(Rows.Count, lngCol + 1).End(3).Address & ")")
Next wsName
End With
End Sub

I want to add one more condition to the Sum. I think this can be done with SUM IF. In my worksheets I have department as "ABC in B column. I need to get the sum only for ABC department and put the value in "Master" sheet. I have attached my workbook in below google drive link.. Kindly have a look

Msaster Workbook.xlsx

Master Sheet Name,051120,061120 Now Result,85827,73143,This is the Result what I get from my exiting macro Expected Results,68408,41656,This is the Result what I am expecting to get

docs.google.com

 

[Peter_SSs]

Duplicate to: SUMIF cells with a specific column header from multiple worksheets - Using VBA

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.