Regels verbergen afhankelijk van waarde

[mattie94]

Op een formulier dat ingevuld moet worden heb je verschillende keuzes.
Omdat het best een behoorlijk formulier is, wil ik het wat overzichtelijker maken.

Zie bijlage:
Als de optie op nee staat, moet onderstaand stuk weergeven worden.
Als de optie op ja staat, moeten de regels verborgen worden.

Wie kan me helpen?


Bekijk bijlage verbergen.xlsx

 

[hoogteijling]

Onderstaande code verbergt de regels 4 t/m 10 als de waarde in B1 geen Nee is.

Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Address = "$B$1" Then
        If Target.Value = "Nee" Then
            Rows("4:10").EntireRow.Hidden = False
        Else
            Rows("4:10").EntireRow.Hidden = True
        End If
    End If
End Sub

Groeten Marcel

 

[Roncancio]

Het kan op 1 regel:

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("4:10").EntireRow.Hidden = [B1] <> "Nee"
End Sub

Met vriendelijke groet,


Roncancio

 

[mattie94]

Thx!

 

[mattie94]

Nu moet ik de tegenovergestelde functie hebben, als het een bepaalde waarde heeft moeten verschillende regels zichtbaar worden.
Ik heb het geprobeerd met EntireRow.visible maar dan krijg ik allen maar error's en dan werkt die niet.

Waarschijnlijk is het een hele makkelijk functie maar ik krijg hem niet gevonden.

Sorry voor de domme vraag, maar wie kan me helpen?

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("4:10").EntireRow.Hidden = [COLOR="#FF0000"][B]Not[/B] [/COLOR][B1] <> "Nee"
End Sub

Met vriendelijke groet,


Roncancio