Resultaat formule wordt niet gebruikt.

Status
Niet open voor verdere reacties.
S

swedjam

Gebruiker
Lid geworden
4 mei 2012
Berichten
20
Op een excelblad moet een selectievakje zichtbaar worden als in een bepaalde cel het woord "ja" staat en onzichtbaar zijn als er geen "ja" in die cel staat. Dit lukt als ik zelf "ja" in die cel typ. Het werkt niet meer als "ja" via een formule wordt geregenereed. De formule staat in die cel en zoekt "ja" of "nee" op in een andere excel file.
Dit heb ik tot nu toe:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$9" Then
    If Cells(9, 7) = "ja" Then
        ActiveSheet.CheckBoxes("Kryssruta 28").Visible = True
           Else
        ActiveSheet.CheckBoxes("Kryssruta 28").Visible = False
           End If
End If
End Sub

Wie weet een oplossing?

Olaf
 
Zonder dat je een voorbeeld document hebt geplaatst, probeer dit eens:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$9" Then
        ActiveSheet.CheckBoxes("Kryssruta 28").Visible = IIf(LCase(Cells(9, 7)) = "ja", True, False)
    End If
End Sub

NB.
Worksheet_Change wordt niet geactiveerd wanneer een cel wijzigt door een formule.
 
Laatst bewerkt:
Hier een voorbeeld:
Als er in C8 1 staat komt er "ja" in c9 en moet het invulvakje (Kryssruta 2) verschijnen. Werkt dus nog niet zo. Als je "ja" in C9 typt verschijnt het invulvakje wel.
 

Bijlagen

  • checkbox test.xlsm
    20,7 KB · Weergaven: 22
Er zitten geen CheckBoxes in je voorbeeld.
 
Jawel, als je "ja" typt in c9 verschijnt de checkbox (Kryssruta 2). Als je in C9 de formule =Als(C8=1;"ja";"") in C9 uitvoert komt er geen checkbox.
 
In je eerste vraag gaat het over Kryssruta 28 dus daar zocht ik naar.
In je code is het ineens Kryssruta 2 en de enige aanwezige checkbox heet Check Box 2
Niet handig als voorbeeld.

Daarnaast had ik al gemeld dat het Worksheet_Change event niet wordt geactiveerd als een cel wijzigt door een formule.
Daar zal je dan een andere methode voor moeten zoeken.
 
Misschien zo?
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$8" Then Shapes("Check Box 2").Visible = Target.Value = 1
End Sub
 
Ik heb nu het volgende geprogrammeerd en het werkt! Het Worksheet_Change event wordt geactiveerd door "If ActiveSheet.Range("$B$4").Value = "ja" Then".

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveSheet.Range("$B$4").Value = "ja" Then
    ActiveSheet.CheckBoxes("Kryssruta 2").Visible = True
      Else
    ActiveSheet.CheckBoxes("Kryssruta 2").Visible = False
      
      End If

End Sub

Allen bedankt voor de bijstand.
 
Echt waar? Met de rest van de suggesties heb je blijkbaar niets gedaan. Maar wat werkt dat werkt.;)
 
Een macro wordt natuurlijk nooit geactiveerd doordat die macro wordt geactiveerd.
Vreemde conclusie.
Mooi dat het werkt, maar zal een andere oorzaak hebben.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan