Colocar titulo a listbox de 3 columnas

Saludos experto tengo el código descrito mas abajo para cuando entren a al textbox1 se despliegue el listbox1 y asignarle 3 columnas y títulos, pero no logro que los titutos se llenen.
PD: Los Datos los ala de una hoja que se llama "Usuarios" y el la primera linea de la hoja están los títulos que debería poner que son "Usuario", "Cedula" y "Nombre"


Private Sub TextBox1_Enter()
ListBox1.Visible = True
ListBox1.ColumnCount = 3 'numero de columnas
ListBox1.ColumnWidths = "60;70;19" 'asignando ancho de columnas
ListBox1.ColumnHeads = True
Dim t As Long
Dim i As Long
t = Application.WorksheetFunction.CountA(Sheets("Usuarios").Range("A:A"))
ListBox1.Clear
For i = 1 To t
ListBox1.AddItem Sheets("Usuarios").Range("A" & i)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Usuarios").Range("C" & i)
ListBox1.List(ListBox1.ListCount - 1, 2) = Sheets("Usuarios").Range("B" & i)
Next
End Sub
Gracias de antemano

1 respuesta

1
Respuesta de

Hola:

Los títulos los pone, solamente en el caso que cargues el listbox con la instrucción rowsource, por ej.

Private Sub UserForm_activate()
ListBox1.ColumnCount = 3 'numero de columnas
ListBox1.ColumnWidths = "60;70;19" 'asignando ancho de columnas
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A1:C" & Range("A" & Rows.Count).End(xlUp).Row
End Sub

tip: Para limpiar el listbox, cuando lo cargas con rowsource, utiliza

ListBox1.RowSource = ""

saludos.dam

Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje