Ayuda con ComboBox
Hola, solicito ayuda pues he quedado atorado en lo siguiente : Tengo esta rutina, que me funciona muy bien en un UserForm con un ComboBox, pero al seleccionar la información buscada,(que se compone de información en un listado de dos columnas), el ComboBox, solo jala la información de la primera col.(aunque al desplegarlo puedo ver la info. De ambas columnas),(la hoja de trabajo es la hoja2 y la info. Esta en la hoja1)
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim hoja As Variant
Set hoja = ActiveSheet
Sheets("hoja1").Select
ComboBox1.List = Range("A5", Range("B45005").End(xlUp)).Value
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = 50
hoja.Select
Application.ScreenUpdating = True
End Sub
La pregunta es como puedo hacer que jale la info. De ambas columnas y las muestre en el ComcoBox de dos columnas de antemano agradezco la atención y ayuda que puedan brindarme.
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim hoja As Variant
Set hoja = ActiveSheet
Sheets("hoja1").Select
ComboBox1.List = Range("A5", Range("B45005").End(xlUp)).Value
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = 50
hoja.Select
Application.ScreenUpdating = True
End Sub
La pregunta es como puedo hacer que jale la info. De ambas columnas y las muestre en el ComcoBox de dos columnas de antemano agradezco la atención y ayuda que puedan brindarme.
1 respuesta
Respuesta de Elsa Matilde
1
Con tu rutina se pueden observar los datos de las 2 col, pero al seleccionar algún elemento se queda el primero.
Para obtener cada valor de cada col, por ej en 2 textbox, utilizá estas instrucciones:
Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.Value 'ver nota
TextBox2 = ComboBox1.List(ComboBox1.ListIndex, 1) 'las col se cuentan desde 0
End Sub
Nota: Combobox1.Value te devuelve el valor de la primer col.... siempre y cuando la prop BoundColumn esté en 1. Si está en 2 te devolverá lo mismo que ComboBox1. List(ComboBox1. ListIndex, 1)
Si todo quedó claro no olvides finalizar la consulta.
PD) Te recomiendo especialmente mi manual de Formularios...
Para obtener cada valor de cada col, por ej en 2 textbox, utilizá estas instrucciones:
Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.Value 'ver nota
TextBox2 = ComboBox1.List(ComboBox1.ListIndex, 1) 'las col se cuentan desde 0
End Sub
Nota: Combobox1.Value te devuelve el valor de la primer col.... siempre y cuando la prop BoundColumn esté en 1. Si está en 2 te devolverá lo mismo que ComboBox1. List(ComboBox1. ListIndex, 1)
Si todo quedó claro no olvides finalizar la consulta.
PD) Te recomiendo especialmente mi manual de Formularios...
