Dag allemaal,
Ik zit met het volgende probleem. Ik ben een echte noob wat betreft VBA in Excel, maar de logica is, vind ik, prima te begrijpen.
Het volgende: F8 is een cel met gegevensvalidatie, alleen "Ja" en "Nee" zijn mogelijk. Indien F8 "Ja" is, dan worden rij 10 t/m 26 verborgen. Als F8 "Nee" is, moeten rij 10 t/m 26 dus niet zijn verborgen. Tot zover ben ik gekomen, dit werkt prima.
Nu wil ik een tweede effect toevoegen als F8 "Nee" is, namelijk dat ook cel F27 "Nee" wordt. Ook
F27 heeft gegevensvalidatie, alleen "Ja" of "Nee" zijn mogelijk.
Dit is de code die ik nu heb en wat werkt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F8").Value = "Ja" Then
Rows("10:26").EntireRow.Hidden = True
ElseIf Range("F8").Value = "Nee" Then
Rows("10:26").EntireRow.Hidden = False
End If
If Range("F27").Value = "Ja" Then
Rows("29:29").EntireRow.Hidden = True
Rows("31:32").EntireRow.Hidden = True
ElseIf Range("F27").Value = "Nee" Then
Rows("29:29").EntireRow.Hidden = False
Rows("31:32").EntireRow.Hidden = False
End If
End Sub
Ik heb al geprobeerd toe te voegen onder Rows("10:26").EntireRow.Hidden = False:
Range("F27").Value = "Nee"
en
Range("F8").Select
en dan de commando's voor copy, select F27 en paste.
Als ik nu F8 verander van ja naar nee, lijk ik in een soort loop te komen en geeft VBA aan dat er een fout zou moeten zitten in het stukje Rows("10:26").EntireRow.Hidden = False.
Wat doe ik toch verkeerd, zo moeilijk kan het niet zijn?
Alvast bedankt!
Ik zit met het volgende probleem. Ik ben een echte noob wat betreft VBA in Excel, maar de logica is, vind ik, prima te begrijpen.
Het volgende: F8 is een cel met gegevensvalidatie, alleen "Ja" en "Nee" zijn mogelijk. Indien F8 "Ja" is, dan worden rij 10 t/m 26 verborgen. Als F8 "Nee" is, moeten rij 10 t/m 26 dus niet zijn verborgen. Tot zover ben ik gekomen, dit werkt prima.
Nu wil ik een tweede effect toevoegen als F8 "Nee" is, namelijk dat ook cel F27 "Nee" wordt. Ook
F27 heeft gegevensvalidatie, alleen "Ja" of "Nee" zijn mogelijk.
Dit is de code die ik nu heb en wat werkt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F8").Value = "Ja" Then
Rows("10:26").EntireRow.Hidden = True
ElseIf Range("F8").Value = "Nee" Then
Rows("10:26").EntireRow.Hidden = False
End If
If Range("F27").Value = "Ja" Then
Rows("29:29").EntireRow.Hidden = True
Rows("31:32").EntireRow.Hidden = True
ElseIf Range("F27").Value = "Nee" Then
Rows("29:29").EntireRow.Hidden = False
Rows("31:32").EntireRow.Hidden = False
End If
End Sub
Ik heb al geprobeerd toe te voegen onder Rows("10:26").EntireRow.Hidden = False:
Range("F27").Value = "Nee"
en
Range("F8").Select
en dan de commando's voor copy, select F27 en paste.
Als ik nu F8 verander van ja naar nee, lijk ik in een soort loop te komen en geeft VBA aan dat er een fout zou moeten zitten in het stukje Rows("10:26").EntireRow.Hidden = False.
Wat doe ik toch verkeerd, zo moeilijk kan het niet zijn?
Alvast bedankt!