References summations based on column and row number

**kinseld5** · 05-25-2012, 05:29 AM

Hi,
I will begin with the code:

For a = 10 To 23
        For b = 3 To 7
        
        If Workbooks(NewFile).Sheets(1).Rows(a).Columns(b).Interior.ColorIndex = 4 Then
            Sum(a, b) = Sum(a, b) + 1
            Workbooks(CurrentFile).Sheets(1).Rows(a).Columns(b) = Sum(a, b)
        End If
        
    
        Next

Essentially I want to have a list of summations based on column and row numbers so if I ask for Sum(1,2) it will give me the sum from row 1 column 2.
Any help would be appreciated.

**Steffen Thomsen** · 05-25-2012, 05:39 AM

row 1 column 2 is a single cell, why not reference it directly?

#Edit

Could you upload a sample workbook with mock data so i can better understand what your asking?

**kinseld5** · 05-25-2012, 07:06 AM

Steffen,
Thanks for the reply. I managed to work it out.

Dim Sum(23, 7) As Integer
 For a = 10 To 23
        For b = 3 To 7
        
        If Workbooks(NewFile).Sheets("Course Rating").Rows(a).Columns(b).Interior.ColorIndex = 4 Then
            Sum(a, b) = Sum(a, b) + 1
            Workbooks(CurrentFile).Sheets("Analysis").Rows(a).Columns(b) = (Sum(a, b) / Count)
        End If

So this code will give a sum for each combination of rows 10 - 23 with columns 3 - 7