Selectievak koppelen aan cel

[Dave35nl]

Hallo,

Als ik in Excel een selectievak koppel een een cel, en deze dan aanvink krijg ik de waarde "WAAR" en anders "ONWAAR", maar nu komt de vraag:

Ik ben een formulier aan het maken waar nogal wat van deze vakjes onder elkaar komen en nu dacht ik deze te kunnen copieren maar dat gaat niet, als ik dan een keuzevak aanklik veranderd alleen de cel waaruit is gecopieerd, wie weet hoe ik deze keuzevakjes kan doorcopieren en de koppeling dan direct aan de juiste cel (de cel waar het keuzevakje instaat) is gekoppeld.

Bedankt,

 

[Ingrid B]

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

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

kopieer de code naar een module

 

[Dave35nl]

Ingrid, harstikke goed !!!

Bedankt !