Private Sub ComboBox1_Change()
name = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
p = ComboBox2.Value
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Range("b5", "b1251").Value
ComboBox2.AddItem "10"
ComboBox2.AddItem "20"
ComboBox2.AddItem "90"
End Sub
Public name As String, p As Integer
Sub ssl()
UserForm1.Show
Range("C1").Value = name
Range("C2").Value = p
End Sub