Summation of cells tied to Checkboxes

[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

 

[Melanie Breden]

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.

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.

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#

 

[Excel-erate2004]

Thanks,

I tried your suggestion. It worked perfectly!

Greatly appreciate it.

Cheer

 

[Melanie Breden]

Thanks,

I tried your suggestion. It worked perfectly!

Greatly appreciate it.

thanks for your feedback

--
Regards

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)