Ayuda con listbox

[FELIX]

Hola a todos.

Estimados necesito de su apoyo nuevamente, estoy realizando un proyecto, en donde he recopilando trabajos anteriores de foristas y tengo un problemita para aplicar el ROWSOURCE y poder considerar MAS COLUMNAS a mi listbox (16), he visitado otros proyectos y al momento de adecuarlos al mio funciona en mi listbox de consulta, pero, no funciona en el de las modificaciones, así que no me queda mas que pedir ayuda.

Adjunto el archivo para que por favor lo revisen.

Slds.

FELIX

LISTBOX CON MAS COLUMNAS.rar

[Smako]

Necesitas usar este código:

Private Sub UserForm_Initialize()
    LC.ColumnCount = 17 'Columnas
    LC.ColumnHeads = True
    LC.ColumnWidths = "20;50;50;50;50;50;50;70;70;70;70;60;50;150;30;70;50;50" 'Ancho de columnas
    LC.RowSource = "A5:Q" & Range("Q5").End(xlDown).Row 'Rango de las columnas
End Sub

[FELIX]

Muchas Gracias Smako, doy por cerrado el tema.

Slds.

FELIX