Hi

I'm having a little trouble with "For each"...

I want to use this statement to know the number of checkboxes in my
form, for example...

It's kind of:

dim check as checkbox

For each check in my_form

i=i+1

Next check

But it doesn't work... I don't know if I'm using the statement
correctly...


--
pmguerra
------------------------------------------------------------------------
pmguerra's Profile: http://www.excelforum.com/member.php...o&userid=14986
View this thread: http://www.excelforum.com/showthread...hreadid=560898

Dim ctl As MSForms.Control
Dim i as long

For Each ctl In UserForm1.Controls
If TypeName(ctl) = "CheckBox" Then
i = i + 1
End If
Next

msgbox i & " checkboxes"

RBS

"pmguerra" wrote in
message ...

Hi

I'm having a little trouble with "For each"...

I want to use this statement to know the number of checkboxes in my
form, for example...

It's kind of:

dim check as checkbox

For each check in my_form

i=i+1

Next check

But it doesn't work... I don't know if I'm using the statement
correctly...


--
pmguerra
------------------------------------------------------------------------
pmguerra's Profile:
http://www.excelforum.com/member.php...o&userid=14986
View this thread: http://www.excelforum.com/showthread...hreadid=560898

This is how to do it

Dim ctl As Control

For Each ctl In Me.Controls
If TypeName(ctl) = "CheckBox" Then
MsgBox ctl.Caption
End If
Next ctl


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"pmguerra" wrote in
message ...

Hi

I'm having a little trouble with "For each"...

I want to use this statement to know the number of checkboxes in my
form, for example...

It's kind of:

dim check as checkbox

For each check in my_form

i=i+1

Next check

But it doesn't work... I don't know if I'm using the statement
correctly...


--
pmguerra
------------------------------------------------------------------------
pmguerra's Profile:
http://www.excelforum.com/member.php...o&userid=14986
View this thread: http://www.excelforum.com/showthread...hreadid=560898

It's a little more complicated than that... try doing it this way.
Dim check As Control 'All types of controls
Dim i As Integer
For Each check In UserForm1.Controls 'Loop through each control in
userform1 controls
If TypeName(check) = "CheckBox" Then 'Because we are going
through all the controls we need to filter out just the "CheckBoxes"
i = i + 1
End If
Next
MsgBox i

HTH

Die_Another_Day
pmguerra wrote:
Hi

I'm having a little trouble with "For each"...

I want to use this statement to know the number of checkboxes in my
form, for example...

It's kind of:

dim check as checkbox

For each check in my_form

i=i+1

Next check

But it doesn't work... I don't know if I'm using the statement
correctly...


--
pmguerra
------------------------------------------------------------------------
pmguerra's Profile: http://www.excelforum.com/member.php...o&userid=14986
View this thread: http://www.excelforum.com/showthread...hreadid=560898

One more...

Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
ctrl.Object.Value = True
End If
Next ctrl



pmguerra wrote:

Hi

I'm having a little trouble with "For each"...

I want to use this statement to know the number of checkboxes in my
form, for example...

It's kind of:

dim check as checkbox

For each check in my_form

i=i+1

Next check

But it doesn't work... I don't know if I'm using the statement
correctly...

--
pmguerra
------------------------------------------------------------------------
pmguerra's Profile: http://www.excelforum.com/member.php...o&userid=14986
View this thread: http://www.excelforum.com/showthread...hreadid=560898

--

Dave Peterson

Thank you very much!!! :

--
pmguerr
-----------------------------------------------------------------------
pmguerra's Profile: http://www.excelforum.com/member.php...fo&userid=1498
View this thread: http://www.excelforum.com/showthread.php?threadid=56089