makro daha kısa nasıl yaparız

[yasef]

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
ComboBox2.ColumnCount = 1
ComboBox3.ColumnCount = 1
ComboBox4.ColumnCount = 1
ComboBox5.ColumnCount = 1
ComboBox6.ColumnCount = 1
ComboBox7.ColumnCount = 1
ComboBox8.ColumnCount = 1
ComboBox9.ColumnCount = 1
ComboBox10.ColumnCount = 1
ComboBox11.ColumnCount = 1
ComboBox1.RowSource = ("envanter!b2:b") & [b4000].End(3).Row
ComboBox2.RowSource = ("envanter!c2:c") & [c4000].End(3).Row
ComboBox3.RowSource = ("envanter!d2:d") & [d4000].End(3).Row
ComboBox4.RowSource = ("envanter!e2:e") & [e4000].End(3).Row
ComboBox5.RowSource = ("envanter!f2:f") & [f4000].End(3).Row
ComboBox6.RowSource = ("envanter!g2:g") & [g4000].End(3).Row
ComboBox7.RowSource = ("şirketler!a2:a") & [a4000].End(3).Row
ComboBox8.RowSource = ("şirketler!b2:b") & [b4000].End(3).Row
ComboBox9.RowSource = ("envanter!k2:k") & [k4000].End(3).Row
ComboBox10.RowSource = ("envanter!l2:l") & [l4000].End(3).Row
ComboBox11.RowSource = ("envanter!m2:m") & [m4000].End(3).Row
End Sub
Private Sub CommandButton1_Click()
Sheets("envanter").Select
say = WorksheetFunction.CountA(Range("b1:b3999")) + 1
Range("b" & say) = ComboBox1.Value
Range("c" & say) = ComboBox2.Value
Range("d" & say) = ComboBox3.Value
Range("e" & say) = ComboBox4.Value
Range("f" & say) = ComboBox5.Value
Range("g" & say) = ComboBox6.Value
Range("ı" & say) = ComboBox7.Value
Range("j" & say) = ComboBox8.Value
Range("k" & say) = ComboBox9.Value
Range("l" & say) = ComboBox10.Value
Range("m" & say) = ComboBox11.Value
End Sub
ve combobox aynı verileri 1 kere göstermesi için ne yapılabilir.Teşekkürler

 

[emrexcel123]

şöyle dene

Private Sub UserForm_Initialize()
for i = 1 to 11
controls("combobox1" & i).columncount = 1
next

 

[yasef]

teşekkürler yeni başladım ben 2.sınıfa giriyorum

 

[yasef]

teşekkürler ben yeniyim 2 sınıflardayım