Ayuda con listbox

FELIX · June 4, 2013

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 · June 5, 2013

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" &amp; Range("Q5").End(xlDown).Row 'Rango de las columnas
End Sub