If/Then Formula - Hide or Unhide Rows

**JenJenLV** · 02-29-2012, 02:59 PM

Hi:
I looked up a few examples in this forum, but I am a beginner and I need your help. I have a drop down window with choices Yes, No. I have pointed that to cell J18 with a formula that says, if it's Yes, then = 0, if No, then =1. Now I need a VBA to hide rows 19 and 20 if cell J18 = 1, Unhide of = 0. Can someone help me?

**JieJenn** · 02-29-2012, 03:08 PM

Put this in your worksheet module

Please Login or Register  to view this content.

**JenJenLV** · 02-29-2012, 03:13 PM

You are the best!! Thank you so much!!

**JenJenLV** · 02-29-2012, 03:30 PM

If I want to do another code within the same worksheet for cell J21, if J21 = 1 then hide row 22, if zero, then unhide. Can that be done within the same VBA?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo ExitSub
Select Case Range("J18")
Case 1
Rows("19:20").Hidden = True
Case 0
Rows("19:20").Hidden = False
Case Else
'Do Nothing
End Select

ExitSub:
End Sub

Private Sub Worksheet_SelectionChange2(ByVal Target As Range)

On Error GoTo ExitSub
Select Case Range("J21")
Case 1
Row("22").Hidden = True
Case 0
Row("22").Hidden = False
Case Else
'Do Nothing
End Select

ExitSub:
End Sub

Or am I completely off??

Thanks, again

**JieJenn** · 02-29-2012, 03:32 PM

That's looks right to me. You might want to tag your code just an FYI. You can always test it out on your own.

**JenJenLV** · 02-29-2012, 03:38 PM

It didn't work so I thought I was doing something wrong....

**JieJenn** · 02-29-2012, 03:45 PM

You have to put those 2 procedures within the same procedures. PS:Rows not Row. Just an FYI.

Actually put the code in Worksheet_Change module otherwise it is going to update every time you select a cell

Please Login or Register  to view this content.

**JenJenLV** · 02-29-2012, 03:57 PM

Got it to work with changing the Row to Rows, for the second event! Thank you so much!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo ExitSub
Select Case Range("J18")
Case 1
Rows("19:20").Hidden = True
Case 0
Rows("19:20").Hidden = False
Case Else
'Do Nothing
End Select

On Error GoTo ExitSub
Select Case Range("J21")
Case 1
Rows("22:22").Hidden = True
Case 0
Rows("22:22").Hidden = False
Case Else
'Do Nothing
End Select

ExitSub:
End Sub