Combobox en excel
Hola
Quisiera preguntar lo siguiente. He realizado un formulario en excel donde hay un combobox el cual quisiera que sus datos sean de una hoja de cálculo. Hice el siguiente código:
'Private Sub VPBComboBoxMarca_Click()
' Worksheets("VPBMARCAMODELO").Range("A2").Select
' Do While ActiveCell Empty
' ActiveCell.Offset(1, 0).Select
' VPBComboBoxMarca.AddItem (ActiveCell)
' Loop
'End Sub
(Claro sin la comilla)
Al ejecutar no sale ningún error, pero cuando hago clic en el combobox, no sale ningún dato. Espero me ayuden. Gracias.
Quisiera preguntar lo siguiente. He realizado un formulario en excel donde hay un combobox el cual quisiera que sus datos sean de una hoja de cálculo. Hice el siguiente código:
'Private Sub VPBComboBoxMarca_Click()
' Worksheets("VPBMARCAMODELO").Range("A2").Select
' Do While ActiveCell Empty
' ActiveCell.Offset(1, 0).Select
' VPBComboBoxMarca.AddItem (ActiveCell)
' Loop
'End Sub
(Claro sin la comilla)
Al ejecutar no sale ningún error, pero cuando hago clic en el combobox, no sale ningún dato. Espero me ayuden. Gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
Está cargando los datos de la hoja activa y no de la VPB... necesariamente.
Debieras cambiar el evento. Generalmente no cargamos el combo al momento de hacer clic en él sino que ya lo tenemos cargado, lo usual es en el evento Initialize del userform.
Además dudo que no salga error la línea del DO, lo correcto a mi entender es:
Do While IsEmpty(ActiveCell)
Probá con estos cambios y si el tema queda solucionado no olvides volver y presionar el botón Finalizar.
Debieras cambiar el evento. Generalmente no cargamos el combo al momento de hacer clic en él sino que ya lo tenemos cargado, lo usual es en el evento Initialize del userform.
Además dudo que no salga error la línea del DO, lo correcto a mi entender es:
Do While IsEmpty(ActiveCell)
Probá con estos cambios y si el tema queda solucionado no olvides volver y presionar el botón Finalizar.
