PDA

View Full Version : Solved: CheckBoxes



jammer6_9
05-22-2007, 10:57 PM
I created 150 checkboxes in a worksheet. Now instead of assigning individually the value into false when the worksheet_activate , can I assign it at one time? Checkboxes were created in VB Editor Toolbox not on forms.


Private Sub Worksheet_Activate()
checkbox1.value = false
checkbox2.value = false
checkbox3.value = false
'up to checkbox150
End Sub

lucas
05-22-2007, 11:03 PM
Hi Jammer....consider using a checkmark instead...might work for you I don't know.

jammer6_9
05-22-2007, 11:28 PM
All my checkboxes has code like shown below. If i use checkmark can I put code also?

Private Sub CheckBox100_Click()
On Error Resume Next
If CheckBox100.Value = True Then
Range("x111").Value = Range("V111").Value * Range("d111").Value
Else
Range("x111").Value = "0"
End If
End Sub

jammer6_9
05-23-2007, 12:54 AM
Hey this code works! :doh:


Private Sub Worksheet_Activate()
On Error Resume Next
Dim X As OLEObject
Dim Low As Double, High As Double
For Each X In ActiveSheet.OLEObjects
Low = 500
Next
For Each X In ActiveSheet.OLEObjects
If X.Object.Value = True Then
X.Object.Value = False
End If
Next

End Sub