Nobre de columnas en ListBox

"" escribió en el mensaje news:

Buen día,

Tengo un formulario con un Listbox que cambia de tamaño según la pantalla en
la que se utilice.
Estoy utilizando etiquetas como nombre de columnas pero en cuanto cambio de
computadora no concuerdan los datos con los nombres.
Por este motivo solicito ayuda para poder dar nombres a las columnas dentro
del ListBox.
De antemano, gracias.
Un saludo.
Jorge.

Si la propiedad RowSource del cuadro de lista es un rango de celdas, puedes establecer la propiedad ColumnHeads a True, y entonces el cuadro de lista utilizará la fila situada encima de la primera de RowSource como encabezados.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando,

Utilizo un rango como para entrar los datos al ListBox:
With Worksheets("INTERF").Range("bu1").CurrentRegion
ListBox1.ColumnCount = .Columns.Count
ListBox1.List = .Value
End With
En la celda bu1 no pego el nombre de la columna, pero lo puedo hacer.
Me podrás, por favor, pasar el código ?
De antemano, gracias.
Un saludo.
Jorge
con la propiedad list, se puede ??

"Fernando Arroyo" wrote:

"" escribió en el mensaje news:
> Buen día,
>
> Tengo un formulario con un Listbox que cambia de tamaño según la pantalla en
> la que se utilice.
> Estoy utilizando etiquetas como nombre de columnas pero en cuanto cambio de
> computadora no concuerdan los datos con los nombres.
> Por este motivo solicito ayuda para poder dar nombres a las columnas dentro
> del ListBox.
> De antemano, gracias.
> Un saludo.
> Jorge.


Si la propiedad RowSource del cuadro de lista es un rango de celdas, puedes establecer la propiedad ColumnHeads a True, y entonces el cuadro de lista utilizará la fila situada encima de la primera de RowSource como encabezados.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Si quieres que aparezcan los títulos que tú quieras asignar a cada columna, tendrás que ponerlos en BU1, BV1, etc. En caso contrario, al establecer la propiedad ColumnHeads del cuadro de lista se mostrarán como títulos los genéricos "Columna BU", "Columna BV", etc.

Con los títulos puestos en la fila 1, el código podría ser:

With Worksheets("INTERF").Range("bu1").CurrentRegion
ListBox1.ColumnCount = .Columns.Count
ListBox1.RowSource = .Offset(1, 0).Resize(.Rows.Count - 1).Address
ListBox1.ColumnHeads = True
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel


"" escribió en el mensaje news:

Fernando,

Utilizo un rango como para entrar los datos al ListBox:
With Worksheets("INTERF").Range("bu1").CurrentRegion
ListBox1.ColumnCount = .Columns.Count
ListBox1.List = .Value
End With
En la celda bu1 no pego el nombre de la columna, pero lo puedo hacer.
Me podrás, por favor, pasar el código ?
De antemano, gracias.
Un saludo.
Jorge
con la propiedad list, se puede ??

Fernando,

En un archivo de ejemplo me funciona muy bien, pero en un programa con mas
macros deja el Listbox en blanco, pero parece como si capturara los
renglones, pero no se ve nada.
Sabrás cual es el problema ??

De antemano, muchas gracias.
Un saludo.
Jorge

"Fernando Arroyo" wrote:

Si quieres que aparezcan los títulos que tú quieras asignar a cada columna, tendrás que ponerlos en BU1, BV1, etc. En caso contrario, al establecer la propiedad ColumnHeads del cuadro de lista se mostrarán como títulos los genéricos "Columna BU", "Columna BV", etc.

Con los títulos puestos en la fila 1, el código podría ser:

With Worksheets("INTERF").Range("bu1").CurrentRegion
ListBox1.ColumnCount = .Columns.Count
ListBox1.RowSource = .Offset(1, 0).Resize(.Rows.Count - 1).Address
ListBox1.ColumnHeads = True
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel


"" escribió en el mensaje news:
> Fernando,
>
> Utilizo un rango como para entrar los datos al ListBox:
> With Worksheets("INTERF").Range("bu1").CurrentRegion
> ListBox1.ColumnCount = .Columns.Count
> ListBox1.List = .Value
> End With
> En la celda bu1 no pego el nombre de la columna, pero lo puedo hacer.
> Me podrás, por favor, pasar el código ?
> De antemano, gracias.
> Un saludo.
> Jorge
> con la propiedad list, se puede ??
>

"" escribió en el mensaje news:

Fernando,

En un archivo de ejemplo me funciona muy bien, pero en un programa con mas
macros deja el Listbox en blanco, pero parece como si capturara los
renglones, pero no se ve nada.
Sabrás cual es el problema ??

Ni idea, lo siento. A mí me ha funcionado bien siempre que lo he necesitado (y esto a veces ha sido en proyectos VBA con un montón de código).
Un saludo.


Fernando Arroyo
MS MVP - Excel

De antemano, muchas gracias.
Un saludo.
Jorge