combobox to cell

[Hjemmet]

I have on a Userform 20 Combobox to chose 20 Differens players from cell H62 to H82

My first Combobox 1 works fine

but they cant get the Rest to work….

and how did i get the combobox to put the player in cell

eksampel

Use combobox 1 to set player 1 in cell "B1" on Sheet"Lodtrækning"
and Combobox 2 to set player 2 in cell "B2" on Sheet"Lodtrækning"
Hope that that was enough info

 

[Hjemmet]

Error message " Could not find the specified Object"


i this Line
Range("B" & i).Value = Me.Controls("combobox" & i).Value

 

[Hjemmet]

have made a Link with Hole File
https://www.dropbox.com/s/n4sdpqjk1yne6qu/Pulje med 16 Spillere Med Lodtrækning.xlsm?dl=0

Its in a Danish Version
The Code For All Sheets is "Dart" without "

 

[My Aswer Is This]

I never click on links or download files.
Your request seems very simple.

Are your Combobox's named Combobox1 and Combobox2 and on and on ?

These are the default names.

If not what are the Combobox names.

 

[Hjemmet]

Yes combo box is name 1-2-3-4-5 to 20

 

[Fluff]

The code from post#6 works for me, but you will need to change your initialise event to

Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Lodtrækning").Range("H62:H85")
       For i = 1 To 20
     Me.Controls("combobox" & i).List = xRg.Value
   Next i
    
End Sub

and remove the Private Sub ComboBox1_Change() code

 

[Hjemmet]

Thank you for The Help Now I get i to Work after a Few Hours Sleep….

 

[Hjemmet]

after checking several times ive got a little error on the sheets where i run this macro

i have try to get my sheets Protected and when it runs it Aint protect sheets "Lodtrækning"
---------------------------------------------------
Private Sub CommandButton1_Click()


UserForm1.Hide
'after clicking o Button 1 Hide userform it should Protect sheet It aint Happend.
Sheets("Lodtrækning").Protect Password:="Dart"
End Sub


--------------------------------------------------------
Private Sub CommandButton2_Click()
Sheets("Lodtrækning").Protect Password:="Dart"
'On this Botton it set the name that part works Fine ad Sheets Unprotect ok
Dim i As Long
For i = 1 To 20

Range("B" & i).Value = Me.Controls("combobox" & i).Value

Next i

End Sub
--------------------------------------------------------

Private Sub UserForm_Initialize()
Set xRg = Worksheets("Lodtrækning").Range("H62:H85")
For i = 1 To 20
Me.Controls("combobox" & i).List = xRg.Value
Next i

End Sub