Knop / button verbergen

[rvt1982]

Beste Leden,

Ik ben opzoek naar een script (VBA) die een knop / button laat verbergen als in A1,B1,C1,D1 geen waarde staat.

als A1,B1,C1,D1 allemaal een waarde hebben dat dan de knop / button zichtbaar word.

Alvast bedankt.

 

[danny147]

Beste rvt1982

Zet volgende code in Blad1 van de VBA editor:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [A1] = "" And [B1] = "" And [C1] = "" And [D1] = "" Then
ActiveSheet.Shapes("CommandButton1").Visible = False
End If
If [A1] <> "" And [B1] <> "" And [C1] <> "" And [D1] <> "" Then
ActiveSheet.Shapes("CommandButton1").Visible = True
End If
End Sub

Hij kan wel korter gemaakt worden, maar met deze gaat het

Groetjes Danny. :thumb:

 

[HSV]

Of:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 CommandButton1.Visible = IIf([A1] > 0 And [B1] > 0 And [C1] > 0 And [D1] > 0, True, False)
End Sub

 

[Warme bakkertje]

Of

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("CommandButton1").Visible = IIf(WorksheetFunction.CountA(Range("A1:D1")) = 4, True, False)
End Sub

 

[rvt1982]

Bedankt, dit is wat ik zoek...
Maar ik was iets vergeten, de A1, B1, C1, D1 (liefst los ivm verschillende locaties) staan op een andere blad.
Wat moet ik dan aanpassen ?

Alvast bedankt.

 

[Warme bakkertje]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Sheets("Blad2")
        ActiveSheet.Shapes("CommandButton1").Visible = IIf(.[A1] > 0 And .[B1] > 0 And .[C1] > 0 And .[D1] > 0, True, False)
    End With
End Sub

Vervand Blad2 nog wel door de juiste bladnaam.
Zet onderstaande in ThisWorkBook zodat je steeds opent met een verborgen CommandButton.
Vervang Blad1 door de bladnaam met je knop.

Private Sub WorkBook_Open()
    Sheets("Blad1").Shapes("CommandButton1").Visible = False
End Sub