"Linked cell" til 1000 checkboxe

Lav en makro til at skabe dem.

Ved ikke helt hvad du mener med "linked cell".
Vis hvordan det skal se ud, så vil jeg prøve at lave et makro eksempel.

Jeg skal linke en celle til hver felt. Dvs. skrive ind i kontrolelementets egenskaber ud for linked cell, hvilken celle boxen skal referere til... Ved godt hvad en makro er, men har aldrig brugt dem. Hvordan gør man det?

Public Sub Tilføj_LinkedCell()
Dim CH As Object, a As String, I As Long
For Each CH In ActiveSheet.Shapes
a = CH.Name
If Left(a, 8) = "CheckBox" Then
I = Right(a, Len(a) - 8)
CH.Select
ActiveSheet.OLEObjects(a).LinkedCell = "A" & I
End If
Next
End Sub

hvis dine CheckBox hedder CheckBox1 til CheckBox1000, så sætter koden LinkedCells fra A1 til A1000

Tak for det, kabbak.

Mine boxe hedder Checkbox 1 til 1000, men de skal linkes til O6-O1005...

Hvad skal jeg ændre...?

Public Sub Tilføj_LinkedCell()
Dim CH As Object, a As String, I As Long
For Each CH In ActiveSheet.Shapes
a = CH.Name
If Left(a, 8) = "CheckBox" Then
I = Right(a, Len(a) - 8)
CH.Select
ActiveSheet.OLEObjects(a).LinkedCell = "O" & I+5
End If
Next
End Sub

Hmm... Det virker ikke... Hvad kan jeg gøre forkert?

du skal have arket med CheckBoxene aktiv inden du kører makroen.

Det må du nok uddybe lidt...! :o/

stil dig på arket med CheckBoxene
vælg Funktioner > Makro > kør, vælg min makro

Super! Det virker... Tusind tak!

Smid et svar, kabbak. :o)

et svar ;-))