• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

selectievakjes doorvoeren?

Status
Niet open voor verdere reacties.

dave34nl

Gebruiker
Lid geworden
19 mei 2002
Berichten
76
beter laat als nooit

Hallo Dennisa,

Ja dat is mogelijk ik weet echter niet of het bij jouw nog nodig is na zo'n lange periode.

Met deze code kan je een reeks selectievakjes onder elkaar plaatsen.



code:-----------------------------------------------------------------Sub SelectievakjesPlaatsen()
Const n% = 10 'aantal selectievakjes
Const r% = 4 'rijnummer van eerste cel
Const k% = 3 'kolomnummer van eerste cel
Dim i%
For i = 0 To n - 1
ActiveSheet.CheckBoxes.Add((Cells(r + i, k).Left + 15), _
(Cells(r + i, k).Top - 2), 72, 72).Select
Selection.Characters.Text = ""
Selection.LinkedCell = Cells(r + i, k).Address
Selection.ShapeRange.Height = 17.25
Selection.ShapeRange.Width = 24#
Next i
End Sub

Ik had hetzelfde probleem en heb deze oplossing van Ingrid gekregen.

Ik ben zelf ook bezig om een lijst samen te stellen en nu heb ik een vraag aan jouw, zou ik jouw boodschappenlijst mogen hebben, dus alleen een lijst met daarin de boodschappen, hoef ik ze niet in te vullen.

Alvast bedankt,
 
Laatst bewerkt:
Heey,

Het doel van mijn lijst heeft een andere opzet, namelijk het selecteren van artikelnummers uit een bestellijst. Dus aan mijn lijst zul je helaas niet veel hebben :(

Maar op de site van Computer Idee staat wel al een voorbeeld, misschien dat je daar nog wat aan hebt :d
http://www.computeridee.nl/downloads/0206/Select Shopper.xls


In ieder geval heel erg bedankt voor je oplossing ! !

Dennis
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan