Checkbox vraagje

[NajKwin]

Hallo,

Ik had even een vraagje

Ik heb een checkbox gemaakt in een formulier die doet wat hij moet doen. Met de volgende code schrijf ik het weg:

sh.Range("k" & n + 1).Value = Me.Checleerkracht.Value

in de desbetreffende kolom komt netjes "WAAR" te staan als de checkbox is aangevinkt. Is het mogelijk om i.p.v "Waar" ook een getal te laten verschijnen of moet ik dan een hulpkolom gebruiken?

En mocht het wel kunnen hoe doe ik dat dan?


m.v.g.

Naj

 

[OctaFish]

Dat kan, maar wat wil je dan als uitkomst bij de mogelijke waarden?

 

[OctaFish]

Even een simpel voorbeeldje:

    sh.Range("k" & n + 1).Value = IIf(Me.Checleerkracht.Value = True, 1, "")

Hiermee wordt de waarde 1 weggeschreven, of de cel blijft leeg. Kun je zelf wel aanpassen denk ik.

 

[NajKwin]

Ik wil met de uitkomst een voorwaardelijke opmaak maken met een pictogrammenset

 

[OctaFish]

Da's een heel andere vraag. Leg eerst eens uit op basis waarvan je dan die VO wilt instellen. Hóe je de VO instelt, heeft niks met een pictogrammenset te maken; VO kijkt naar de waarden in de cel en op basis daarvan wordt de VO toegepast. Dus je zult eerst moeten bepalen wat er in de cel moet komen te staan.
En je weet wat ik nu ga zeggen: doe er anders een voorbeeldje bij .

 

[NajKwin]

@Octafish

Code van jou doet prcies wat hij moet doen (maar ja dat wist je al)
met de VO zie bijlage geeft hij bij een 1 het groene vinkje zoals gewenst