VBA to expand grouped rows based on condition

[Mandy_84]

Hi All!

I'm trying to ungroup the rows based on condition in the cell. Trying below code, but it doesn't work. Would you pls take a look?

Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If .Range("B20").Value = "Yes" Then
With .Range("A25").EntireRow
If .ShowDetail = False Then
.ShowDetail = True
End If
End With
ElseIf Range("B20").Value = "No" Then
With .Range("A25").EntireRow
If .ShowDetail = False Then
.ShowDetail = True
End If
End With
End If
End With
End Sub

 

[BenGee]

I believe this will do what you want;

Sub Worksheet_Change(ByVal Target As Range)
        If ActiveSheet.Range("B20").Value = "Yes" Then
            ActiveSheet.Range("A25").EntireRow.Hidden = False
        ElseIf Range("B20").Value = "No" Then
            ActiveSheet.Range("A25").EntireRow.Hidden = True
        End If
End Sub

 

[Mandy_84]

Thank you so much! Worked perfectly

 

[BenGee]

Thank you