Help to expand a vba

[dodde]

Hello

I have this vba , but now i also want to add column KQ and cell KQ17, but can not figure it out how to add, i did try but failed, the color index is 38

Sub Sum_Rapmet()
   Dim x As Double
    Dim lr As Long, i As Long
    lr = Range("KA" & Rows.Count).End(xlUp).Row
    x = 0
    For i = 1 To lr
        If Range("KA" & i).Interior.ColorIndex = 4 Then
          x = x + Range("KA" & i).Value2
        End If
    Next i
    Range("KA17") = x
End Sub

[dodde]

Hello

It works like this but i know it is not right written, try to learn

Private Sub CommandButton1_Click()
'MsgBox "Background " & Selection.Interior.ColorIndex
'MsgBox "Font Color " & Selection.Font.ColorIndex
    Dim x As Double
    Dim lr As Long, i As Long
    lr = Range("KA" & Rows.Count).End(xlUp).Row
    x = 0
    For i = 1 To lr
        If Range("KA" & i).Interior.ColorIndex = 4 Then
          x = x + Range("KA" & i).Value2
           End If
    Next i
    Range("KA17") = x
       
    lr = Range("KQ" & Rows.Count).End(xlUp).Row
    x = 0
    For i = 1 To lr
        If Range("KQ" & i).Interior.ColorIndex = 38 Then
          x = x + Range("KQ" & i).Value2
           End If
    Next i
    Range("KQ17") = x
End Sub

[AlphaFrog]

Sub Sum_Rapmet()
   Dim x As Double, y As Double
    Dim lr As Long, i As Long
    lr = Range("KA" & Rows.Count).End(xlUp).Row
    x = 0
    For i = 1 To lr
        If Range("KA" & i).Interior.ColorIndex = 4 Then x = x + Range("KA" & i).Value2
        If Range("KQ" & i).Interior.ColorIndex = 38 Then y = y + Range("KQ" & i).Value2
    Next i
    Range("KA17") = x
    Range("KQ17") = y
End Sub

[dodde]

Hello

Nice:-) thank you