ComboBox 3

Bueno ya he conseguido que el combobox haga lo que deseo en excel, aunque el código sigue siendo muy largo.
Ahora deseo 2 cosas:
1. Que a la hora de elegir no se pueda escribir y sólo coja los datos que metí con el additem.
2. Que aparezca por defecto el primer dato, es decir nunca nada en blanco
El código es este por si alguno sabe como hacerlo más simple:
Private Sub ComboBox1_Change()
ComboBox1.AddItem "Viviendas Unifamiliares"
ComboBox1.AddItem "Viviendas Multifamiliares"
ComboBox1.AddItem "Hospitales y Clinicas"
ComboBox1.AddItem "Hoteles (4 estrellas)"
ComboBox1.AddItem "Hoteles (3 estrellas)"
ComboBox1.AddItem "Hoteles/Hostales (2 estrellas)"
ComboBox1.AddItem "Campings"
ComboBox1.AddItem "Hostales/Pensiones (1 estrella)"
ComboBox1.AddItem "Residencias (ancianos,...)"
ComboBox1.AddItem "Vestuarios/Duchas colectivas"
ComboBox1.AddItem "Escuelas"
ComboBox1.AddItem "Cuarteles"
ComboBox1.AddItem "Fábricas y Talleres"
ComboBox1.AddItem "Oficinas"
ComboBox1.AddItem "Gimnasios"
ComboBox1.AddItem "Lavanderías"
ComboBox1.AddItem "Restaurantes"
ComboBox1.AddItem "Cafeterías"
If ComboBox1.Value = "Viviendas Unifamiliares" Then
Worksheets("Tablas").Range("E5").Value = 1
End If
If ComboBox1.Value = "Viviendas Multifamiliares" Then
Worksheets("Tablas").Range("E5").Value = 2
End If
If ComboBox1.Value = "Hospitales y Clinicas" Then
Worksheets("Tablas").Range("E5").Value = 3
End If
If ComboBox1.Value = "Hoteles (4 estrellas)" Then
Worksheets("Tablas").Range("E5").Value = 4
End If
If ComboBox1.Value = "Hoteles (3 estrellas)" Then
Worksheets("Tablas").Range("E5").Value = 5
End If
If ComboBox1.Value = "Hoteles/Hostales (2 estrellas)" Then
Worksheets("Tablas").Range("E5").Value = 6
End If
If ComboBox1.Value = "Campings" Then
Worksheets("Tablas").Range("E5").Value = 7
End If
If ComboBox1.Value = "Hostales/Pensiones (1 estrella)" Then
Worksheets("Tablas").Range("E5").Value = 8
End If
If ComboBox1.Value = "Residencias (ancianos,...)" Then
Worksheets("Tablas").Range("E5").Value = 9
End If
If ComboBox1.Value = "Vestuarios/Duchas colectivas" Then
Worksheets("Tablas").Range("E5").Value = 10
End If
If ComboBox1.Value = "Escuelas" Then
Worksheets("Tablas").Range("E5").Value = 11
End If
If ComboBox1.Value = "Cuarteles" Then
Worksheets("Tablas").Range("E5").Value = 12
End If
If ComboBox1.Value = "Fábricas y Talleres" Then
Worksheets("Tablas").Range("E5").Value = 13
End If
If ComboBox1.Value = "Oficinas" Then
Worksheets("Tablas").Range("E5").Value = 14
End If
If ComboBox1.Value = "Gimnasios" Then
Worksheets("Tablas").Range("E5").Value = 15
End If
If ComboBox1.Value = "Lavanderías" Then
Worksheets("Tablas").Range("E5").Value = 16
End If
If ComboBox1.Value = "Restaurantes" Then
Worksheets("Tablas").Range("E5").Value = 17
End If
If ComboBox1.Value = "Cafeterías" Then
Worksheets("Tablas").Range("E5").Value = 18
End If
End Sub

1 Respuesta

Respuesta
1
Otra vez, fíjate como hice en el programa que te envíe en el Userform6.-
Ahí esta lo que necesitas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas