problemas con el listbox
Publicado por LUISFRANCO (1 intervención) el 16/07/2009 20:40:14
CODIGO:
Private Sub consulta_de_bases(s)
Dim rng As Range
Dim I As Integer
Dim J As Integer
Dim k
Dim v
Worksheets("EXISTBOD").Activate
I = 2
k = I
J = I
Do
J = J + 1
v = Worksheets("EXISTBOD").Cells(J, 1)
Loop Until v = ""
lstdespliega.ColumnCount = 4
Set rng = Worksheets("EXISTBOD").Range(Worksheets("EXISTBOD").Cells(k, 1), _
Worksheets("EXISTBOD").Cells(J, 10))
lstdespliega.RowSource = rng.Address
lstdespliega.BoundColumn = 1
lstdespliega.ColumnWidths = "60;200;65;65"
lstdespliega.ListStyle = fmListStyleOption
Set rng = Nothing
Set k = Nothing
Set v = Nothing
End Sub
BASE DE DATOS: LISTBOX
PREGUNTA: TENGO UNA HOJA DE EXCELL DONDE TENGO UN INVENTARIO EN EL CUAL EXISTEN PRODUCTOS EN LA CELDA J O 10 CON VALORES DE CERO ; QUE TENGO QUE HACER PARA QUE EN EL EJEMPLO DE ARRIBA AL DESPLEGARSE EL LISTBOX NO ME SAQUE LOS CEROS SOLO QUE SAQUE LOS PRODUCTOS QUE TENGAN UNA CANTIDAD MAYOR A CERO PERO ME MARCA ERROR.
Private Sub consulta_de_bases(s)
Dim rng As Range
Dim I As Integer
Dim J As Integer
Dim k
Dim v
Worksheets("EXISTBOD").Activate
I = 2
k = I
J = I
Do
J = J + 1
v = Worksheets("EXISTBOD").Cells(J, 1)
Loop Until v = ""
lstdespliega.ColumnCount = 4
Set rng = Worksheets("EXISTBOD").Range(Worksheets("EXISTBOD").Cells(k, 1), _
Worksheets("EXISTBOD").Cells(J, 10))
lstdespliega.RowSource = rng.Address
lstdespliega.BoundColumn = 1
lstdespliega.ColumnWidths = "60;200;65;65"
lstdespliega.ListStyle = fmListStyleOption
Set rng = Nothing
Set k = Nothing
Set v = Nothing
End Sub
BASE DE DATOS: LISTBOX
PREGUNTA: TENGO UNA HOJA DE EXCELL DONDE TENGO UN INVENTARIO EN EL CUAL EXISTEN PRODUCTOS EN LA CELDA J O 10 CON VALORES DE CERO ; QUE TENGO QUE HACER PARA QUE EN EL EJEMPLO DE ARRIBA AL DESPLEGARSE EL LISTBOX NO ME SAQUE LOS CEROS SOLO QUE SAQUE LOS PRODUCTOS QUE TENGAN UNA CANTIDAD MAYOR A CERO PERO ME MARCA ERROR.
Valora esta pregunta


0