Hidden Rows not working correctly

S

S Himmelrich

I've got the following code that does hide the rows indicated, but it
also hides rows where the check box is...as you see I've tried to
force the rows it's hiding my mistake to unhide, but that doesn't even
work - HELP?

Dim chkBox As CheckBox
Set chkBox = Worksheets("GTPO_#").CheckBoxes("Check Box 10")
If chkBox.Value = xlOn Then
'Sheets("GTPO_#").Select
Rows("75:93").Select
Selection.EntireRow.Hidden = False
Rows("21:30").Select
Selection.EntireRow.Hidden = False
'Sheets("GTPO_#").Select
' MsgBox "Check Box is checked"
Else
'Sheets("GTPO_#").Select
Rows("75:93").Select
Selection.EntireRow.Hidden = True
Rows("21:30").Select
Selection.EntireRow.Hidden = False
'Sheets("GTPO_#").Select
' MsgBox "Check Box is not checked"
End If
Rows("21:30").Select
Selection.EntireRow.Hidden = True
End Sub
 
G

George Nicholson

Rows("21:30").Select
Selection.EntireRow.Hidden = True

Shouldn't that be False?

These last 2 lines of your code will cause Rows("21:30") to *always* be
hidden, which seems like the very opposite of your intention.
 
P

Per Jessen

Hi

I'm a bit confused what it is that you want to hide, but I can see that you
unhide row 21-30 both if the checkbox is checked or not. Then after EndIf
you hide theese rows ??

Regards,

Per
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top