Herladen na wijziging

[ehbopc]

We hebben op een eerste blad een keuze menu. Dit zorgt ervoor dat op een ander blad de cel O1 wijzigd in een cijfer ts 1 en 8 afhankeijk van de keuze op het eerste blad.
Deze cel wijzigd in een cijfer van 1 tot 8.
Nu willen we dat de volgende code wordt uitegvoerd als er een wijziging is.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("O1").Value = 2 Then Rows("15:25").Hidden = True
If Range("O1").Value = 2 Then Rows("30:40").Hidden = True
If Range("O1").Value <> 2 Then Rows("15:25").Hidden = False
If Range("O1").Value <> 2 Then Rows("30:40").Hidden = False
End Sub

Als je manueel een cijfer ingeeft in O1 en je drukt op enter dan wordt deze bewerking uitgevoerd.
Maar doe je het via het keuze menu, dan niet.

Kan er iemand mij helpen?

 

[edmoor]

Als je een voorbeeld document plaatst zal het antwoord op je laatste vraag ja zijn. Daarnaast zou ik die code iets anders schrijven:

Private Sub Worksheet_Change(ByVal Target As Range)
    Rows("15:25").Hidden = IIf(Range("O1").Value = 2, True, False)
    Rows("30:40").Hidden = IIf(Range("O1").Value = 2, True, False)
End Sub

 

[E v R]

'vang' de wijziging in eerste blad (keuzemenu) en niet de wijziging op het andere blad

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("15:25,30:40").EntireRow.Hidden = Range("O1") = 2
End Sub

 

[edmoor]

En toen was er nog maar 1 regeltje over :thumb: