Code for hiding rows w/ list

[mcwilson]

Hello all,

I have a list in A91 where the user can select 1, 2, or 3.
If 1 is selected, i want rows 92 and 93 to be hidden.
if 2 is slected, i want row 93 to be hidden
if 3 is selected, i want everything to show.

Any ideas on how/if this can be done, please let me know.

Thanks in advance and God bless

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A91" Then
Select Case Target.Value
    Case 1: Rows("92:93").Hidden = True
    Case 2: Rows("93").Hidden = True: Rows("92").Hidden = False
    Case 3: Rows("92:93").Hidden = False
End Select
End Sub

 

[mcwilson]

thanks for the answer, but it did not work

 

[VoG]

Sorry, I missed an End If. Tested and working here

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A91" Then
    Select Case Target.Value
        Case 1: Rows("92:93").Hidden = True
        Case 2: Rows("93").Hidden = True: Rows("92").Hidden = False
        Case 3: Rows("92:93").Hidden = False
    End Select
End If
End Sub

 

[mcwilson]

Thanks for the help. Quick question though. If I were trying to do a macro instead, how would i go about doing that? This code works for the first subsequent row, but not the second one. ideas?

Sub HURows()
BeginRow = 91
EndRow = 140
ChkCol = 1
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = 1 Then
Cells(RowCnt + 1, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt + 1, ChkCol).EntireRow.Hidden = False

End If

Next RowCnt
End Sub

 

[VoG]

That was a macro

Try

Sub HURows()
Dim BeginRow As Long, EndRow As Long, ChkCol As Long, RowCnt As Long
BeginRow = 91
EndRow = 140
ChkCol = 1
For RowCnt = BeginRow To EndRow
    Cells(RowCnt, ChkCol).EntireRow.Hidden = Cells(RowCnt, ChkCol).Value = 1
Next RowCnt
End Sub

 

[mcwilson]

It unfortunately hid the rows with the lists (line #1) but not the two intended ones

 

[mcwilson]

the intended ones are the two below if it says #1
if the list says 2, then i want the third line hidden.

I apologize that I have this so confusing!

 

[mcwilson]

When i am inserting that previous micro, when i right click on tab and select "view code" nothing appears. When i go to insert, what should i select?
If i then paste code into that, how do i get the micro to run?

sorry for being such a noobie./

God bless your patience!

 

[VoG]

A regular macro should go in a regular module. Press ALT + F11 to open the Visual Basic editor, select Module from the Insert menu then enter the code.