Knoppen onzichtbaar/zichtbaar maken

[janemmers]

Ik heb in een werkblad een aantal besturingselementen (knoppen) geplaatst.
Deze knoppen moeten zichtbaar zijn afhankelijk of er in een andere cel iets is ingevuld. Is de cel leeg dan blijft de knop ook onzichtbaar

dus
cel a1 = leeg, CommandButton1 = onzichtbaar
cel a2 = leeg, CommandButton2 = onzichtbaar
cel a3 = gevuld, CommandButton3 = zichtbaar

Enz.

 

[Wigi]

Voeg eens een voorbeeldbestandje bij, zodat we kunnen zien hoe je die buttons gecreëerd hebt.

 

[janemmers]

Hallo

In de bijlage staat tekst en uitleg omtrent de vraag

Succes ermee

 

[Hoornvan]

janemmers,

had je zoiets in gedachte?

 

[janemmers]

Als ik het goed getest heb, verdwijnt de knop als Piet de Wit uit het namenlijstje wordt gezet. De knop komt niet terug als ik er een andere naam neer zet.

Kun je ook aangeven waar de code is opgeslagen, eventueel kan ik zelf ook actief meedenken

Jan

 

[Hoornvan]

janemmers,

Ik had het maar voor 1 knop gedaan, het is een richting voor je.
Het kan waarschijnlijk wel beter.
De code staat achter het blad.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Value <> "" Then
        Sheets(2).Shapes("CommandButton" & Target.Row - 1).Visible = True
    Else
        Sheets(2).Shapes("CommandButton" & Target.Row - 1).Visible = False
    End If
End Sub

 

[Hoornvan]

janemmers,

Is het al gelukt?
Zet dan de vraag als opgelost, s.v.p.

Hier het bestandje met de code van Warme bakkertje

 

[janemmers]

Op zich werkt de oplossing goed maar wellicht is mijn vraag niet goed gesteld.
Ik zie nu dat ik telkens diverse namen van tabbladen gebruik en de door jullie gemaakt Macro werkt met sheet2.

Wellicht is het een oplossing om onderstaande vraag te beantwoorden dan kom ik volgens mij ook een heel eind. Voor alle duidelijkheid heb ik het bestand wat ik daadwerkelijk ga gebruiken bijgevoegd.


Met de code
CommandButton1.Visible = [instellingen!c2] = "ja"
kan ik knop 1 zichtbaar maken als in cel cel [instellingen!c2] ja ingevuld staat

Nu wil ik:
knop 1 zichtbaar maken als cel [instellingen!c2] gevuld is met een willekeurige tekst en
knop 1 onzichtbaar maken als cel [instellingen!c2] leeg is

Wie helpt mij op weg

 

[janemmers]

Er gaat iets mis met onderstaande code. Ik weet echter niet waarom. In de code wordt verwezen naar cel c2 in werkblad instellingen, hier blijft hij telkens ophangen

Graag advies

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Caption = [instellingen!c2]
CommandButton2.Caption = [instellingen!c3]
CommandButton3.Caption = [instellingen!c4]
CommandButton4.Caption = [instellingen!c5]
CommandButton5.Caption = [instellingen!c6]
CommandButton6.Caption = [instellingen!c7]
CommandButton7.Caption = [instellingen!c8]
CommandButton8.Caption = [instellingen!c9]
CommandButton9.Caption = [instellingen!c10]
If Range("instellingen!c2") = " " Then
CommandButton1.Visible = False
Else
CommandButton1.Visible = True
End If

 

[Hoornvan]

janemmers,

Zo liep hij bij mij door.

If Sheets("instellingen").[C2] = "" Then
CommandButton1.Visible = False
Else
CommandButton1.Visible = True
End If

Dit werk ook zo,

Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect
    [C9] = "1"
    [C5].FormulaR1C1 = "=Instellingen!R[-3]C"
    [d16] = [d16] + 1
    Rows("29:1000").EntireRow.Hidden = True
    Range("b6").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sorry had een foutje gemaakt.

 

[janemmers]

Hoi Wim,

Het foutje is je vergeven, het werkt perfect.