Combo Box
Buenas Tardes:
Ya tengo mi código para ingresar datos a mi combo box, y este a su vez guarda el dato en una variable la cual mediante un ActiveCell la variable es copiada.
Mi problema es que cada que abro el combobox me carga nuevamente los datos.
El código es el siguiente:
Sub Combobox1_Change()
Combobox1.AddItem "Juan"
Combobox1.AddItem "Jose"
OT = Combobox1.Text
ActiveCell = OT
End Sub
Ya tengo mi código para ingresar datos a mi combo box, y este a su vez guarda el dato en una variable la cual mediante un ActiveCell la variable es copiada.
Mi problema es que cada que abro el combobox me carga nuevamente los datos.
El código es el siguiente:
Sub Combobox1_Change()
Combobox1.AddItem "Juan"
Combobox1.AddItem "Jose"
OT = Combobox1.Text
ActiveCell = OT
End Sub
1 Respuesta
Respuesta de tavopz
1
Déjame ver si entendí... el código que adjuntaste hace lo siguiente:
1. Cada vez que hay un cambio en el ComboBox1, se insertan dos ítems "Juan" y "José".
2. Luego se coloca en la celda activa el valor que contiene el ComboBox.
Ahora lo que me dices es que cada vez que lo cargas se adiciona nuevamente Juan y José. Pues bien, lo que pienso es que el error es que no deberías insertar los ítems del ComboBox en el evento Change, sino en el evento Initialize del UserForm donde tienes puesto el ComboBox.
Algo así:
Private Sub UserForm_Initialize()
Combobox1. AddItem "Juan"
Combobox1. AddItem "Jose"
End Sub
Sub Combobox1_Change()
OT = Combobox1.Text
ActiveCell = OT
End Sub
1. Cada vez que hay un cambio en el ComboBox1, se insertan dos ítems "Juan" y "José".
2. Luego se coloca en la celda activa el valor que contiene el ComboBox.
Ahora lo que me dices es que cada vez que lo cargas se adiciona nuevamente Juan y José. Pues bien, lo que pienso es que el error es que no deberías insertar los ítems del ComboBox en el evento Change, sino en el evento Initialize del UserForm donde tienes puesto el ComboBox.
Algo así:
Private Sub UserForm_Initialize()
Combobox1. AddItem "Juan"
Combobox1. AddItem "Jose"
End Sub
Sub Combobox1_Change()
OT = Combobox1.Text
ActiveCell = OT
End Sub
