if checked checkbox then add a cell.value

[excel_lelkes]

dear forum members

I´ve several checkboxes (ActiveX)
I want to be able to do the following:
1) if checkbox1 is checked i.e. Range("G11").Value = True
2 ) Range.("J1").Value = Range("G11").offset(0,2).Value
3) if Range("G11").Value = True AND/OR Range("G12").Value = True
then Range.("J1").Value = Range.("J1").Value + Range("G12").offset(0,2).Value
and so on....
This long have I come on my own:

Sub kryss()
Dim rng As Range
Dim cell As Range

With Sheet1
Set rng = .Range("G11:G19")
For Each cell In rng
If cell.Value = True Then
       .Range("J1").Value = cell.Offset(0, 2).Value + cell.Offset(0, 2).Value
End If
Next

End With
End Sub

But it´s not working as I wish:
it sums every "post"
twice

Please help me with the solution
Thanks in advance

Regards
Peter

 

[DanteAmor]

Try this

.Range("J1").Value = .Range("J1").Value + cell.Offset(0, 2).Value

 

[DanteAmor]

Or this

Sub kryss_2()
  Dim rng As Range
  Set rng = Sheet1.Range("G11:G19")
  Sheet1.Range("J1").Value = WorksheetFunction.SumIf(rng, True, rng.Offset(0, 2))
End Sub

 

[excel_lelkes]

Or this

Sub kryss_2()
  Dim rng As Range
  Set rng = Sheet1.Range("G11:G19")
  Sheet1.Range("J1").Value = WorksheetFunction.SumIf(rng, True, rng.Offset(0, 2))
End Sub

Thanks Dante for your time and knowledge!

I wasn´t aware of

WorksheetFunction.SumIf()

A very elegant solution indeed

Regards
Peter

 

[DanteAmor]

Im glad to help you. Thanks for feedback.