Summation of cells tied to Checkboxes

  • Thread starter Thread starter Excel-erate2004
  • Start date Start date
E

Excel-erate2004

Hello,

I think I'm fairly close to solving this problem, but I'm havin
trouble grasping a key concept:

What I would like to be able to do is sum cells based on checkboxe
whose value is true and do nothing
if the checkboxes are not checked.

I have 29 Checkboxes i.e. CheckBox1...CheckBox29.

What I'm not sure how to do is associate each CheckBox with a specifie
cell.

For example:

CheckBox1 is tied to Cell M12
...
CheckBox29 is tied to Cell M40.

Therefore, I'm trying to write code so that only the Checkboxes whos
values are True, then their associated cells are summed.


My code so far:


Sub Checkboxcount
Dim Counter as Integer

For x = 1 to 29
IF CheckBox(x) = TRUE THEN
Counter = Counter + 1

END IF
NEXT X
END SUB


Another question is how do I direct the output of this summation o
checked cells. I would like it directed just to a single cell.

Thanks for any help I can get.

Cheer
 
Hi,
I think I'm fairly close to solving this problem, but I'm having
trouble grasping a key concept:

What I would like to be able to do is sum cells based on checkboxes
whose value is true and do nothing
if the checkboxes are not checked.

I have 29 Checkboxes i.e. CheckBox1...CheckBox29.

What I'm not sure how to do is associate each CheckBox with a specified
cell.

For example:

CheckBox1 is tied to Cell M12
..
CheckBox29 is tied to Cell M40.

Therefore, I'm trying to write code so that only the Checkboxes whose
values are True, then their associated cells are summed.
Click to expand...
Another question is how do I direct the output of this summation of
checked cells. I would like it directed just to a single cell.
Click to expand...

try this:

Sub SumCheckBoxes()
Dim obj As OLEObject
Dim dblValue As Double

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" And obj.Object.Value Then
dblValue = dblValue + Range _
("M" & VBA.Replace(obj.Name, "CheckBox", "") + 11).Value
End If
Next obj

MsgBox dblValue
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#
 
Thanks,

I tried your suggestion. It worked perfectly!

Greatly appreciate it.

Cheer
 
Back
Top