command knop zichtbaar maken, wanneer cel is gevuld

[rkootje]

Hallo,

ik heb een vraagje,
ik heb een werkblad gemaakt (excel) met een command button verzenden formulier.
dit werkt goed, maar ik heb een cel op datzelfde werkblad wat de trigger moet zijn, of de commandbutton zichtbaar wordt of niet.
ik weet dat je bij eigenschappen van deze commandbutton kunt aangeven of die zichtbaar moet zijn, of niet, maar hoe vertaal ik dat met vba als code wanneer die cel "iets"wordt vermeld, de button zichtbaar wordt in dat werkblad.

wie kan me helpen hiermee, ik weet vast domme vraag, maar kom er niet verder mee,

alvast bedankt!!

 

[Tha Devil]

Verplaatst van Visual Basic naar Visual Basic for Applications

 

[ReneDirks]

Je zult dan steeds moeten kijken of er iets in die cel staat... Bijvoorbeeld als er een '1' in A1 staat dan wordt de knop zichtbaar

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("$A$1")) Is Nothing Then
        Me.commandbutton1.Visible = Range("$A$1").Value = "1"
    End If
End Sub

 

[rkootje]

Hé ReneDirks,

dank je voor je snelle reactie! heb het net geprobeerd, en hij doet het bijna, alleen als een een 1 invul in de cel, maar al ik een 10 invul is de knop weer weg, ik weet niet van te voren welk nummer er in komt te staan, het wordt een 6 cijferig nummer wat een ID nummer is van een programma.
wat moet ik dan invullen tussen de "", wanneer er dus een "getal "wordt gevuld in de cel, dan dient de knop zichtbaar te worden.

 

[ReneDirks]

Waarschijnlijk is

Me.commandbutton1.Visible = Range("$A$1").Value <> ""

voldoende. Dat betekent dan als de cel niet leeg is.

PS: zo zie je maar weer dat het belangrijk is duidelijk aan te geven wat je wilt bereiken.

 

[rkootje]

Hoi ReneDirks,

nu krijg ik de foutmelding: Compileerfout verwacht expressie??

 

[ReneDirks]

Dan heb je er iets niet goed ingezet, want de code werkt gewoon hoor.
Je moet wel de hele code gebruiken he? Ik had alleen even de regel aangegeven die je aan moest passen, dus:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("$A$1")) Is Nothing Then
        Me.commandbutton1.Visible = Range("$A$1").Value <> ""
    End If
End Sub

 

[rkootje]

Ik had een puntje vergeten,
het werkt!!
helemaal top en bedankt !

 

[ReneDirks]

Succes!