visible label when yes is selected
 

Hi, I have in Col D, row 7 to 26 a choice of yes or no, based on the fact
that one of these cells is yes I want to show 2 labels, if non of the cells
is yes no the labels should not be seen, if the value within these cells is
changed from yes to no, and by doing so, none of the cells values is yes,
then the labels should not been seen.
The value of the cells can be changed via a listbox, and I have created a
module function pasted below. Who can help me fix this, because I do not
know, for your info I am a newby?

Function test_warn()
UserForm2.Label16.Visible = False
UserForm2.Label17.Visible = False
For rwIndex = 7 To 26
With Worksheets("XXXX").Cells(rwIndex, 4)
If .Value = "yes" Then
UserForm2.Label16.Visible = True
UserForm2.Label17.Visible = True
End If
End With
Next rwIndex
End Function

visible label when yes is selected
 

Try this Sub:


Sub test_warn()
yesek = WorksheetFunction.CountIf(Worksheets("XXXX").Range ("D7:D26"),
"yes") 0
UserForm1.Label1.Visible = yesek
UserForm1.Label2.Visible = yesek
End Sub

Regards,
Stefi

€žnoord453€� ezt Ã*rta:

Hi, I have in Col D, row 7 to 26 a choice of yes or no, based on the fact
that one of these cells is yes I want to show 2 labels, if non of the cells
is yes no the labels should not be seen, if the value within these cells is
changed from yes to no, and by doing so, none of the cells values is yes,
then the labels should not been seen.
The value of the cells can be changed via a listbox, and I have created a
module function pasted below. Who can help me fix this, because I do not
know, for your info I am a newby?

Function test_warn()
UserForm2.Label16.Visible = False
UserForm2.Label17.Visible = False
For rwIndex = 7 To 26
With Worksheets("XXXX").Cells(rwIndex, 4)
If .Value = "yes" Then
UserForm2.Label16.Visible = True
UserForm2.Label17.Visible = True
End If
End With
Next rwIndex
End Function

visible label when yes is selected
 

Of course change my test names to your real names:
UserForm2.Label16.Visible = yesek
UserForm2.Label17.Visible = yesek
Stefi


€žStefi€� ezt Ã*rta:

Try this Sub:


Sub test_warn()
yesek = WorksheetFunction.CountIf(Worksheets("XXXX").Range ("D7:D26"),
"yes") 0
UserForm1.Label1.Visible = yesek
UserForm1.Label2.Visible = yesek
End Sub

Regards,
Stefi

€žnoord453€� ezt Ã*rta:

Hi, I have in Col D, row 7 to 26 a choice of yes or no, based on the fact
that one of these cells is yes I want to show 2 labels, if non of the cells
is yes no the labels should not be seen, if the value within these cells is
changed from yes to no, and by doing so, none of the cells values is yes,
then the labels should not been seen.
The value of the cells can be changed via a listbox, and I have created a
module function pasted below. Who can help me fix this, because I do not
know, for your info I am a newby?

Function test_warn()
UserForm2.Label16.Visible = False
UserForm2.Label17.Visible = False
For rwIndex = 7 To 26
With Worksheets("XXXX").Cells(rwIndex, 4)
If .Value = "yes" Then
UserForm2.Label16.Visible = True
UserForm2.Label17.Visible = True
End If
End With
Next rwIndex
End Function

visible label when yes is selected
 

Stefi,

Thanks,

but it is not doing what it should be doing, when you select no first,
nothing happens as it should, when then yes is selected, it does not show,
which is not correct it must show, and then when no is selected again, the
labels remain visible.

I will try to explain again my orginal problem
In the cells D7:D26 the value of a choice is set, yes or no. This is done by
20 different listboxes. Each list box shows 2 labels when turned to yes, when
on of the 20 possible listboxes is yes, a second pair of labels above the
already shown labels should appear. If all is set no, these second pair
should not be visible.

Regards
Gerard



"Stefi" wrote:

Of course change my test names to your real names:
UserForm2.Label16.Visible = yesek
UserForm2.Label17.Visible = yesek
Stefi


€žStefi€� ezt Ã*rta:

Try this Sub:


Sub test_warn()
yesek = WorksheetFunction.CountIf(Worksheets("XXXX").Range ("D7:D26"),
"yes") 0
UserForm1.Label1.Visible = yesek
UserForm1.Label2.Visible = yesek
End Sub

Regards,
Stefi

€žnoord453€� ezt Ã*rta:

Hi, I have in Col D, row 7 to 26 a choice of yes or no, based on the fact
that one of these cells is yes I want to show 2 labels, if non of the cells
is yes no the labels should not be seen, if the value within these cells is
changed from yes to no, and by doing so, none of the cells values is yes,
then the labels should not been seen.
The value of the cells can be changed via a listbox, and I have created a
module function pasted below. Who can help me fix this, because I do not
know, for your info I am a newby?

Function test_warn()
UserForm2.Label16.Visible = False
UserForm2.Label17.Visible = False
For rwIndex = 7 To 26
With Worksheets("XXXX").Cells(rwIndex, 4)
If .Value = "yes" Then
UserForm2.Label16.Visible = True
UserForm2.Label17.Visible = True
End If
End With
Next rwIndex
End Function

visible label when yes is selected
 

I guess that you have to trigger the sub with a change event, but I leave for
today, I can come back to the problem on Monday.
Stefi


€žnoord453€� ezt Ã*rta:

Stefi,

Thanks,

but it is not doing what it should be doing, when you select no first,
nothing happens as it should, when then yes is selected, it does not show,
which is not correct it must show, and then when no is selected again, the
labels remain visible.

I will try to explain again my orginal problem
In the cells D7:D26 the value of a choice is set, yes or no. This is done by
20 different listboxes. Each list box shows 2 labels when turned to yes, when
on of the 20 possible listboxes is yes, a second pair of labels above the
already shown labels should appear. If all is set no, these second pair
should not be visible.

Regards
Gerard



"Stefi" wrote:

Of course change my test names to your real names:
UserForm2.Label16.Visible = yesek
UserForm2.Label17.Visible = yesek
Stefi


€žStefi€� ezt Ã*rta:

Try this Sub:


Sub test_warn()
yesek = WorksheetFunction.CountIf(Worksheets("XXXX").Range ("D7:D26"),
"yes") 0
UserForm1.Label1.Visible = yesek
UserForm1.Label2.Visible = yesek
End Sub

Regards,
Stefi

€žnoord453€� ezt Ã*rta:

Hi, I have in Col D, row 7 to 26 a choice of yes or no, based on the fact
that one of these cells is yes I want to show 2 labels, if non of the cells
is yes no the labels should not be seen, if the value within these cells is
changed from yes to no, and by doing so, none of the cells values is yes,
then the labels should not been seen.
The value of the cells can be changed via a listbox, and I have created a
module function pasted below. Who can help me fix this, because I do not
know, for your info I am a newby?

Function test_warn()
UserForm2.Label16.Visible = False
UserForm2.Label17.Visible = False
For rwIndex = 7 To 26
With Worksheets("XXXX").Cells(rwIndex, 4)
If .Value = "yes" Then
UserForm2.Label16.Visible = True
UserForm2.Label17.Visible = True
End If
End With
Next rwIndex
End Function