Multi ComboBox2 and TextBox how to update this whit less code

1 Attachment(s)

Hell All,

This is the first time here. I hope some of you can help me. the code is working only can i make it simpler.

i haven a Userform "Settings_Userform" with comboboxes, textboxes and checkboxes. see attached file.

now the code this is very long because it is repeating it self. is there a way to make this easier.

__________________________________________________________________________

Code:

Private Sub CommandButton1_oke_Click() sheet_name = ActiveSheet.Name Setting_sheet = "settings" ' Eerste kolom Worksheets(Setting_sheet).Range("B2").Value = Me.ComboBox2_1.ListIndex Worksheets(Setting_sheet).Range("B3").Value = Me.ComboBox3_1.ListIndex Worksheets(Setting_sheet).Range("B4").Value = Me.ComboBox4_1.ListIndex Worksheets(Setting_sheet).Range("B5").Value = Me.ComboBox5_1.ListIndex Worksheets(Setting_sheet).Range("B6").Value = Me.ComboBox6_1.ListIndex Worksheets(Setting_sheet).Range("B7").Value = Me.ComboBox7_1.ListIndex Worksheets(Setting_sheet).Range("B8").Value = Me.ComboBox8_1.ListIndex Worksheets(Setting_sheet).Range("B9").Value = Me.ComboBox9_1.ListIndex Worksheets(Setting_sheet).Range("B10").Value = Me.ComboBox10_1.ListIndex Worksheets(Setting_sheet).Range("B11").Value = Me.ComboBox11_1.ListIndex Worksheets(Setting_sheet).Range("B12").Value = Me.ComboBox12_1.ListIndex Worksheets(Setting_sheet).Range("B13").Value = Me.ComboBox13_1.ListIndex Worksheets(Setting_sheet).Range("B14").Value = Me.ComboBox14_1.ListIndex Worksheets(Setting_sheet).Range("B15").Value = Me.ComboBox15_1.ListIndex Worksheets(Setting_sheet).Range("B16").Value = Me.ComboBox16_1.ListIndex Worksheets(Setting_sheet).Range("B17").Value = Me.ComboBox17_1.ListIndex Worksheets(Setting_sheet).Range("B18").Value = Me.ComboBox18_1.ListIndex Worksheets(Setting_sheet).Range("B19").Value = Me.ComboBox19_1.ListIndex Worksheets(Setting_sheet).Range("B20").Value = Me.ComboBox20_1.ListIndex Worksheets(Setting_sheet).Range("B21").Value = Me.ComboBox21_1.ListIndex Worksheets(Setting_sheet).Range("B22").Value = Me.ComboBox22_1.ListIndex Worksheets(Setting_sheet).Range("B23").Value = Me.ComboBox23_1.ListIndex Worksheets(Setting_sheet).Range("B24").Value = Me.ComboBox24_1.ListIndex Worksheets(Setting_sheet).Range("B25").Value = Me.ComboBox25_1.ListIndex Worksheets(Setting_sheet).Range("B26").Value = Me.ComboBox26_1.ListIndex Worksheets(Setting_sheet).Range("B27").Value = Me.ComboBox27_1.ListIndex Worksheets(Setting_sheet).Range("B28").Value = Me.ComboBox28_1.ListIndex Worksheets(Setting_sheet).Range("B29").Value = Me.ComboBox29_1.ListIndex Worksheets(Setting_sheet).Range("B30").Value = Me.ComboBox30_1.ListIndex Worksheets(Setting_sheet).Range("B31").Value = Me.ComboBox31_1.ListIndex ' Tweede kolom Worksheets(Setting_sheet).Range("C2").Value = Me.ComboBox2_2.ListIndex Worksheets(Setting_sheet).Range("C3").Value = Me.ComboBox3_2.ListIndex Worksheets(Setting_sheet).Range("C4").Value = Me.ComboBox4_2.ListIndex Worksheets(Setting_sheet).Range("C5").Value = Me.ComboBox5_2.ListIndex Worksheets(Setting_sheet).Range("C6").Value = Me.ComboBox6_2.ListIndex Worksheets(Setting_sheet).Range("C7").Value = Me.ComboBox7_2.ListIndex Worksheets(Setting_sheet).Range("C8").Value = Me.ComboBox8_2.ListIndex Worksheets(Setting_sheet).Range("C9").Value = Me.ComboBox9_2.ListIndex Worksheets(Setting_sheet).Range("C10").Value = Me.ComboBox10_2.ListIndex Worksheets(Setting_sheet).Range("C11").Value = Me.ComboBox11_2.ListIndex Worksheets(Setting_sheet).Range("C12").Value = Me.ComboBox12_2.ListIndex Worksheets(Setting_sheet).Range("C13").Value = Me.ComboBox13_2.ListIndex Worksheets(Setting_sheet).Range("C14").Value = Me.ComboBox14_2.ListIndex Worksheets(Setting_sheet).Range("C15").Value = Me.ComboBox15_2.ListIndex Worksheets(Setting_sheet).Range("C16").Value = Me.ComboBox16_2.ListIndex Worksheets(Setting_sheet).Range("C17").Value = Me.ComboBox17_2.ListIndex Worksheets(Setting_sheet).Range("C18").Value = Me.ComboBox18_2.ListIndex Worksheets(Setting_sheet).Range("C19").Value = Me.ComboBox19_2.ListIndex Worksheets(Setting_sheet).Range("C20").Value = Me.ComboBox20_2.ListIndex Worksheets(Setting_sheet).Range("C21").Value = Me.ComboBox21_2.ListIndex Worksheets(Setting_sheet).Range("C22").Value = Me.ComboBox22_2.ListIndex Worksheets(Setting_sheet).Range("C23").Value = Me.ComboBox23_2.ListIndex Worksheets(Setting_sheet).Range("C24").Value = Me.ComboBox24_2.ListIndex Worksheets(Setting_sheet).Range("C25").Value = Me.ComboBox25_2.ListIndex Worksheets(Setting_sheet).Range("C26").Value = Me.ComboBox26_2.ListIndex Worksheets(Setting_sheet).Range("C27").Value = Me.ComboBox27_2.ListIndex Worksheets(Setting_sheet).Range("C28").Value = Me.ComboBox28_2.ListIndex Worksheets(Setting_sheet).Range("C29").Value = Me.ComboBox29_2.ListIndex Worksheets(Setting_sheet).Range("C30").Value = Me.ComboBox30_2.ListIndex Worksheets(Setting_sheet).Range("C31").Value = Me.ComboBox31_2.ListIndex ' Derdede kolom Worksheets(Setting_sheet).Range("D2").Value = Me.ComboBox2_3.ListIndex Worksheets(Setting_sheet).Range("D3").Value = Me.ComboBox3_3.ListIndex Worksheets(Setting_sheet).Range("D4").Value = Me.ComboBox4_3.ListIndex Worksheets(Setting_sheet).Range("D5").Value = Me.ComboBox5_3.ListIndex Worksheets(Setting_sheet).Range("D6").Value = Me.ComboBox6_3.ListIndex Worksheets(Setting_sheet).Range("D7").Value = Me.ComboBox7_3.ListIndex Worksheets(Setting_sheet).Range("D8").Value = Me.ComboBox8_3.ListIndex Worksheets(Setting_sheet).Range("D9").Value = Me.ComboBox9_3.ListIndex Worksheets(Setting_sheet).Range("D10").Value = Me.ComboBox10_3.ListIndex Worksheets(Setting_sheet).Range("D11").Value = Me.ComboBox11_3.ListIndex Worksheets(Setting_sheet).Range("D12").Value = Me.ComboBox12_3.ListIndex Worksheets(Setting_sheet).Range("D13").Value = Me.ComboBox13_3.ListIndex Worksheets(Setting_sheet).Range("D14").Value = Me.ComboBox14_3.ListIndex Worksheets(Setting_sheet).Range("D15").Value = Me.ComboBox15_3.ListIndex Worksheets(Setting_sheet).Range("D16").Value = Me.ComboBox16_3.ListIndex Worksheets(Setting_sheet).Range("D17").Value = Me.ComboBox17_3.ListIndex Worksheets(Setting_sheet).Range("D18").Value = Me.ComboBox18_3.ListIndex Worksheets(Setting_sheet).Range("D19").Value = Me.ComboBox19_3.ListIndex Worksheets(Setting_sheet).Range("D20").Value = Me.ComboBox20_3.ListIndex Worksheets(Setting_sheet).Range("D21").Value = Me.ComboBox21_3.ListIndex Worksheets(Setting_sheet).Range("D22").Value = Me.ComboBox22_3.ListIndex Worksheets(Setting_sheet).Range("D23").Value = Me.ComboBox23_3.ListIndex Worksheets(Setting_sheet).Range("D24").Value = Me.ComboBox24_3.ListIndex Worksheets(Setting_sheet).Range("D25").Value = Me.ComboBox25_3.ListIndex Worksheets(Setting_sheet).Range("D26").Value = Me.ComboBox26_3.ListIndex Worksheets(Setting_sheet).Range("D27").Value = Me.ComboBox27_3.ListIndex Worksheets(Setting_sheet).Range("D28").Value = Me.ComboBox28_3.ListIndex Worksheets(Setting_sheet).Range("D29").Value = Me.ComboBox29_3.ListIndex Worksheets(Setting_sheet).Range("D30").Value = Me.ComboBox30_3.ListIndex Worksheets(Setting_sheet).Range("D31").Value = Me.ComboBox31_3.ListIndex ' Derdede kolom Worksheets(Setting_sheet).Range("E2").Value = Me.ComboBox2_4.ListIndex Worksheets(Setting_sheet).Range("E3").Value = Me.ComboBox3_4.ListIndex Worksheets(Setting_sheet).Range("E4").Value = Me.ComboBox4_4.ListIndex Worksheets(Setting_sheet).Range("E5").Value = Me.ComboBox5_4.ListIndex Worksheets(Setting_sheet).Range("E6").Value = Me.ComboBox6_4.ListIndex Worksheets(Setting_sheet).Range("E7").Value = Me.ComboBox7_4.ListIndex Worksheets(Setting_sheet).Range("E8").Value = Me.ComboBox8_4.ListIndex Worksheets(Setting_sheet).Range("E9").Value = Me.ComboBox9_4.ListIndex Worksheets(Setting_sheet).Range("E10").Value = Me.ComboBox10_4.ListIndex Worksheets(Setting_sheet).Range("E11").Value = Me.ComboBox11_4.ListIndex Worksheets(Setting_sheet).Range("E12").Value = Me.ComboBox12_4.ListIndex Worksheets(Setting_sheet).Range("E13").Value = Me.ComboBox13_4.ListIndex Worksheets(Setting_sheet).Range("E14").Value = Me.ComboBox14_4.ListIndex Worksheets(Setting_sheet).Range("E15").Value = Me.ComboBox15_4.ListIndex Worksheets(Setting_sheet).Range("E16").Value = Me.ComboBox16_4.ListIndex Worksheets(Setting_sheet).Range("E17").Value = Me.ComboBox17_4.ListIndex Worksheets(Setting_sheet).Range("E18").Value = Me.ComboBox18_4.ListIndex Worksheets(Setting_sheet).Range("E19").Value = Me.ComboBox19_4.ListIndex Worksheets(Setting_sheet).Range("E20").Value = Me.ComboBox20_4.ListIndex Worksheets(Setting_sheet).Range("E21").Value = Me.ComboBox21_4.ListIndex Worksheets(Setting_sheet).Range("E22").Value = Me.ComboBox22_4.ListIndex Worksheets(Setting_sheet).Range("E23").Value = Me.ComboBox23_4.ListIndex Worksheets(Setting_sheet).Range("E24").Value = Me.ComboBox24_4.ListIndex Worksheets(Setting_sheet).Range("E25").Value = Me.ComboBox25_4.ListIndex Worksheets(Setting_sheet).Range("E26").Value = Me.ComboBox26_4.ListIndex Worksheets(Setting_sheet).Range("E27").Value = Me.ComboBox27_4.ListIndex Worksheets(Setting_sheet).Range("E28").Value = Me.ComboBox28_4.ListIndex Worksheets(Setting_sheet).Range("E29").Value = Me.ComboBox29_4.ListIndex Worksheets(Setting_sheet).Range("E30").Value = Me.ComboBox30_4.ListIndex Worksheets(Setting_sheet).Range("E31").Value = Me.ComboBox31_4.ListIndex Worksheets(Setting_sheet).Range("G2").Value = Me.TextBox2.Value Worksheets(Setting_sheet).Range("G3").Value = Me.TextBox3.Value Worksheets(Setting_sheet).Range("G4").Value = Me.TextBox4.Value Worksheets(Setting_sheet).Range("G5").Value = Me.TextBox5.Value Worksheets(Setting_sheet).Range("G6").Value = Me.TextBox6.Value Worksheets(Setting_sheet).Range("G7").Value = Me.TextBox7.Value Worksheets(Setting_sheet).Range("G8").Value = Me.TextBox8.Value Worksheets(Setting_sheet).Range("G9").Value = Me.TextBox9.Value Worksheets(Setting_sheet).Range("G10").Value = Me.TextBox10.Value Worksheets(Setting_sheet).Range("G11").Value = Me.TextBox11.Value Worksheets(Setting_sheet).Range("G12").Value = Me.TextBox12.Value Worksheets(Setting_sheet).Range("G13").Value = Me.TextBox13.Value Worksheets(Setting_sheet).Range("G14").Value = Me.TextBox14.Value Worksheets(Setting_sheet).Range("G15").Value = Me.TextBox15.Value Worksheets(Setting_sheet).Range("G16").Value = Me.TextBox16.Value Worksheets(Setting_sheet).Range("G17").Value = Me.TextBox17.Value Worksheets(Setting_sheet).Range("G18").Value = Me.TextBox18.Value Worksheets(Setting_sheet).Range("G19").Value = Me.TextBox19.Value Worksheets(Setting_sheet).Range("G20").Value = Me.TextBox20.Value Worksheets(Setting_sheet).Range("G21").Value = Me.TextBox21.Value Worksheets(Setting_sheet).Range("G22").Value = Me.TextBox22.Value Worksheets(Setting_sheet).Range("G23").Value = Me.TextBox23.Value Worksheets(Setting_sheet).Range("G24").Value = Me.TextBox24.Value Worksheets(Setting_sheet).Range("G25").Value = Me.TextBox25.Value Worksheets(Setting_sheet).Range("G26").Value = Me.TextBox26.Value Worksheets(Setting_sheet).Range("G27").Value = Me.TextBox27.Value Worksheets(Setting_sheet).Range("G28").Value = Me.TextBox28.Value Worksheets(Setting_sheet).Range("G29").Value = Me.TextBox29.Value Worksheets(Setting_sheet).Range("G30").Value = Me.TextBox30.Value Worksheets(Setting_sheet).Range("G31").Value = Me.TextBox31.Value Worksheets(Setting_sheet).Range("H2").Value = Me.CheckBox2.Value Worksheets(Setting_sheet).Range("H3").Value = Me.CheckBox3.Value Worksheets(Setting_sheet).Range("H4").Value = Me.CheckBox4.Value Worksheets(Setting_sheet).Range("H5").Value = Me.CheckBox5.Value Worksheets(Setting_sheet).Range("H6").Value = Me.CheckBox6.Value Worksheets(Setting_sheet).Range("H7").Value = Me.CheckBox7.Value Worksheets(Setting_sheet).Range("H8").Value = Me.CheckBox8.Value Worksheets(Setting_sheet).Range("H9").Value = Me.CheckBox9.Value Worksheets(Setting_sheet).Range("H10").Value = Me.CheckBox10.Value Worksheets(Setting_sheet).Range("H11").Value = Me.CheckBox11.Value Worksheets(Setting_sheet).Range("H12").Value = Me.CheckBox12.Value Worksheets(Setting_sheet).Range("H13").Value = Me.CheckBox13.Value Worksheets(Setting_sheet).Range("H14").Value = Me.CheckBox14.Value Worksheets(Setting_sheet).Range("H15").Value = Me.CheckBox15.Value Worksheets(Setting_sheet).Range("H16").Value = Me.CheckBox16.Value Worksheets(Setting_sheet).Range("H17").Value = Me.CheckBox17.Value Worksheets(Setting_sheet).Range("H18").Value = Me.CheckBox18.Value Worksheets(Setting_sheet).Range("H19").Value = Me.CheckBox19.Value Worksheets(Setting_sheet).Range("H20").Value = Me.CheckBox20.Value Worksheets(Setting_sheet).Range("H21").Value = Me.CheckBox21.Value Worksheets(Setting_sheet).Range("H22").Value = Me.CheckBox22.Value Worksheets(Setting_sheet).Range("H23").Value = Me.CheckBox23.Value Worksheets(Setting_sheet).Range("H24").Value = Me.CheckBox24.Value Worksheets(Setting_sheet).Range("H25").Value = Me.CheckBox25.Value Worksheets(Setting_sheet).Range("H26").Value = Me.CheckBox26.Value Worksheets(Setting_sheet).Range("H27").Value = Me.CheckBox27.Value Worksheets(Setting_sheet).Range("H28").Value = Me.CheckBox28.Value Worksheets(Setting_sheet).Range("H29").Value = Me.CheckBox29.Value Worksheets(Setting_sheet).Range("H30").Value = Me.CheckBox30.Value Worksheets(Setting_sheet).Range("H31").Value = Me.CheckBox31.Value With Sheets("settings") .Visible = xlVeryHidden End With Unload Settings_Userform Call Change_All_Fonts Sheets(sheet_name).Select End Sub _____________________________________________________________________________________________ Private Sub CommandButton2_Cancel_Click() With Sheets("settings") .Visible = xlVeryHidden End With Unload Settings_Userform End Sub _____________________________________________________________________________________________ Private Sub UserForm_Initialize() Setting_sheet = "settings" With Sheets(Setting_sheet) .Visible = True End With With Settings_Userform ' Naam kolom .Label2 = Worksheets(Setting_sheet).Range("A2").Value .Label3 = Worksheets(Setting_sheet).Range("A3").Value .Label4 = Worksheets(Setting_sheet).Range("A4").Value .Label5 = Worksheets(Setting_sheet).Range("A5").Value .Label6 = Worksheets(Setting_sheet).Range("A6").Value .Label7 = Worksheets(Setting_sheet).Range("A7").Value .Label8 = Worksheets(Setting_sheet).Range("A8").Value .Label9 = Worksheets(Setting_sheet).Range("A9").Value .Label10 = Worksheets(Setting_sheet).Range("A10").Value .Label11 = Worksheets(Setting_sheet).Range("A11").Value .Label12 = Worksheets(Setting_sheet).Range("A12").Value .Label13 = Worksheets(Setting_sheet).Range("A13").Value .Label14 = Worksheets(Setting_sheet).Range("A14").Value .Label15 = Worksheets(Setting_sheet).Range("A15").Value .Label16 = Worksheets(Setting_sheet).Range("A16").Value .Label17 = Worksheets(Setting_sheet).Range("A17").Value .Label18 = Worksheets(Setting_sheet).Range("A18").Value .Label19 = Worksheets(Setting_sheet).Range("A19").Value .Label20 = Worksheets(Setting_sheet).Range("A20").Value .Label21 = Worksheets(Setting_sheet).Range("A21").Value .Label22 = Worksheets(Setting_sheet).Range("A22").Value .Label23 = Worksheets(Setting_sheet).Range("A23").Value .Label24 = Worksheets(Setting_sheet).Range("A24").Value .Label25 = Worksheets(Setting_sheet).Range("A25").Value .Label26 = Worksheets(Setting_sheet).Range("A26").Value .Label27 = Worksheets(Setting_sheet).Range("A27").Value .Label28 = Worksheets(Setting_sheet).Range("A28").Value .Label29 = Worksheets(Setting_sheet).Range("A29").Value .Label30 = Worksheets(Setting_sheet).Range("A30").Value .Label31 = Worksheets(Setting_sheet).Range("A31").Value ' Eerste kolom .ComboBox2_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox3_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox4_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox5_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox6_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox7_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox8_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox9_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox10_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox11_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox12_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox13_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox14_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox15_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox16_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox17_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox18_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox19_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox20_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox21_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox22_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox23_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox24_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox25_1.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox2_1.ListIndex = Worksheets(Setting_sheet).Range("B2").Value .ComboBox3_1.ListIndex = Worksheets(Setting_sheet).Range("B3").Value .ComboBox4_1.ListIndex = Worksheets(Setting_sheet).Range("B4").Value .ComboBox5_1.ListIndex = Worksheets(Setting_sheet).Range("B5").Value .ComboBox6_1.ListIndex = Worksheets(Setting_sheet).Range("B6").Value .ComboBox7_1.ListIndex = Worksheets(Setting_sheet).Range("B7").Value .ComboBox8_1.ListIndex = Worksheets(Setting_sheet).Range("B8").Value .ComboBox9_1.ListIndex = Worksheets(Setting_sheet).Range("B9").Value .ComboBox10_1.ListIndex = Worksheets(Setting_sheet).Range("B10").Value .ComboBox11_1.ListIndex = Worksheets(Setting_sheet).Range("B11").Value .ComboBox12_1.ListIndex = Worksheets(Setting_sheet).Range("B12").Value .ComboBox13_1.ListIndex = Worksheets(Setting_sheet).Range("B13").Value .ComboBox14_1.ListIndex = Worksheets(Setting_sheet).Range("B14").Value .ComboBox15_1.ListIndex = Worksheets(Setting_sheet).Range("B15").Value .ComboBox16_1.ListIndex = Worksheets(Setting_sheet).Range("B16").Value .ComboBox17_1.ListIndex = Worksheets(Setting_sheet).Range("B17").Value .ComboBox18_1.ListIndex = Worksheets(Setting_sheet).Range("B18").Value .ComboBox19_1.ListIndex = Worksheets(Setting_sheet).Range("B19").Value .ComboBox20_1.ListIndex = Worksheets(Setting_sheet).Range("B20").Value .ComboBox21_1.ListIndex = Worksheets(Setting_sheet).Range("B21").Value .ComboBox22_1.ListIndex = Worksheets(Setting_sheet).Range("B22").Value .ComboBox23_1.ListIndex = Worksheets(Setting_sheet).Range("B23").Value .ComboBox24_1.ListIndex = Worksheets(Setting_sheet).Range("B24").Value .ComboBox25_1.ListIndex = Worksheets(Setting_sheet).Range("B25").Value ' Tweede kolom .ComboBox2_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox3_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox4_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox5_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox6_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox7_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox8_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox9_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox10_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox11_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox12_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox13_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox14_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox15_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox16_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox17_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox18_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox19_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox20_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox21_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox22_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox23_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox24_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox25_2.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox2_2.ListIndex = Worksheets(Setting_sheet).Range("C2").Value .ComboBox3_2.ListIndex = Worksheets(Setting_sheet).Range("C3").Value .ComboBox4_2.ListIndex = Worksheets(Setting_sheet).Range("C4").Value .ComboBox5_2.ListIndex = Worksheets(Setting_sheet).Range("C5").Value .ComboBox6_2.ListIndex = Worksheets(Setting_sheet).Range("C6").Value .ComboBox7_2.ListIndex = Worksheets(Setting_sheet).Range("C7").Value .ComboBox8_2.ListIndex = Worksheets(Setting_sheet).Range("C8").Value .ComboBox9_2.ListIndex = Worksheets(Setting_sheet).Range("C9").Value .ComboBox10_2.ListIndex = Worksheets(Setting_sheet).Range("C10").Value .ComboBox11_2.ListIndex = Worksheets(Setting_sheet).Range("C11").Value .ComboBox12_2.ListIndex = Worksheets(Setting_sheet).Range("C12").Value .ComboBox13_2.ListIndex = Worksheets(Setting_sheet).Range("C13").Value .ComboBox14_2.ListIndex = Worksheets(Setting_sheet).Range("C14").Value .ComboBox15_2.ListIndex = Worksheets(Setting_sheet).Range("C15").Value .ComboBox16_2.ListIndex = Worksheets(Setting_sheet).Range("C16").Value .ComboBox17_2.ListIndex = Worksheets(Setting_sheet).Range("C17").Value .ComboBox18_2.ListIndex = Worksheets(Setting_sheet).Range("C18").Value .ComboBox19_2.ListIndex = Worksheets(Setting_sheet).Range("C19").Value .ComboBox20_2.ListIndex = Worksheets(Setting_sheet).Range("C20").Value .ComboBox21_2.ListIndex = Worksheets(Setting_sheet).Range("C21").Value .ComboBox22_2.ListIndex = Worksheets(Setting_sheet).Range("C22").Value .ComboBox23_2.ListIndex = Worksheets(Setting_sheet).Range("C23").Value .ComboBox24_2.ListIndex = Worksheets(Setting_sheet).Range("C24").Value .ComboBox25_2.ListIndex = Worksheets(Setting_sheet).Range("C25").Value ' Derde kolom .ComboBox2_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox3_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox4_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox5_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox6_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox7_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox8_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox9_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox10_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox11_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox12_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox13_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox14_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox15_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox16_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox17_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox18_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox19_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox20_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox21_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox22_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox23_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox24_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox25_3.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox2_3.ListIndex = Worksheets(Setting_sheet).Range("D2").Value .ComboBox3_3.ListIndex = Worksheets(Setting_sheet).Range("D3").Value .ComboBox4_3.ListIndex = Worksheets(Setting_sheet).Range("D4").Value .ComboBox5_3.ListIndex = Worksheets(Setting_sheet).Range("D5").Value .ComboBox6_3.ListIndex = Worksheets(Setting_sheet).Range("D6").Value .ComboBox7_3.ListIndex = Worksheets(Setting_sheet).Range("D7").Value .ComboBox8_3.ListIndex = Worksheets(Setting_sheet).Range("D8").Value .ComboBox9_3.ListIndex = Worksheets(Setting_sheet).Range("D9").Value .ComboBox10_3.ListIndex = Worksheets(Setting_sheet).Range("D10").Value .ComboBox11_3.ListIndex = Worksheets(Setting_sheet).Range("D11").Value .ComboBox12_3.ListIndex = Worksheets(Setting_sheet).Range("D12").Value .ComboBox13_3.ListIndex = Worksheets(Setting_sheet).Range("D13").Value .ComboBox14_3.ListIndex = Worksheets(Setting_sheet).Range("D14").Value .ComboBox15_3.ListIndex = Worksheets(Setting_sheet).Range("D15").Value .ComboBox16_3.ListIndex = Worksheets(Setting_sheet).Range("D16").Value .ComboBox17_3.ListIndex = Worksheets(Setting_sheet).Range("D17").Value .ComboBox18_3.ListIndex = Worksheets(Setting_sheet).Range("D18").Value .ComboBox19_3.ListIndex = Worksheets(Setting_sheet).Range("D19").Value .ComboBox20_3.ListIndex = Worksheets(Setting_sheet).Range("D20").Value .ComboBox21_3.ListIndex = Worksheets(Setting_sheet).Range("D21").Value .ComboBox22_3.ListIndex = Worksheets(Setting_sheet).Range("D22").Value .ComboBox23_3.ListIndex = Worksheets(Setting_sheet).Range("D23").Value .ComboBox24_3.ListIndex = Worksheets(Setting_sheet).Range("D24").Value .ComboBox25_3.ListIndex = Worksheets(Setting_sheet).Range("D25").Value ' Vierde kolom .ComboBox2_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox3_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox4_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox5_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox6_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox7_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox8_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox9_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox10_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox11_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox12_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox13_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox14_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox15_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox16_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox17_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox18_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox19_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox20_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox21_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox22_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox23_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox24_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox25_4.List = Worksheets(Setting_sheet).Range("Combobox").Value .ComboBox2_4.ListIndex = Worksheets(Setting_sheet).Range("E2").Value .ComboBox3_4.ListIndex = Worksheets(Setting_sheet).Range("E3").Value .ComboBox4_4.ListIndex = Worksheets(Setting_sheet).Range("E4").Value .ComboBox5_4.ListIndex = Worksheets(Setting_sheet).Range("E5").Value .ComboBox6_4.ListIndex = Worksheets(Setting_sheet).Range("E6").Value .ComboBox7_4.ListIndex = Worksheets(Setting_sheet).Range("E7").Value .ComboBox8_4.ListIndex = Worksheets(Setting_sheet).Range("E8").Value .ComboBox9_4.ListIndex = Worksheets(Setting_sheet).Range("E9").Value .ComboBox10_4.ListIndex = Worksheets(Setting_sheet).Range("E10").Value .ComboBox11_4.ListIndex = Worksheets(Setting_sheet).Range("E11").Value .ComboBox12_4.ListIndex = Worksheets(Setting_sheet).Range("E12").Value .ComboBox13_4.ListIndex = Worksheets(Setting_sheet).Range("E13").Value .ComboBox14_4.ListIndex = Worksheets(Setting_sheet).Range("E14").Value .ComboBox15_4.ListIndex = Worksheets(Setting_sheet).Range("E15").Value .ComboBox16_4.ListIndex = Worksheets(Setting_sheet).Range("E16").Value .ComboBox17_4.ListIndex = Worksheets(Setting_sheet).Range("E17").Value .ComboBox18_4.ListIndex = Worksheets(Setting_sheet).Range("E18").Value .ComboBox19_4.ListIndex = Worksheets(Setting_sheet).Range("E19").Value .ComboBox20_4.ListIndex = Worksheets(Setting_sheet).Range("E20").Value .ComboBox21_4.ListIndex = Worksheets(Setting_sheet).Range("E21").Value .ComboBox22_4.ListIndex = Worksheets(Setting_sheet).Range("E22").Value .ComboBox23_4.ListIndex = Worksheets(Setting_sheet).Range("E23").Value .ComboBox24_4.ListIndex = Worksheets(Setting_sheet).Range("E24").Value .ComboBox25_4.ListIndex = Worksheets(Setting_sheet).Range("E25").Value .TextBox2.Value = Worksheets(Setting_sheet).Range("G2").Value .TextBox3.Value = Worksheets(Setting_sheet).Range("G3").Value .TextBox4.Value = Worksheets(Setting_sheet).Range("G4").Value .TextBox5.Value = Worksheets(Setting_sheet).Range("G5").Value .TextBox6.Value = Worksheets(Setting_sheet).Range("G6").Value .TextBox7.Value = Worksheets(Setting_sheet).Range("G7").Value .TextBox8.Value = Worksheets(Setting_sheet).Range("G8").Value .TextBox9.Value = Worksheets(Setting_sheet).Range("G9").Value .TextBox10.Value = Worksheets(Setting_sheet).Range("G10").Value .TextBox11.Value = Worksheets(Setting_sheet).Range("G11").Value .TextBox12.Value = Worksheets(Setting_sheet).Range("G12").Value .TextBox13.Value = Worksheets(Setting_sheet).Range("G13").Value .TextBox14.Value = Worksheets(Setting_sheet).Range("G14").Value .TextBox15.Value = Worksheets(Setting_sheet).Range("G15").Value .TextBox16.Value = Worksheets(Setting_sheet).Range("G16").Value .TextBox17.Value = Worksheets(Setting_sheet).Range("G17").Value .TextBox18.Value = Worksheets(Setting_sheet).Range("G18").Value .TextBox19.Value = Worksheets(Setting_sheet).Range("G19").Value .TextBox20.Value = Worksheets(Setting_sheet).Range("G20").Value .TextBox21.Value = Worksheets(Setting_sheet).Range("G21").Value .TextBox22.Value = Worksheets(Setting_sheet).Range("G22").Value .TextBox23.Value = Worksheets(Setting_sheet).Range("G23").Value .TextBox24.Value = Worksheets(Setting_sheet).Range("G24").Value .TextBox25.Value = Worksheets(Setting_sheet).Range("G25").Value .CheckBox2.Value = Worksheets(Setting_sheet).Range("H2").Value .CheckBox3.Value = Worksheets(Setting_sheet).Range("H3").Value .CheckBox4.Value = Worksheets(Setting_sheet).Range("H4").Value .CheckBox5.Value = Worksheets(Setting_sheet).Range("H5").Value .CheckBox6.Value = Worksheets(Setting_sheet).Range("H6").Value .CheckBox7.Value = Worksheets(Setting_sheet).Range("H7").Value .CheckBox8.Value = Worksheets(Setting_sheet).Range("H8").Value .CheckBox9.Value = Worksheets(Setting_sheet).Range("H9").Value .CheckBox19.Value = Worksheets(Setting_sheet).Range("H10").Value .CheckBox11.Value = Worksheets(Setting_sheet).Range("H11").Value .CheckBox12.Value = Worksheets(Setting_sheet).Range("H12").Value .CheckBox13.Value = Worksheets(Setting_sheet).Range("H13").Value .CheckBox14.Value = Worksheets(Setting_sheet).Range("H14").Value .CheckBox15.Value = Worksheets(Setting_sheet).Range("H15").Value .CheckBox16.Value = Worksheets(Setting_sheet).Range("H16").Value .CheckBox17.Value = Worksheets(Setting_sheet).Range("H17").Value .CheckBox18.Value = Worksheets(Setting_sheet).Range("H18").Value .CheckBox19.Value = Worksheets(Setting_sheet).Range("H19").Value .CheckBox20.Value = Worksheets(Setting_sheet).Range("H20").Value .CheckBox21.Value = Worksheets(Setting_sheet).Range("H21").Value .CheckBox22.Value = Worksheets(Setting_sheet).Range("H22").Value .CheckBox23.Value = Worksheets(Setting_sheet).Range("H23").Value .CheckBox24.Value = Worksheets(Setting_sheet).Range("H24").Value .CheckBox25.Value = Worksheets(Setting_sheet).Range("H25").Value End With 'For future use If Settings_Userform.Label26 = Empty Then Settings_Userform.ComboBox26_1.Visible = False Settings_Userform.ComboBox26_2.Visible = False Settings_Userform.ComboBox26_3.Visible = False Settings_Userform.ComboBox26_4.Visible = False Settings_Userform.TextBox26.Visible = False Settings_Userform.CheckBox26.Visible = False Else Settings_Userform.ComboBox26_1.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox26_1.ListIndex = Worksheets(Setting_sheet).Range("B26").Value Settings_Userform.ComboBox26_2.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox26_2.ListIndex = Worksheets(Setting_sheet).Range("C26").Value Settings_Userform.ComboBox26_3.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox26_3.ListIndex = Worksheets(Setting_sheet).Range("D26").Value Settings_Userform.ComboBox26_4.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox26_4.ListIndex = Worksheets(Setting_sheet).Range("E26").Value Settings_Userform.TextBox26.Value = Worksheets(Setting_sheet).Range("G26").Value Settings_Userform.CheckBox26.Value = Worksheets(Setting_sheet).Range("H26").Value End If If Settings_Userform.Label27 = Empty Then Settings_Userform.ComboBox27_1.Visible = False Settings_Userform.ComboBox27_2.Visible = False Settings_Userform.ComboBox27_3.Visible = False Settings_Userform.ComboBox27_4.Visible = False Settings_Userform.TextBox27.Visible = False Settings_Userform.CheckBox27.Visible = False Else Settings_Userform.ComboBox27_1.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox27_1.ListIndex = Worksheets(Setting_sheet).Range("B27").Value Settings_Userform.ComboBox27_2.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox27_2.ListIndex = Worksheets(Setting_sheet).Range("C27").Value Settings_Userform.ComboBox27_3.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox27_3.ListIndex = Worksheets(Setting_sheet).Range("D27").Value Settings_Userform.ComboBox27_4.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox27_4.ListIndex = Worksheets(Setting_sheet).Range("E27").Value Settings_Userform.TextBox27.Value = Worksheets(Setting_sheet).Range("G27").Value Settings_Userform.CheckBox27.Value = Worksheets(Setting_sheet).Range("H27").Value End If If Settings_Userform.Label28 = Empty Then Settings_Userform.ComboBox28_1.Visible = False Settings_Userform.ComboBox28_2.Visible = False Settings_Userform.ComboBox28_3.Visible = False Settings_Userform.ComboBox28_4.Visible = False Settings_Userform.TextBox28.Visible = False Settings_Userform.CheckBox28.Visible = False Else Settings_Userform.ComboBox28_1.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_1.ListIndex = Worksheets(Setting_sheet).Range("B28").Value Settings_Userform.ComboBox28_2.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_2.ListIndex = Worksheets(Setting_sheet).Range("C28").Value Settings_Userform.ComboBox28_3.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_3.ListIndex = Worksheets(Setting_sheet).Range("D28").Value Settings_Userform.ComboBox28_4.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_4.ListIndex = Worksheets(Setting_sheet).Range("E28").Value Settings_Userform.TextBox28.Value = Worksheets(Setting_sheet).Range("G28").Value Settings_Userform.CheckBox28.Value = Worksheets(Setting_sheet).Range("H28").Value End If If Settings_Userform.Label29 = Empty Then Settings_Userform.ComboBox29_1.Visible = False Settings_Userform.ComboBox29_2.Visible = False Settings_Userform.ComboBox29_3.Visible = False Settings_Userform.ComboBox29_4.Visible = False Settings_Userform.TextBox29.Visible = False Settings_Userform.CheckBox29.Visible = False Else Settings_Userform.ComboBox29_1.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_1.ListIndex = Worksheets(Setting_sheet).Range("B28").Value Settings_Userform.ComboBox29_2.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_2.ListIndex = Worksheets(Setting_sheet).Range("C28").Value Settings_Userform.ComboBox29_3.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_3.ListIndex = Worksheets(Setting_sheet).Range("D28").Value Settings_Userform.ComboBox29_4.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox28_4.ListIndex = Worksheets(Setting_sheet).Range("E28").Value Settings_Userform.TextBox29.Value = Worksheets(Setting_sheet).Range("G29").Value Settings_Userform.CheckBox29.Value = Worksheets(Setting_sheet).Range("H29").Value End If If Settings_Userform.Label30 = Empty Then Settings_Userform.ComboBox30_1.Visible = False Settings_Userform.ComboBox30_2.Visible = False Settings_Userform.ComboBox30_3.Visible = False Settings_Userform.ComboBox30_4.Visible = False Settings_Userform.TextBox30.Visible = False Settings_Userform.CheckBox30.Visible = False Else Settings_Userform.ComboBox30_1.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox30_1.ListIndex = Worksheets(Setting_sheet).Range("B30").Value Settings_Userform.ComboBox30_2.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox30_2.ListIndex = Worksheets(Setting_sheet).Range("B30").Value Settings_Userform.ComboBox30_3.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox30_3.ListIndex = Worksheets(Setting_sheet).Range("B30").Value Settings_Userform.ComboBox30_4.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox30_4.ListIndex = Worksheets(Setting_sheet).Range("B30").Value Settings_Userform.TextBox30.Value = Worksheets(Setting_sheet).Range("G30").Value Settings_Userform.CheckBox30.Value = Worksheets(Setting_sheet).Range("H30").Value End If If Settings_Userform.Label31 = Empty Then Settings_Userform.ComboBox31_1.Visible = False Settings_Userform.ComboBox31_2.Visible = False Settings_Userform.ComboBox31_3.Visible = False Settings_Userform.ComboBox31_4.Visible = False Settings_Userform.TextBox31.Visible = False Settings_Userform.CheckBox31.Visible = False Else Settings_Userform.ComboBox31_1.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox31_1.ListIndex = Worksheets(Setting_sheet).Range("B31").Value Settings_Userform.ComboBox31_2.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox31_2.ListIndex = Worksheets(Setting_sheet).Range("C31").Value Settings_Userform.ComboBox31_3.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox31_3.ListIndex = Worksheets(Setting_sheet).Range("D31").Value Settings_Userform.ComboBox31_4.List = Worksheets(Setting_sheet).Range("Combobox").Value Settings_Userform.ComboBox31_4.ListIndex = Worksheets(Setting_sheet).Range("E31").Value Settings_Userform.TextBox31.Value = Worksheets(Setting_sheet).Range("G31").Value Settings_Userform.CheckBox31.Value = Worksheets(Setting_sheet).Range("H31").Value End If End Sub

Welcome to the forum. Please remember to use code tags.

You can loop through the names of user form controls with code like

Code:

Dim i as Long, j As Long For i = 2 to 31 For j = 1 to 4 Worksheets(Setting_sheet).Range("B2").Cells(i, j)Value = Me.Controls("ComboBox" & i & "_" & j).ListIndex Next j Next i For i = 2 to 30 Worksheets(Setting_sheet).Range("G2").Cells(i, 1).Value = Me.Controls("TextBox" & i).Value Next i

Thanks I will try it on Monday

ComboBoxes don't have a ListIndex. They do have a TopIndex, but it is just a number. I assume you want the Selected Item to be stored in the Cell

Code:

With Worksheets("Setting_sheet") With .Range("B:B") For r = 2 to 31 .Cells(r) = Me.Controls("ComboBox" & r & "_1").Vlaue Next r End With 'B:B With .Range("C:C") For r = 2 to 31 .Cells(r) = Me.Controls("ComboBox" & r & "_2").Value Next r End With 'C:C With .Range("D:D") For r = 2 to 31 .Cells(r) = Me.Controls("ComboBox" & r & "_3").Value Next r End With 'D:D With .Range("E:E") For r = 2 to 31 .Cells(r) = Me.Controls("ComboBox" & r & "_4").Value Next r End With 'E:E With .Range("G:G") For r = 2 to 31 .Cells(r) = Me.Controls("TextBox" & r).Value Next r End With 'G:G With .Range("H:H") For r = 2 to 31 .Cells(r) = Me.Controls("CheckBox" & r).Value Next r End With 'H:H End With' Sheet

Shorter version

Code:

With Worksheets("Setting_sheet") For r = 2 to 31 .Cells(r, "B") = Me.Controls("ComboBox" & r & "_1").Value .Cells(r, "C") = Me.Controls("ComboBox" & r & "_2").Value .Cells(r, "D" = Me.Controls("ComboBox" & r & "_3").Value .Cells(r, "E") = Me.Controls("ComboBox" & r & "_4").Value ' "F" ??? .Cells(r, "G") = Me.Controls("TextBox" & r).Value .Cells(r, "H") = Me.Controls("CheckBox" & r).Value Next r End With

Quote:

Originally Posted by SamT

ComboBoxes don't have a ListIndex. They do have a TopIndex, but it is just a number...]

Comboboxes do have a .ListIndex property.
Typically, ComboBox1.Value = ComboBox1.List(ComboBox1.ListIndex)

It is also just a number.

You're right. My bad. That's what I get for only looking at the Properties Windows.

Oh man, I do miss my Desktop. DuckDuckGo is OK, but it is a pain.