need VBA macro for hide the rows based on drop down.

[abhisharma1]

Hi Team,

I need vba macro to hide the rows based on drop down values. If the value is Simple in drop down it should hide the rows from 34 to 41 and if we select other values that it should not hide the rows.

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If Target.Address = "$C$17" Then


ase False
Simple = Target.Value
c = 29
Do
erh = True
If .Cells(c, "C") = Simple Then erh = False
.Rows(c - 3 & ":" & c).EntireRow.Hidden = erh
c = c + 4
Loop Until .Cells(c, "C") = Empty
End If
End With
ase True
End Sub

Private Sub ase(ss)
With Application
.EnableEvents = ss
.ScreenUpdating = ss
End With
End Sub

 

[dave3009]

Hi

So if C17 is "Simple" then hide rows 34 to 41, otherwise they should be visible?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C17")) Is Nothing Then
    Rows("34:41").Hidden = Target.Value = "Simple"
End If
Application.EnableEvents = True
End Sub