Poner titulos (ColumnsHeads) en listbox
Tengo un listbox que se alimenta de una hoja de excel pero no puedo ponerle los tutilos a las columnas solo se puede (cambiando mis datos en una tabla cosa que no deseo hacer) tengo datos desde A2:E5 y los titulos desde A1:E1 deseo poner los titulos en el listbox.. Este el codigo que generosamente me proporciono el Sr.Dante Amor... Gracias:
Private Sub UserForm_Initialize()
Sheets("Porcentaje").Select
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
ListBox1.AddItem Cells(i, "A")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "B")
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, "C")
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, "D")
ListBox1.List(ListBox1.ListCount - 1, 4) = Format(Cells(i, "E"), "0.0%")
Next
End Sub
1 Respuesta
Cuando cargas la información con rowsource, si puedes poner los títulos con la propiedad ColumnHeads = True. Pero si la cargas con additem, no se pueden cargar.
Tienes 2 opciones o los cargas como si fueran un registro más:
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Es decir, empiezas a cargar desde la fila 1.
La otra opción es que crees una etiqueta por cada título y la pongas arriba del listbox.
Si te sirvió la información, r ecuerda valorar la respuesta.
‘
S a l u d o s . D a n t e A m o r.
