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

 

[Fluff]

Can you supply the code that you're currently using?

 

[Hjemmet]

i try this code for the first combobox and try it to the second one two Change to nr 2 of course


Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Lodtrækning").Range("H62:H85")
Me.ComboBox1.List = xRg.Columns(1).Value

End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 1, False)

End Sub

 

[Fluff]

I'm afraid I don't understand what you are after.
Also why are you loading a Textbox with the same value as the same value as the Combobox?

 

[Hjemmet]

My Mistake with the Textbox i aint use the Textbx

but want t choose from list and put it into a cell fpr each combobox

 

[Fluff]

How about

Private Sub CommandButton2_Click()
   Dim i As Long
   For i = 1 To 20
      Range("B" & i).Value = Me.Controls("combobox" & i).Value
   Next i
End Sub

 

[Hjemmet]

i am to tired so ill have given up on this

it was not at Number but the name on the list from 1 to 20

 

[My Aswer Is This]

You have 20 comboboxes and want that value entered into Column B
Is that what you want?

 

[Hjemmet]

You have 20 comboboxes and want that value entered into Column B
Is that what you want?

Yes 20 Combobox where Name of players came from cell "H62 to H82"
and Combobox 1 set name of player 1 in cell B1 On sheet "lodtrækning" ect ect t combobox 20
B2 for player 2 and B3 for Player 3

Sorry i didn explain it right

 

[My Aswer Is This]

And your saying the script provided in post 6 did not work?

What did it do wrong?