Opgelost Automatisch kolommen en eventueel rijen verbergen met VBA

[Ruben Aalders]

Ik wil rijen verbergen op basis van een de waarde in een cel / roll down menu
Het lukt mij om op basis van 1 waarde rijen te verbergen en om deze terug te halen.
Maar nu wil ik meerdere voorwaarden combineren.

Private Sub Worksheet_Change(ByVal Target As Range)

'With value "No option" everything visible up to line 78

If Target.Address = "$G$2" Then
If Range("G2").Value = "No option" Then
Range("78:328").EntireRow.Hidden = True
Else
Range("78:328").EntireRow.Hidden = False
End If
End If


'With value "01" everything visible up to line 161

' If Target.Address = "$G$2" Then
' If Range("G2").Value = "01" Then
' Range("161:328").EntireRow.Hidden = True
' Else
' Range("161:328").EntireRow.Hidden = False
' End If
' End If

'With value "02" everything visible up to line 245

' If Target.Address = "$G$2" Then
' If Range("G2").Value = "01" Then
' Range("245:328").EntireRow.Hidden = True
' Else
' Range("245:328").EntireRow.Hidden = False
' End If
' End If

'At value "03" everything is visible

End Sub

 

[edmoor]

Probeer dit eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "G2" Then
        Range("78:328").EntireRow.Hidden = False
        Range("161:328").EntireRow.Hidden = False
        Range("245:328").EntireRow.Hidden = False
        
        Select Case Range("G2")
            Case "No option":   Range("78:328").EntireRow.Hidden = True
            Case "01":          Range("161:328").EntireRow.Hidden = True
            Case "03":          Range("245:328").EntireRow.Hidden = True
        End Select
    End If
End Sub

 

[Ruben Aalders]

Ohhhh wow dit is precies wat ik nodig had
dank U

 

[edmoor]

Welkom bij Helpij