selectievakjes doorvoeren?

[dave34nl]

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,

 

[dennisa]

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