ListBox con columnas VBA con encabezado
Hola... Tengo una hoja llamada HOJA1 en excel con 3 campos... Estaría así
Nombre - Edad - Sexo
ana - 21 - Femenino
Luis - 15 - Masculino
Jose - 30 - Masculino
María - 22 - Femenino
Necesito llevar esto a través del código vba ... Al cargar el form... Me lleve estos datos al listbox..., yo cree un código pero me falta agregar los datos .. la idea ES NO OCUPAR EL RowSource ... ¿por qué me obligaría a asignar un nombre al rango... Como se hace? Aquí dejo mi código .. Solo he usado el ColumnCount para decirle que el lsitbox tiene 3 columnas ... Pero no se hacer las lineas de división delas columnas ni ingresar los datos de la HOJA1 ... Por favor ayúdenme...
Private Sub UserForm_activate()
listbox1.ColumnCount = 3
End Sub
MUCHAS GRACIAS
Nombre - Edad - Sexo
ana - 21 - Femenino
Luis - 15 - Masculino
Jose - 30 - Masculino
María - 22 - Femenino
Necesito llevar esto a través del código vba ... Al cargar el form... Me lleve estos datos al listbox..., yo cree un código pero me falta agregar los datos .. la idea ES NO OCUPAR EL RowSource ... ¿por qué me obligaría a asignar un nombre al rango... Como se hace? Aquí dejo mi código .. Solo he usado el ColumnCount para decirle que el lsitbox tiene 3 columnas ... Pero no se hacer las lineas de división delas columnas ni ingresar los datos de la HOJA1 ... Por favor ayúdenme...
Private Sub UserForm_activate()
listbox1.ColumnCount = 3
End Sub
MUCHAS GRACIAS
1 Respuesta
Respuesta de Elsa Matilde
1
Dejé las instrucciones en el evento Initialize del UF, pero podrás colocarla en cualquier otro:
La idea es que recorra la col A hasta la última con datos y carque el listbox. Tanto el ancho de col como la cantidad, las podes establecer desde la lista de propiedades (ColumnsWidths y ColumnCount).
Private Sub UserForm_Initialize()
finrgo = Sheets("Hoja1").Range("A65536").End(xlUp).Row
For Each celda In Sheets("Hoja1").Range("A2:A" & finrgo)
i = ListBox1.ListCount
ListBox1.AddItem celda
ListBox1.List(i, 1) = celda.Offset(0, 1)
ListBox1.List(i, 2) = celda.Offset(0, 2)
Next celda
End Sub
Sdos
Elsa
PD) Para conocer cada propiedad de cada control, te recomiendo mi manual de formularios
http://aplicaexcel.galeon.com/manual_UF.htm
La idea es que recorra la col A hasta la última con datos y carque el listbox. Tanto el ancho de col como la cantidad, las podes establecer desde la lista de propiedades (ColumnsWidths y ColumnCount).
Private Sub UserForm_Initialize()
finrgo = Sheets("Hoja1").Range("A65536").End(xlUp).Row
For Each celda In Sheets("Hoja1").Range("A2:A" & finrgo)
i = ListBox1.ListCount
ListBox1.AddItem celda
ListBox1.List(i, 1) = celda.Offset(0, 1)
ListBox1.List(i, 2) = celda.Offset(0, 2)
Next celda
End Sub
Sdos
Elsa
PD) Para conocer cada propiedad de cada control, te recomiendo mi manual de formularios
http://aplicaexcel.galeon.com/manual_UF.htm
