Unhiding rows

A

ashlie

Hi,

I am very, very new to macros so please forgive me. I am trying to unhide
rows when the word "Yes" is selected in a cell. I have found (and modified
the following macro) from another post, which works great:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c14").Text = "Yes" Then Rows("15:16").EntireRow.Hidden = False
If Range("c14").Text = "" Then Rows("15:16").EntireRow.Hidden = True
End Sub

My problem is, I need this to work for the following as well:

if c17 is yes, unhide 18:19
if c20 is yes, unhide 21:22
if c23 is yes, unhide 24:25

I tried copying and pasting the first macro and modifying it for each
scenario but I get an error message (something about the Private Sub).

Any help would be greatly appreciated! :)
 
D

Don Guillett

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c14,c17,c20,c23")) _
Is Nothing Then Exit Sub
If UCase(Target) = "YES" Then
Target.Offset(1).Resize(2).EntireRow.Hidden = False
Else
Target.Offset(1).Resize(2).EntireRow.Hidden = True
End If
End Sub
 

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

Similar Threads

Hiding / unhiding rows based on change of a cell 8
when certain rows are hidden, can I also hide a combobox? 6
Hiding and unhiding rows with if statement macro 1
Hiding Rows with Blank cells 5
Hiding Rows from VBA 5
Hide rows using VBA based on cell value 0
Hide Sheet when cell equals 5
Hiding/Unhiding Rows in a worksheet based on the value of a checkbox. 1

Top