Automatically hide/unhide rows based on cell value in excel

[jag2011]

Hi,
I'm new to excel VBA.
Need to do the following in a worksheet "Inlet chevron"
If cell A3 = "Combination", then hide rows 7 to 64 and unhide rows 65 to 94
If cell A3 ="Single", then hide rows 65 to 94 and unhide rows 7 to 64
Appreciate if you could type it down so that I could copy it.
Thanks in Advance.

 

[Abhije2tsingh]

Hi Weaver,
I'm new to excel VBA.
Need to do the following in a worksheet "BASE PLATE"
If cell C54 = "SMALL MOMENT", then hide rows 63 to 79 and unhide rows 55 to 62
If cell C54 ="LARGE MOMENT", then hide rows 55 to 62 and unhide rows 63 to 79

But unfortunately I am not even able to see the written vba code as I have written as

Option Compare Text
Private Sub BASEPLATE_Change(ByVal Target As Range)
If Target.Address = "$C$54" Then
Rows("63:79").Hidden = (Target.Value = "SMALL MOMENT")
Rows("55:62").Hidden = (Target.Value = "LARGE MOMENT")
End If
End Sub

Appreciate if you could type it down so that I could copy it.
Thanks in Advance.

 

[kmol468]

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) = "A3" Then
    Select Case Target.Value
        Case "Combination": Rows("7:64").Hidden = True: Rows("65:94").Hidden = False
        Case "Single": Rows("7:64").Hidden = False: Rows("65:94").Hidden = True
    End Select
End If
End Sub

then try changing the value of A3.

Firstly, im new to the forum and vba but am trying to search without pestering people too much, however I have used the above code but wanted to have certain rows hidden with the target address empty or blank. Is anyone able to help?

this is my code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "E7" Then
Select Case Target.Value
Case Is <> "Mobile": Rows("8:15").Hidden = True
Case "Mobile": Rows("8:15").Hidden = False
End Select
End If
End Sub