VBA Two Ranges of Row Code

[tlc53]

Hi there,

I am trying to write a code which hides/unhides rows depending on whether Yes or No is selected. The first part of my code works fine however, I am having trouble with the second part. How do I unhide two ranges of rows? I would prefer not to write two lines of code because it causes a stutter affect.

If Range("Plus_YN_2") = "NO" Then
Rows("82:101").EntireRow.Hidden = True
End If


If Range("Plus_YN_2") = "YES" Then
Rows("82:90,100:101").EntireRow.Hidden = False
End If

Thanks very much!

 

[Nine Zero]

maybe combine the two in an if else

[COLOR=#333333]If Range("Plus_YN_2") = "NO" Then[/COLOR]
[COLOR=#333333]Rows("82:101").EntireRow.Hidden = True
[/COLOR]Else
[COLOR=#333333]Rows("82:90,100:101").EntireRow.Hidden = False[/COLOR]
[COLOR=#333333]End If
[/COLOR]

 

[tlc53]

Thanks Nine Zero. However, it won't run. I think it doesn't like the "End If".

Here's the code I put in..

Private Sub Worksheet_Change(ByVal Target As Range)


If Range("Plus_YN_2") = "NO" Then
Rows("82:101").EntireRow.Hidden = True
Else
Rows("82:90,100:101").EntireRow.Hidden = False


End If

 

[Norie]

Try changing Rows to Range.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("Plus_YN_2") = "NO" Then
        Range("82:101").EntireRow.Hidden = True
    Else
        Range("82:90,100:101").EntireRow.Hidden = False
    End If
End Sub

 

[tlc53]

Thank you Norie! That did the trick