Thursday, 23 March 2017

Code : SumByColor

Function SumByColor(CellColor As Range, rRange As Range) 
Dim cSum As Long 
Dim ColIndex As Integer 
ColIndex = CellColor.Interior.ColorIndex 
For Each cl In rRange 
  If cl.Interior.ColorIndex = ColIndex Then 
    cSum = WorksheetFunction.SUM(cl, cSum) 
  End If 
Next cl 
SumByColor = cSum 
End Function
Posted by at

14 comments:

  1. Unknown24 November 2017 at 02:22

    how to Subtraction with background color

    ReplyDelete
  2. Don arif4 January 2018 at 00:31

    ive trying to calculate a duration between time using this method, its failed.. its only works on number, not working for time,..
    example:
    1) 1 hour 5 min -yellow
    2) 1 hour - yellow
    3) 30 min - green

    can you show me how can i get the value based on date/time?

    thanks
    Don

    ReplyDelete
  3. Anonymous28 October 2018 at 10:33

    Hello

    Very useful video thanks.



    ReplyDelete
  4. Unknown20 December 2018 at 01:13

    I have use above code but no sum of amount that have decimal , any idea to sum it

    ReplyDelete
  5. Unknown22 March 2019 at 13:27

    Thanks for the code, it's very helpful.

    ReplyDelete
  6. Anonymous10 April 2019 at 11:09

    Thank you very much. Very clever and useful. Well done.

    ReplyDelete
  7. Unknown11 April 2019 at 06:41

    WHY IS IT ROUNDING OFF MY FIGURES

    ReplyDelete
  8. Khatri Bhim5 June 2019 at 05:13

    why decimal not displayed???

    ReplyDelete
  9. Anonymous6 June 2019 at 10:19

    very useful. thanks!

    ReplyDelete
  10. efmagana6 June 2019 at 15:10

    It´s really helpful. THANKS

    ReplyDelete
  11. ThusharaF28 July 2019 at 03:27

    When I reopen the file and update, its showing #NAME? instead of figger. Can you fix this please?

    ReplyDelete
  12. Deepak Sharma26 November 2019 at 02:28

    thanks Dear.. really its work ..

    ReplyDelete
  13. Unknown31 May 2020 at 05:36

    Hi it's very useful and helpful Thanks.
    But it's not sum if there's decimal means 0.5 or 1.5 Please give some ideas or update the codes for that
    Thanks for this great work

    ReplyDelete
  14. bipin29 December 2020 at 22:57

    You are the great men

    ReplyDelete

Subscribe to: Post Comments (Atom)