E
Excel-erate2004
Hello,
I had developed a sub routine that sums a range of cells M12:M40 tha
depended on whether or not a checkbox value was true for tha
particular cell.
I.E. There are 29 cells between M12 and M40 and there is a Checkbo
associated with each cell labled CheckBox1 to CheckBox29.
What I would like to be able to do is take that sum and then get a
average based on those checkboxes that are checked.
Here is my code:
Private Sub SumCheckBoxes_Click()
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
Sheets("Step 5").Range("M43") = dblValue
End Sub
What I need is some way to count the number of cells that have thei
checkbox value set to true then divide that number by the sum from th
code above.
How could I go about this? Any ideas?
Thanks for any help I can ge
I had developed a sub routine that sums a range of cells M12:M40 tha
depended on whether or not a checkbox value was true for tha
particular cell.
I.E. There are 29 cells between M12 and M40 and there is a Checkbo
associated with each cell labled CheckBox1 to CheckBox29.
What I would like to be able to do is take that sum and then get a
average based on those checkboxes that are checked.
Here is my code:
Private Sub SumCheckBoxes_Click()
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
Sheets("Step 5").Range("M43") = dblValue
End Sub
What I need is some way to count the number of cells that have thei
checkbox value set to true then divide that number by the sum from th
code above.
How could I go about this? Any ideas?
Thanks for any help I can ge