I have 7 checkbox and 2 option buttons. One of the option buttons unchecks
all the checkboxes and the other one checks all the options buttons. In Excel
2003 I was able to use somthing like this to do that:
For Each ctl In InputForm2.Controls
If TypeName(ctl) = "CheckBox" Then
If ctl.Value = True Then
ctl.Value = False
ElseIf ctl.Value = False Then
ctl.Value = True
End If
End If
Next ctl

This don't work in Excel 2007. Any ideas
Thanks

I have no problem running this in a test userform
Do you get a error?

Private Sub CommandButton1_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "CheckBox" Then
ctl.Value = Not ctl.Value
End If
Next ctl
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Ayo" <(E-Mail Removed)> wrote in message news:7986E7FB-77C1-4801-8610-(E-Mail Removed)...
>I have 7 checkbox and 2 option buttons. One of the option buttons unchecks
> all the checkboxes and the other one checks all the options buttons. In Excel
> 2003 I was able to use somthing like this to do that:
> For Each ctl In InputForm2.Controls
> If TypeName(ctl) = "CheckBox" Then
> If ctl.Value = True Then
> ctl.Value = False
> ElseIf ctl.Value = False Then
> ctl.Value = True
> End If
> End If
> Next ctl
>
> This don't work in Excel 2007. Any ideas
> Thanks

I'm sorry, I should have mentioned I was trying to run this in Excel 2007.
This works fine in 2003, which is where the code snippet came from. I was
looking for something like that for 2007.
Is there any?

"Ron de Bruin" wrote:

> I have no problem running this in a test userform
> Do you get a error?
>
> Private Sub CommandButton1_Click()
> Dim ctl As Control
> For Each ctl In Me.Controls
> If TypeName(ctl) = "CheckBox" Then
> ctl.Value = Not ctl.Value
> End If
> Next ctl
> End Sub
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
>
>
> "Ayo" <(E-Mail Removed)> wrote in message news:7986E7FB-77C1-4801-8610-(E-Mail Removed)...
> >I have 7 checkbox and 2 option buttons. One of the option buttons unchecks
> > all the checkboxes and the other one checks all the options buttons. In Excel
> > 2003 I was able to use somthing like this to do that:
> > For Each ctl In InputForm2.Controls
> > If TypeName(ctl) = "CheckBox" Then
> > If ctl.Value = True Then
> > ctl.Value = False
> > ElseIf ctl.Value = False Then
> > ctl.Value = True
> > End If
> > End If
> > Next ctl
> >
> > This don't work in Excel 2007. Any ideas
> > Thanks
>

I test it in 2007

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Ayo" <(E-Mail Removed)> wrote in message news:F029D5F5-D8C5-4396-8736-(E-Mail Removed)...
> I'm sorry, I should have mentioned I was trying to run this in Excel 2007.
> This works fine in 2003, which is where the code snippet came from. I was
> looking for something like that for 2007.
> Is there any?
>
> "Ron de Bruin" wrote:
>
>> I have no problem running this in a test userform
>> Do you get a error?
>>
>> Private Sub CommandButton1_Click()
>> Dim ctl As Control
>> For Each ctl In Me.Controls
>> If TypeName(ctl) = "CheckBox" Then
>> ctl.Value = Not ctl.Value
>> End If
>> Next ctl
>> End Sub
>>
>>
>> --
>>
>> Regards Ron de Bruin
>> http://www.rondebruin.nl/tips.htm
>>
>>
>>
>>
>> "Ayo" <(E-Mail Removed)> wrote in message news:7986E7FB-77C1-4801-8610-(E-Mail Removed)...
>> >I have 7 checkbox and 2 option buttons. One of the option buttons unchecks
>> > all the checkboxes and the other one checks all the options buttons. In Excel
>> > 2003 I was able to use somthing like this to do that:
>> > For Each ctl In InputForm2.Controls
>> > If TypeName(ctl) = "CheckBox" Then
>> > If ctl.Value = True Then
>> > ctl.Value = False
>> > ElseIf ctl.Value = False Then
>> > ctl.Value = True
>> > End If
>> > End If
>> > Next ctl
>> >
>> > This don't work in Excel 2007. Any ideas
>> > Thanks
>>