none
Listbox en VB de Excel RRS feed

  • Pregunta

  • Actualmente estoy trabajando en VB de excel y en un formulario tengo un Listbox; lo que quiero mostrar en este listbox son algunos datos que cumplen con ciertos requisitos, al momento de cargar solamente me deja traer la primera columna y cuando intenta cargar las demás me trae el siguiente error:

    "Se ha producido un el error '381' en tiempo de ejecución: No se puede configurar la propiedad List. Indice de Matriz de propiedades no válido."

    Este es el metodo cargarot:

            

    Workbooks("Registro de OT").Sheets("OT").Activate
        g = 2
        s = 2
        total = 0

        Do While Cells(s, 1) <> ""
            total = total + 1
            s = s + 1
        Loop

        Do While Cells(g, 1) <> ""
            If Cells(g, 13).Value = "NA" Then
                ListBox2.AddItem (Cells(g, 1).Value)
                ListBox2.List(g, 2) = (Cells(g, 2).Value)
                'ListBox2.List(g, 3) = Cells(g, 3).Value
                'ListBox2.List(g, 4) = Cells(g, 4).Value
                'ListBox2.List(g, 5) = Cells(g, 5).Value
                'ListBox2.List(g, 6) = Cells(g, 6).Value
                'ListBox2.List(g, 7) = Cells(g, 7).Value
                'ListBox2.List(g, 8) = Cells(g, 9).Value
                'ListBox2.List(g, 9) = Cells(g, 10).Value
                'ListBox2.List(g, 10) = Cells(g, 11).Value
                'ListBox2.List(g, 11) = Cells(g, 13).Value
                'ListBox2.List(g, 12) = Cells(g, 14).Value
            End If
            g = g + 1
        Loop
    End Sub


    lunes, 8 de julio de 2013 15:23