Sumif - Colorindex = 37

I have some data where I have colored certain Values.

I want to write a code that would Sum only if the Color Index is 37.

I have attached the sheet as well as the code.

Can anyone clarify what is wrong?

Code =

Sub Colorindex()


Dim LR As Integer, Counter As Byte, GT As Double

ThisWorkbook.Sheets("Sheet1").Activate

LR = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For Counter = 1 To LR
 
GT = Application.WorksheetFunction.SumIf(Range("A1:A" & LR), Range("A" & Counter).Interior.Colorindex = 37, (Range("A1:A" & LR)))


Next Counter

End Sub

Hi,

I have changed your code as follows :

Sub Colorindex()


Dim LR As Integer, Counter As Byte, GT As Double

ThisWorkbook.Sheets("Sheet1").Activate

LR = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For Counter = 1 To LR

 If Sheets("Sheet1").Cells(Counter, 1).Interior.Colorindex = 37 Then
 GT = GT + Sheets("Sheet1").Cells(Counter, 1)
 End If
 
'GT = Application.WorksheetFunction.SumIf(Range("A1:A" & LR), Range("A" & Counter).Interior.Colorindex = 37, (Range("A1:A" & LR)))



Next Counter
MsgBox GT
End Sub

Works!! Thank you..

Glad i could help,

Please mark this thread as solved if you are satisfied with the solution provided.