Programar columnas del listbox

[duvan1219]

saludos... la verdad es que he tratado de distintas formas y no he podido lograr lo siguiente:

cuando estoy en el userform de compras y le doy en el boton de siguiente, me filtra los item que

aun no tienen fecha de compra, y asi esta bien, lo que no he podido lograr es que en el listbox me aparezcan

las otras columnas como referencia y color.

muchas gracias

- - - - - Mensaje combinado - - - - -

... también me gustaría saber si hay alguna manera de llevar el consecutivo del item # de alguna forma ... ya que cuando cierro y abro el documento se reinicia el contador del item #...

Muchas Gracias. =)

subir.rar

[Invitado Gengis Khan]

Hola:

Sustituya su procedimiento por este:

Private Sub CB_Compras_Siguiente_Click()


Application.ScreenUpdating = False

UF_Compras.MultiPage1.Value = 1

Sheets("COMPRAS").Select



[B][COLOR=#008000]'Columnas y tamaño[/COLOR][/B]

[COLOR=#0000cd][B]LB_Fcha_Compra.ColumnCount = 3

LB_Fcha_Compra.ColumnWidths = "50;60;40"[/B][/COLOR]



'listbox Fecha de compra

Range("a1").Select

Do While ActiveCell <> Empty

   If ActiveCell.Offset(0, 6) = Empty Then

      LB_Fcha_Compra.AddItem

      LB_Fcha_Compra.List(LB_Fcha_Compra.ListCount - 1, 0) = ActiveCell

      LB_Fcha_Compra.List(LB_Fcha_Compra.ListCount - 1, 1) = ActiveCell.Offset(0, 2)

      LB_Fcha_Compra.List(LB_Fcha_Compra.ListCount - 1, 2) = ActiveCell.Offset(0, 3)

   End If

ActiveCell.Offset(1, 0).Select

Loop



End Sub



[/CODE]

En cuanto a utilizar un [b][i]Id autonumérico[/i][/b]:

[CODE]ItemNo = Range("A" & Rows.Count).End(xlUp) + 1[/CODE]

Debe Vd. eliminar el texto [i][b]"Item #"[/b][/i] de la columna [b]"A"[/b], si no, no funcionará.

Saludos

PD. Le recomiendo utilizar nombres mas cortos en los controles Listbox/Combobox, de lo contrario, se va Vd a hinchar a escribir.