Rows Keep Unhiding

[ERed1]

Hey everyone,

So in my worksheet I have a lot of drop downs. Some are dependent on some are not. A few of the rows I have hide if "No" is selected in the drop down. After I use another drop down, the row un-hides itself. Does anyone have a solution to this issue?

Thanks in advance.

Here is a clip of the code that is hiding the rows:
If Target.Column = 2 And Target.Row = 55 Then
If Target.Value = "No" Then
Application.Rows("56").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Rows("56").Select
Application.Selection.EntireRow.Hidden = False
End If
End If

 

[Fluff]

It would help if you showed the entire code, rather than just the bit that works.

 

[ERed1]

There is a lot of code lol. So here it is for the section. I think I just figure it out, but I don't know how I would fix it. Here is the Code


'Hide Cells'
If Range("B16").Value = "Pizza" Then
Rows("21:49").EntireRow.Hidden = True
Rows("50:65").EntireRow.Hidden = False
Rows("66:129").EntireRow.Hidden = True
End If



If Target.Column = 2 And Target.Row = 55 Then
If Target.Value = "No" Then
Application.Rows("56").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Rows("56").Select
Application.Selection.EntireRow.Hidden = False
End If
End If

 

[ERed1]

The Row that keeps appear is 56, but I know that is because of the way I have the rows staying appeared from the first code.

 

[Fluff]

Are both of those codes in the same procedure?

 

[ERed1]

As in the same Worksheet Change? Because if so then yes.

 

[Fluff]

In that case try

If Range("B16").Value = "Pizza" Then
   Rows("21:49").EntireRow.Hidden = True
   Rows("50:65").EntireRow.Hidden = False
   Rows("66:129").EntireRow.Hidden = True
   If Range("B55").Value = "No" Then Rows(56).Hidden = True
End If

 

[ERed1]

In that case try

If Range("B16").Value = "Pizza" Then
   Rows("21:49").EntireRow.Hidden = True
   Rows("50:65").EntireRow.Hidden = False
   Rows("66:129").EntireRow.Hidden = True
   If Range("B55").Value = "No" Then Rows(56).Hidden = True
End If

That worked Perfectly! Thank you!

 

[Fluff]

You're welcome & thanks for the feedback