Checkbox aanvinken / activeren door celwaarde

[Martijn1964]

Beste,

In een sheet met checkboxen (invulblad) wordt er een ander tablad geopend als deze worden aangevinkt.
Nu wil ik dat als er ergens een bepaalde invoer is ook dit tablad wordt geopend.
Dit is gelukt, maar op het invulblad blijft de checkbox dan op niet aangevinkt staan.
Is er een mogelijkheid indien er een celwaarden wordt ingevoerd dat de checkbox dan aangevinkt wordt?

VBA op Invulblad:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then Sheets("Bapol (1)").Visible = True
If CheckBox1.Value = False Then Sheets("Bapol (1)").Visible = xlVeryHidden

End Sub

VBA op andere tabblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Worksheets("Routeblad").Range("F74") = "Y" Then
Sheets("BAPOL (1)").Visible = True
ElseIf Worksheets("Routeblad").Range("F74") = "N" Then
Sheets("BAPOL (1)").Visible = xlVeryHidden

End Sub

 

[edmoor]

VBA op andere tabblad wellicht zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CheckBox1.Value = True
    Sheets("BAPOL (1)").Visible = IIf(Worksheets("Routeblad").Range("F74") = "Y", True, xlVeryHidden)
End Sub

 

[Martijn1964]

Hoi, wel een eind op weg geholpen.
Na wat proberen en aanpassingen werkt het onderstaande.
Maar... kan nu niet meer handmatig het vinkje zetten in Checkbox 1 als er niet aan de cel voorwaarde word voldaan.
Dus Formule in F74 geeft "N" maar wil dan alsnog op het invulblad een vinkje kunnen zetten om blad zichtbaar te krijgen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Worksheets("Routeblad").Range("F74") = "Y" Then
Worksheets("Invulblad").CheckBox1.Value = True

ElseIf Worksheets("Routeblad").Range("F74") = "N" Then
Worksheets("Invulblad").CheckBox1.Value = False

End If

End Sub

 

[edmoor]

Waarom die je het niet zoals ik liet zien?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheets("BAPOL (1)").Visible = IIf(Worksheets("Routeblad").Range("F74") = "Y", True, False)
End Sub

Die code heeft ook niets te maken met het zetten van een vinkje.
Plaats dan je document met wat extra uitleg.