Visual Basic para Aplicaciones - combobox multiples

private Sub CommandButton1_Click()

If ComboBox1.Value <> "" And ComboBox2.Value <> "" And ComboBox3.Value <> "" And ComboBox4.Value <> "" Then

Cells(1, 1) = ComboBox1.Value

Cells(1, 2) = ComboBox2.Value

Cells(1, 3) = ComboBox3.Value

Cells(1, 4) = ComboBox4.Value

End If

End Sub

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem (10)

.AddItem (11)

.AddItem (12)

.AddItem (13)

End With

With ComboBox2

.AddItem ("especie 1")

.AddItem ("especie 2")

.AddItem ("especie 3")

.AddItem ("especie 4")

End With

With ComboBox3

.AddItem ("Maculino")

.AddItem ("Femenino")

End With

With ComboBox4

.AddItem ("síntoma 1")

.AddItem ("síntoma 2")

.AddItem ("síntoma 3")

.AddItem ("síntoma 4")

End With

End Sub