Hi

I have 12 check boxes for each month.

Is there a quick way of looping through all the check boxes to see if they
are ticked or not?

I then want to write the info to an array.

Thanks

Steve

You want to know what? Which ones are checked, how many are checked, if any
at all are checked, if none are checked. Pick one.

"Steve" wrote:

> Hi
>
> I have 12 check boxes for each month.
>
> Is there a quick way of looping through all the check boxes to see if they
> are ticked or not?
>
> I then want to write the info to an array.
>
> Thanks
>
> Steve

Which ones are checked

"JLGWhiz" wrote:

> You want to know what? Which ones are checked, how many are checked, if any
> at all are checked, if none are checked. Pick one.
>
> "Steve" wrote:
>
> > Hi
> >
> > I have 12 check boxes for each month.
> >
> > Is there a quick way of looping through all the check boxes to see if they
> > are ticked or not?
> >
> > I then want to write the info to an array.
> >
> > Thanks
> >
> > Steve

Where are the CheckBoxes at... directly on the worksheet or on a UserForm?
If on the worksheet, where did they come from... the Forms Toolbar or the
Visual Basic toolbar?

Rick


"Steve" <(E-Mail Removed)> wrote in message
news:E7A4FFF2-536E-4C04-A3DF-(E-Mail Removed)...
> Hi
>
> I have 12 check boxes for each month.
>
> Is there a quick way of looping through all the check boxes to see if they
> are ticked or not?
>
> I then want to write the info to an array.
>
> Thanks
>
> Steve

Apologies

They are on a user form

"Rick Rothstein (MVP - VB)" wrote:

> Where are the CheckBoxes at... directly on the worksheet or on a UserForm?
> If on the worksheet, where did they come from... the Forms Toolbar or the
> Visual Basic toolbar?
>
> Rick
>
>
> "Steve" <(E-Mail Removed)> wrote in message
> news:E7A4FFF2-536E-4C04-A3DF-(E-Mail Removed)...
> > Hi
> >
> > I have 12 check boxes for each month.
> >
> > Is there a quick way of looping through all the check boxes to see if they
> > are ticked or not?
> >
> > I then want to write the info to an array.
> >
> > Thanks
> >
> > Steve
>
>

Something like this maybe (using a CommandButton to enact the code for
example purposes only)...

Private Sub CommandButton1_Click()
Dim Cnt As Long
Dim Ctrl As Control
Dim ChkBxArray() As String
ReDim ChkBxArray(1 To 12)
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Value Then
Cnt = Cnt + 1
ChkBxArray(Cnt) = Ctrl.Name
End If
End If
Next
ReDim Preserve ChkBxArray(1 To Cnt)
' Prove it worked
For Cnt = 1 To UBound(ChkBxArray)
Debug.Print ChkBxArray(Cnt)
Next
End Sub

Rick


"Steve" <(E-Mail Removed)> wrote in message
news:5F4A97BD-AF4E-45EA-891F-(E-Mail Removed)...
> Apologies
>
> They are on a user form
>
> "Rick Rothstein (MVP - VB)" wrote:
>
>> Where are the CheckBoxes at... directly on the worksheet or on a
>> UserForm?
>> If on the worksheet, where did they come from... the Forms Toolbar or the
>> Visual Basic toolbar?
>>
>> Rick
>>
>>
>> "Steve" <(E-Mail Removed)> wrote in message
>> news:E7A4FFF2-536E-4C04-A3DF-(E-Mail Removed)...
>> > Hi
>> >
>> > I have 12 check boxes for each month.
>> >
>> > Is there a quick way of looping through all the check boxes to see if
>> > they
>> > are ticked or not?
>> >
>> > I then want to write the info to an array.
>> >
>> > Thanks
>> >
>> > Steve
>>
>>

Hi Steve,

Try something like:


'==========>>
Option Explicit
Dim arr(1 To 12) As Boolean

'------------>>
Private Sub CommandButton1_Click()
Dim Ctrl As msforms.Control
Dim i As Long

For Each Ctrl In Me.Controls
With Ctrl
If TypeOf Ctrl Is msforms.CheckBox Then
i = i + 1
arr(i) = .Value
End If
End With
Next Ctrl

End Sub

'------------>>
Private Sub CommandButton2_Click()
MsgBox arr(1)
End Sub
'<<==========



---
Regards.
Norman


"Steve" <(E-Mail Removed)> wrote in message
news:E7A4FFF2-536E-4C04-A3DF-(E-Mail Removed)...
> Hi
>
> I have 12 check boxes for each month.
>
> Is there a quick way of looping through all the check boxes to see if they
> are ticked or not?
>
> I then want to write the info to an array.
>
> Thanks
>
> Steve

Many Thanks Rick

I'll give it a go

Steve

"Rick Rothstein (MVP - VB)" wrote:

> Something like this maybe (using a CommandButton to enact the code for
> example purposes only)...
>
> Private Sub CommandButton1_Click()
> Dim Cnt As Long
> Dim Ctrl As Control
> Dim ChkBxArray() As String
> ReDim ChkBxArray(1 To 12)
> For Each Ctrl In Me.Controls
> If TypeOf Ctrl Is MSForms.CheckBox Then
> If Ctrl.Value Then
> Cnt = Cnt + 1
> ChkBxArray(Cnt) = Ctrl.Name
> End If
> End If
> Next
> ReDim Preserve ChkBxArray(1 To Cnt)
> ' Prove it worked
> For Cnt = 1 To UBound(ChkBxArray)
> Debug.Print ChkBxArray(Cnt)
> Next
> End Sub
>
> Rick
>
>
> "Steve" <(E-Mail Removed)> wrote in message
> news:5F4A97BD-AF4E-45EA-891F-(E-Mail Removed)...
> > Apologies
> >
> > They are on a user form
> >
> > "Rick Rothstein (MVP - VB)" wrote:
> >
> >> Where are the CheckBoxes at... directly on the worksheet or on a
> >> UserForm?
> >> If on the worksheet, where did they come from... the Forms Toolbar or the
> >> Visual Basic toolbar?
> >>
> >> Rick
> >>
> >>
> >> "Steve" <(E-Mail Removed)> wrote in message
> >> news:E7A4FFF2-536E-4C04-A3DF-(E-Mail Removed)...
> >> > Hi
> >> >
> >> > I have 12 check boxes for each month.
> >> >
> >> > Is there a quick way of looping through all the check boxes to see if
> >> > they
> >> > are ticked or not?
> >> >
> >> > I then want to write the info to an array.
> >> >
> >> > Thanks
> >> >
> >> > Steve
> >>
> >>
>
>

Many Thanks Norman

I'll give it a go.

Appreciate your time.

regards

Steve

"Norman Jones" wrote:

> Hi Steve,
>
> Try something like:
>
>
> '==========>>
> Option Explicit
> Dim arr(1 To 12) As Boolean
>
> '------------>>
> Private Sub CommandButton1_Click()
> Dim Ctrl As msforms.Control
> Dim i As Long
>
> For Each Ctrl In Me.Controls
> With Ctrl
> If TypeOf Ctrl Is msforms.CheckBox Then
> i = i + 1
> arr(i) = .Value
> End If
> End With
> Next Ctrl
>
> End Sub
>
> '------------>>
> Private Sub CommandButton2_Click()
> MsgBox arr(1)
> End Sub
> '<<==========
>
>
>
> ---
> Regards.
> Norman
>
>
> "Steve" <(E-Mail Removed)> wrote in message
> news:E7A4FFF2-536E-4C04-A3DF-(E-Mail Removed)...
> > Hi
> >
> > I have 12 check boxes for each month.
> >
> > Is there a quick way of looping through all the check boxes to see if they
> > are ticked or not?
> >
> > I then want to write the info to an array.
> >
> > Thanks
> >
> > Steve
>