csum

Hey all, I added to an Excel file the following module: 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 =...

Hi all, This is for Excel 2013, and here is my code, which has worked before: Public Function SumByColor(CellColor As Range, rRange As Range) ' CellColor is the cell containing they colour type you are searching for ' rRange is the range of cells to add, if the colour matches...

Hi All I had this procedure working perfectly but it suddenly stopped and is not recognising CL as a variable. I have highlighted the CL in blue which is what excel does when it shows "Expected Function or Variable". Could anyone help please? I have remmed out col1 = CL.Interior.ColorIndex as I...

I have a function that I want to have run using selection change. The code for the function is: Function SumByColor(CellColor As Range, rRange As Range) Dim cSum As Currency Dim ColIndex As Integer ColIndex = CellColor.Interior.ColorIndex For Each cl In rRange If cl.Interior.ColorIndex =...

Hi Mr. Excel, I am attempting to write 2 different function codes and am requesting help, please. If I could merge both of these functions that would be even better! I will list the coding below, however, I am wanting to have the sum of only the yellow background highlighted cell values be...