unhide Rows when question is answered via a drop down box.

Joined
Aug 8, 2010
Messages
2
Reaction score
0
Hi all,
new to excel and have no knowledge of VBA. so any help would be great.

i am looking for a way to unhide rows when answer is chosen from multiple drop down Data Validation list.

I am trying to do the following.

A3 contains 2 possible answers Sport / Non Sport.
If Sport is chosen Then Row 4 would become available.
A4 then offers answers Team Sports / Individual.
If Team Sports is chosen then Row 5 becomes available.
A5 would then offer Football, Baseball, Basketball,Soccer & Ice Hockey.
Regardless of outcome Rows 6:10 and rows 40:50 would become available.
Questions contained in the rows are.
Years played, Position Played, No of teams played For, Trophies Won, Individual awards. These would be answered in Column B.

If Individual is chosen in A4 then Rows 11 would unhide.
A11 would then offer Tennis, Darts, Badminton & Squash
Regardless of outcome chosen in A11 rows 12:15 and rows 52:70 would become available.
Questions contained in these rows are:
Years Played, Events played, Finals Reached, Finals Won. Once again the answers to these questions would inserted in row B.

If Non Sports is chosen in A3 then Row 16 would be available.
A16 would contain answers Chess or Poker.
Regardless of selection rows 17:20 and rows 72:90 would become available.
Questions contained in these rows are:
Years Played, Events played, Finals Reached, Finals Won. Once again the answers to these questions would inserted in row B.

Is this possible?

i was given the following code which works great for just one.
However i am unable to adapt to have it work for multiples. Row numbers in below code are only examples.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Rows("5:34").Hidden = True
Select Case Target
Case "Football": Rows("5:10").Hidden = False
Case "Basketball": Rows("11:16").Hidden = False
Case "Baseball": Rows("17:22").Hidden = False
Case "Soccer": Rows("23:28").Hidden = False
Case "Ice Hockey": Rows("29:34").Hidden = False
Case Else:
End Select
End Sub


Thanks
Steve
 

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