I have six checkboxes on a user form. Each checkbox makes a condition in
the worksheet true if checked on the form. After clicking OK on the
userform, each worksheet condition is set to false, and only the checked
boxes are set to true. Is it possible to show the status of each worksheet
condition when the user form is opened by showing the corresponding checkbox
as checked?

Example:

In the worksheet,
Cond A = true
Cond B = false
Cond C = true
Cond D, E & F are all false.

When opening the user form, is it possible to populate the checkboxes for
CondA and CondC with an 'x' on the userform?

If so, how?
This is what I have so far, the name of the form is Manage_Feeds_Form.

Sub ShowFeedsForm()
'Check status of feeds and indicate on form

Manage_Feeds_Form.Show

If "CondA in the worksheet = true" Then cb_CondA.Value = True
ditto for CondB thru CondF

End Sub

Thanks,
Steve

Simplest way would be to include all the code for setting the form's
checkbox values in the form's Initialize event. In the userform module, in
the top middle dropdown select Userform and in the right dropdown select
Initialize to write the Event stub.

Alternatively you could do similar in your proc ShowFeedsForm, something
like this

Dim bFlag as boolean
Dim frm as Manage_Feeds_Form

bFlag = CondA in the worksheet
frm.cb_CondA.Value = bFlag
'etc
frm.Show

Regards,
Peter T



"Steve Morgan" <(E-Mail Removed)> wrote in message
news:4be56$4c1f89b6$621008c0$(E-Mail Removed)...
>I have six checkboxes on a user form. Each checkbox makes a condition in
>the worksheet true if checked on the form. After clicking OK on the
>userform, each worksheet condition is set to false, and only the checked
>boxes are set to true. Is it possible to show the status of each worksheet
>condition when the user form is opened by showing the corresponding
>checkbox as checked?
>
> Example:
>
> In the worksheet,
> Cond A = true
> Cond B = false
> Cond C = true
> Cond D, E & F are all false.
>
> When opening the user form, is it possible to populate the checkboxes for
> CondA and CondC with an 'x' on the userform?
>
> If so, how?
> This is what I have so far, the name of the form is Manage_Feeds_Form.
>
> Sub ShowFeedsForm()
> 'Check status of feeds and indicate on form
>
> Manage_Feeds_Form.Show
>
> If "CondA in the worksheet = true" Then cb_CondA.Value = True
> ditto for CondB thru CondF
>
> End Sub
>
> Thanks,
> Steve
>
>
>
>

Peter T -

Thanks. This worked great.

Steve



"Peter T" <(E-Mail Removed)> wrote in message
news:hvo5lh$nqq$(E-Mail Removed)...
> Simplest way would be to include all the code for setting the form's
> checkbox values in the form's Initialize event. In the userform module, in
> the top middle dropdown select Userform and in the right dropdown select
> Initialize to write the Event stub.
>
> Alternatively you could do similar in your proc ShowFeedsForm, something
> like this
>
> Dim bFlag as boolean
> Dim frm as Manage_Feeds_Form
>
> bFlag = CondA in the worksheet
> frm.cb_CondA.Value = bFlag
> 'etc
> frm.Show
>
> Regards,
> Peter T
>
>
>
> "Steve Morgan" <(E-Mail Removed)> wrote in message
> news:4be56$4c1f89b6$621008c0$(E-Mail Removed)...
>>I have six checkboxes on a user form. Each checkbox makes a condition in
>>the worksheet true if checked on the form. After clicking OK on the
>>userform, each worksheet condition is set to false, and only the checked
>>boxes are set to true. Is it possible to show the status of each
>>worksheet condition when the user form is opened by showing the
>>corresponding checkbox as checked?
>>
>> Example:
>>
>> In the worksheet,
>> Cond A = true
>> Cond B = false
>> Cond C = true
>> Cond D, E & F are all false.
>>
>> When opening the user form, is it possible to populate the checkboxes for
>> CondA and CondC with an 'x' on the userform?
>>
>> If so, how?
>> This is what I have so far, the name of the form is Manage_Feeds_Form.
>>
>> Sub ShowFeedsForm()
>> 'Check status of feeds and indicate on form
>>
>> Manage_Feeds_Form.Show
>>
>> If "CondA in the worksheet = true" Then cb_CondA.Value = True
>> ditto for CondB thru CondF
>>
>> End Sub
>>
>> Thanks,
>> Steve
>>
>>
>>
>>
>
>