Checkbox kopieren

[Natasja Witteve]

Hoi,

Ik wil in Excel, in een bestand met honderden regels, een checkbox plaatsen op iedere regel (die dus aangevinkt kan worden). De checkbox moet gekoppeld zijn aan de naastliggende cel. Als ik een checkbox maak, dus koppel aan de cel ernaast en vervolgens kopieer naar beneden, verschijnen er wel checkboxen op iedere regel, maar die zijn allemaal aan dezelfde cel gekoppeld. Hoe los ik dat op? (De $ weghalen uit de verwijzing naar de gekoppelde cel, werkt niet.)

Groetjes,
Natasja

 

[Warme bakkertje]

Onderstaande maakt in kolom A (A2 tot A20) checkboxen gelinkt aan naastliggende cel in kolom B

Sub Checkboxen()
Application.ScreenUpdating = False
For Each c In [A2:A20]
    With ActiveSheet.CheckBoxes.Add(c.Left + 2, c.Top - 3, 11, 11)
        .Characters.Text = ""
        .LinkedCell = c.Offset(0, 1).Address
        .Placement = xlFreeFloating
        .Value = xlOff
    End With
Next c
ActiveSheet.Shapes.SelectAll
    With Selection
        .ShapeRange.ScaleWidth 2.03, msoFalse, msoScaleFromTopLeft
        .ShapeRange.ScaleHeight 1.05, msoFalse, msoScaleFromMiddle
    End With
End Sub

Mvg

Rudi

 

[Natasja Witteve]

Onderstaande maakt in kolom A (A2 tot A20) checkboxen gelinkt aan naastliggende cel in kolom B

Sub Checkboxen()
Application.ScreenUpdating = False
For Each c In [A2:A20]
    With ActiveSheet.CheckBoxes.Add(c.Left + 2, c.Top - 3, 11, 11)
        .Characters.Text = ""
        .LinkedCell = c.Offset(0, 1).Address
        .Placement = xlFreeFloating
        .Value = xlOff
    End With
Next c
ActiveSheet.Shapes.SelectAll
    With Selection
        .ShapeRange.ScaleWidth 2.03, msoFalse, msoScaleFromTopLeft
        .ShapeRange.ScaleHeight 1.05, msoFalse, msoScaleFromMiddle
    End With
End Sub

Mvg

Rudi

Hoi Rudi,

Hoe werkt dit dan? Als ik de code aan het werkblad koppel, gebeurt er niets...

Groetjes,
Natasja

 

[Warme bakkertje]

Wijzig eerst naar het juiste bereik
ALT-F8 >> Macro selecteren >> Uitvoeren

Mvg

Rudi

 

[Natasja Witteve]

Hoi Rudi,

Sorry, logisch. Het is gelukt hoor!
Bedankt.

Groetjes,
Natasja

Wijzig eerst naar het juiste bereik
ALT-F8 >> Macro selecteren >> Uitvoeren

Mvg

Rudi