Columnas en un listbox
Buenas tardes expertos
Por favor:
Tengo dos columnas de datos en una Hoja Excel 2007, la primera columna con datos tipo texto con diferente anchura y la columna B con datos numéricos, por ejemplo:
Columna A columna B
asjhjs 25
dskgjkgjrgergkergk 12
rfgregege 8
ab 37
gkrgjrekgjekrgjerkgjkregjkrdgjdrkgjkrgjkrgjkrejgkerg 125
Etc...
Al pasar estos datos a un listbox de un formulario se ve así:
asjhjs 25
dskgjkgjrgergkergk 12
rfgregege 8
ab 37
gkrgjrekgjekrgjerkgjkregjkrdgjdrkgjkrgjkrgjkrejgkerg 125
Pregunta: que instrucción VBA me permite visualizar las columnas en forma ordenada dentro del Listbox como en el Excel.
Muchas gracias por su ayuda.
Jorge
Por favor:
Tengo dos columnas de datos en una Hoja Excel 2007, la primera columna con datos tipo texto con diferente anchura y la columna B con datos numéricos, por ejemplo:
Columna A columna B
asjhjs 25
dskgjkgjrgergkergk 12
rfgregege 8
ab 37
gkrgjrekgjekrgjerkgjkregjkrdgjdrkgjkrgjkrgjkrejgkerg 125
Etc...
Al pasar estos datos a un listbox de un formulario se ve así:
asjhjs 25
dskgjkgjrgergkergk 12
rfgregege 8
ab 37
gkrgjrekgjekrgjerkgjkregjkrdgjdrkgjkrgjkrgjkrejgkerg 125
Pregunta: que instrucción VBA me permite visualizar las columnas en forma ordenada dentro del Listbox como en el Excel.
Muchas gracias por su ayuda.
Jorge
1 Respuesta
Respuesta de yoors
1
Vamos a ver si t entendí.
Quieres que al momento de ejecuitar ellistbox Ste se vea como si estuviese separado en excel.
Haber prueba con esto:
Esto se ejecutz al llamar al useform que muestra el listbox:
Aunque adapaptarlo a tu gusto.
Private Sub UserForm_Initialize()
Sheets("HOJA1").Select 'Selección en la hoja activa
Me.ListBox1.ColumnHeads = True
pepe = Range("a5640").End(xlUp).Row 'Dá rango de lineas para relleno del ListBox
Me.ListBox1.RowSource = "a2:b" & pepe 'Dá rango de columnas para relleno del ListBox
Me.ListBox1.ColumnWidths = "70;40" 'ancho de columnas del ListBox
Me.ListBox1.ColumnCount = 2 'Cantidad columnas del ListBox
End Sub
Quieres que al momento de ejecuitar ellistbox Ste se vea como si estuviese separado en excel.
Haber prueba con esto:
Esto se ejecutz al llamar al useform que muestra el listbox:
Aunque adapaptarlo a tu gusto.
Private Sub UserForm_Initialize()
Sheets("HOJA1").Select 'Selección en la hoja activa
Me.ListBox1.ColumnHeads = True
pepe = Range("a5640").End(xlUp).Row 'Dá rango de lineas para relleno del ListBox
Me.ListBox1.RowSource = "a2:b" & pepe 'Dá rango de columnas para relleno del ListBox
Me.ListBox1.ColumnWidths = "70;40" 'ancho de columnas del ListBox
Me.ListBox1.ColumnCount = 2 'Cantidad columnas del ListBox
End Sub
