selectievakje door copieren

[arjensp]

hallo

ik heb gezocht op het forum en heb wel wat kunnen vinden maar snap het nog steeds niet

met welke macro kan ik een slectievakje (in kolom B) koppelen aan de in de zelfde rij cel in kolom F...

ik ben bezig met een greedschappenlijst die dan doormiddel van aanvinken uitkomt in een paklijst. Dat lukt allemaal prima maar ik moet nu bij ±800 slecectie vakjes met de hand het besturings element koppelen aan de cel....

please help

alvast bedankt

arjen

 

[koosl]

Arjen,

deze code maakt het aantal selectievakjes aan wat je bij n invult en linkt ze met de cel
die je opgeeft in .LinkedCell = Cells(r + i, k + 6).

Sub SelectievakjesPlaatsen()
Const n% = 800 'aantal selectievakjes
Const r% = 1 'rijnummer van eerste cel
Const k% = 2 '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
        With Selection
            .Characters.Text = ""
            .LinkedCell = Cells(r + i, k + [COLOR="red"]6[/COLOR]).Address 'linked ze met een cel in kolom k +
            .ShapeRange.Height = 17.25
            .ShapeRange.Width = 24#
        End With
    Next i
End Sub

Code ooit van internet geplukt. Ik weet niet meer van wie.


Koosl

 

[koosl]

Arjen,

Je kunt de aangemaakte selectievakjes heel simpel allemaal verwijderen door:
(Kijk wel uit als er ook nog andere objecten op je sheet staan!)

Ctrl + G (het Ga naar: schermpje)
Speciaal....
selekteer objecten
Ok
Alle objecten zijn nu geselekteerd

druk op delete
Klaar.



voer daarna de code uit bovenstaande post uit.

Koosl