Rijen verbergen / zichtbaar maken op basis van "Ja"/"Nee" in cell

[Micheltje13]

Hi,

Ik ben bezig met een groot document die verschillende macro's moet gaan bevatten. Echter heb ik wat hulp nodig bij een macro. In de excel sheet staat een lijst met producten. Bij elk nieuw project moet er aangegeven worden of het product in het project zit ja of nee.

Nu heb ik op Blad1 een lijst gemaakt van Cell A1 tm A20 met de namen van de producten. Op Cell B1 tm B20 staat een gegevensvalidatie met slechts de keuzes Ja/Nee. Ik wil eigenlijk heel simpel de volgende Macro hebben.

Op het moment dat er op Cell B1 dus voor product 1 wordt aangegeven "Ja" dan moeten de rijen 1-20 op een willekeurig werkblad zichtbaar gemaakt worden. Wordt er bij product 1 aangegeven "Nee" dan moeten de rijen 1-20 op een willekeurig werkblad verborgen blijven/zijn. Op het moment dat ik het wijzig naar "Ja" moeten ze weer zichtbaar worden.

Volgens mij is het zo wel duidelijk uitgelegd. Ik heb deze macro 1x nodig want op het moment dat ik de versie heb voor 1 product kan ik hem dupliceren naar meerdere producten.

 

[ExcelAmateur]

Niet dat ik je kan helpen maar heb je hier al gekeken?
https://www.helpmij.nl/forum/announcement.php?f=5

 

[Micheltje13]

En hierbij het voorbeeldbestand

Bekijk bijlage Voorbeeld.xlsx

 

[emields]

zo?

 

[Micheltje13]

Het is geregeld:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Activate
If Not Application.Intersect(Range("B4"), Range(Target.Address)) Is Nothing Then
        Select Case Target.Value
        Case Is = "Ja":     Sheets("Planning").Rows("13:37").EntireRow.Hidden = False
        Case Is = "Nee":  Sheets("Planning").Rows("13:37").EntireRow.Hidden = True
        End Select
End If
End Sub

 

[VenA]

Is dit niet voldoende?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B4" Then Sheets("Planning").Rows("13:37").Hidden = Target = "Nee"
End Sub