Visual Basic para Aplicaciones - combobox multiples

Life is soft - evento anual de software empresarial
   
Vista:

combobox multiples

Publicado por Jorge (1 intervención) el 12/10/2015 21:10:14
Estimados Amigos:

Deseo consultar a quien pueda ayudarme. Cual el codigo VBA que puedo emplear para que en un UserForm tenga 4 combobox que no esten relacionados ni son independientes uno del otro, (Ejemplo: Combobox1: Edad. Combobox2: Especie Combobox3: Sexo. Combobox4: Sintomas), sin embargo, una vez que se seleccione una opcion de cada uno, con el commanbutton inserte estos datos en una tabla.

Mil Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Royeth

combobox multiples

Publicado por Royeth jesus.royeth@gmail.com (9 intervenciones) el 13/10/2015 04:57:37
sería algo así

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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


Espero te sea de ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar