Selectievakjes met variabele

[WRD Frank]

Ik ben druk bezig en zoekende geweest op het forum.
Maar helaas zonder resultaat.

Ik wil "inventarisatie" maken met meerdere selectievakjes onder elkaar.
De onderstaande formule ben ik al tegen gekomen op het forum.
Deze heb ik helemaal naar wens kunnen aanpassen. Alleen ben ik nog naar één ding opzoek.

Hoe kan ik de "Const n% = 10 'aantal selectievakjes" laten verwijzen naar een hoeveelheid in een cel. Hierdoor ontstaat er een variabele in de aantallen selectievakjes dat wordt geplaatst door de marco.

Sub SelectievakjesPlaatsenA()
Const n% = [B]10[/B] 'aantal selectievakjes
Const r% = 20  'rijnummer van eerste cel
Const k% = 5  '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 + 20).Address
    Selection.ShapeRange.Height = 25.45243902
    Selection.ShapeRange.Width = 175.0915141
  Next i
End Sub ' SlectievaktjesplaatsenA

 

[JeanPaul28]

Zonder excel voorbeeld begrijp ik niet goed wat je wil bereiken, meestal ben geen voorstander van selectievakjes, als je een celrij groter maakt zal het selectie vakje niet mee evalueren

 

[Cobbe]

Const n% = [A1] 'aantal selectievakjes

 

[WRD Frank]

Helaas.

"Compileerfout:
Expressie voor constante vereis"


@JeanPaul28 - de kolom breedte zal meer wijzigen. Daarom de keuze voor de vakjes

 

[Cobbe]

Ja dat kan kloppen:

Sub SelectievakjesPlaatsenA()
[COLOR="#FF0000"]'Const[/COLOR] n% = 10 'aantal selectievakjes
Const r% = 20  'rijnummer van eerste cel
Const k% = 5  'kolomnummer van eerste cel
Dim i%
  For i = 0 To [COLOR="#FF0000"][A1] - 1
[/COLOR]    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 + 20).Address
    Selection.ShapeRange.Height = 25.45243902
    Selection.ShapeRange.Width = 175.0915141
  Next i
End Sub ' SlectievaktjesplaatsenA

 

[WRD Frank]

Ja dat kan kloppen:

Sub SelectievakjesPlaatsenA()
[COLOR="#FF0000"]'Const[/COLOR] n% = 10 'aantal selectievakjes
Const r% = 20  'rijnummer van eerste cel
Const k% = 5  'kolomnummer van eerste cel
Dim i%
  For i = 0 To [COLOR="#FF0000"][A1] - 1
[/COLOR]    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 + 20).Address
    Selection.ShapeRange.Height = 25.45243902
    Selection.ShapeRange.Width = 175.0915141
  Next i
End Sub ' SlectievaktjesplaatsenA

Bovenstaande code werk.
Super bedankt.