selectievakjes aan cellen koppelen

[pappi]

Hallo,

weet iemand hier raad mee?


Het is de bedoeling om in werkblad 1 aan cel A1 een selectievakje toe te wijzen op het werkblad.
Op zich geen probleem, ,lukt me wel.
Nu is het de bedoeling om via macro of iets dergelijks op een een voudige manier in Cel A2 op het zelfde blad dit te herhalen , enz.... zoveel cellen als nodig.
Zonder iedere keer afzonderlijk het selectievakje aan een bepaalde cel te moetenkoppelen .
Wanneer er vele selectievakjes op een werkblad staan , is het zeer omslachtig om iedere keer elk afzonderlijk selecievakje te moeten toewijzen aan een cel.
Bestaat hier een simpelere oplossing voor.

Mvg
pappi

 

[danny147]

Beste pappi

Probeer eens de selectievakjes in een groepsvak te plaatsen.


Groetjes Danny. :thumb:

 

[pappi]

Hi Danny,
Groeperen lijkt mij géén oplossing, je kan dan immers de groep niet aan cellen koppelen .
Het was't proberen waard .
Alvast bedankt voor de reactie

 

[pappi]

Hallo beste forum leden , heb het antwoord reeds gevonden na wat google en doorzoeken van dit forum.

Op dit forum was reeds dezelfde vraag nm op 23/01/2003.
Een zekere Ingrid had hier de juiste oplossing voor ,waarvoor duizendmaal dank.
Ben nu een gelukkig man
Bij deze is deze vraag afgehandeld .
groeten Pappi


Voor de geinteresseerden , hier nog even de code van die bewuste Ingrid

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

 

[Superzeeuw]

Pappi,

Bedankt voor het terugmelden.

Als je de volgende keer opnieuw code post wil je deze dan selecteren en daarna op de #-button klikken dan staat je code in een aparte box zie voorbeeld:

VBA code