Hiding/Unhiding cells using vba

**rmahal1** · 06-30-2008, 06:00 AM

Thanks for your reply. Have tried the code but does not do anything within my excel sheet.
As for unhiding other cells. I want to use the takeoff sheet that will allow me to produce a takeoff list for variations of the machine. Once I get this section of the code to work i will also hope to add additoinal repeative lines of code for more varations based on a yes or no input. Thanks again.

**royUK** · 06-30-2008, 06:19 AM

I can't test this because i haven't got your workbook, you can attach it here.

Are you sure that you have placed the code in the correct place?

**rmahal1** · 06-30-2008, 06:30 AM

Hi Managed to get the first part of code to work still having troubled with the yes & no part of hte code to do anything. I have attached Workbook. Again Thanks for your help.

**royUK** · 06-30-2008, 07:30 AM

Is this working how you want?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$B$7" Then
        Select Case Target.Value
            Case 800
                Rows("87:93").EntireRow.Hidden = True
            Case 1000
                Rows("87:93").EntireRow.Hidden = True
            Case 1200
                Rows("87:93").EntireRow.Hidden = True
            Case 1500
                Rows("87:93").EntireRow.Hidden = True
            Case Else
                Rows("87:93").EntireRow.Hidden = False
        End Select
    End If
    If Target.Address = "$B$10" Then
        If LCase(Target.Value) = "Yes" Then
            Rows("56:65").EntireRow.Hidden = True
        Else: Rows("56:65").EntireRow.Hidden = False
        End If
    Else: Exit Sub
    End If
End Sub