porque no se ejecuta el codigo para un listbox

Question

Buen día amigos me encuentro creando un menu interactivo de inevntarios pero necesito agregarle una condicional a un listbox, solo que cuando lo ejecuto no me aparece nada en el listbox, este es el codigo que estoy haciendo me podrian decir que es lo que falla:

Private Sub UserForm_initialize()

If control2.Value = "Stock" Then

Me.ListBox1.RowSource = "inventarios"

Me.ListBox1.ColumnCount = 8

Me.ListBox1.RowSource = Clear

Me.ListBox1 = Clear

final_total = Sheet1.Range("c" & Rows.Count).End(xlUp).Row

Y = 0

For fila = 7 To final_total

Me.ListBox1.AddItem

Me.ListBox1.List(Y, 0) = ActiveSheet.Cells(fila, 3).Value

Me.ListBox1.List(Y, 1) = ActiveSheet.Cells(fila, 4).Value

Me.ListBox1.List(Y, 2) = ActiveSheet.Cells(fila, 5).Value

Me.ListBox1.List(Y, 3) = ActiveSheet.Cells(fila, 6).Value

Me.ListBox1.List(Y, 4) = ActiveSheet.Cells(fila, 7).Value

Me.ListBox1.List(Y, 5) = ActiveSheet.Cells(fila, 8).Value

Me.ListBox1.List(Y, 6) = ActiveSheet.Cells(fila, 9).Value

Me.ListBox1.List(Y, 7) = ActiveSheet.Cells(fila, 10).Value

Y = Y + 1

Next fila

End If

If control2.Value = "Movimientos" Then

Me.ListBox1.RowSource = "movi123"

Me.ListBox1.ColumnCount = 8

Me.ListBox1.RowSource = Clear

Me.ListBox1 = Clear

final_total = Sheet2.Range("b" & Rows.Count).End(xlUp).Row

Y = 0

For fila = 3 To final_total

Me.ListBox1.AddItem

Me.ListBox1.List(Y, 0) = ActiveSheet.Cells(fila, 2).Value

Me.ListBox1.List(Y, 1) = ActiveSheet.Cells(fila, 3).Value

Me.ListBox1.List(Y, 2) = ActiveSheet.Cells(fila, 4).Value

Me.ListBox1.List(Y, 3) = ActiveSheet.Cells(fila, 5).Value

Me.ListBox1.List(Y, 4) = ActiveSheet.Cells(fila, 6).Value

Me.ListBox1.List(Y, 5) = ActiveSheet.Cells(fila, 7).Value

Me.ListBox1.List(Y, 6) = ActiveSheet.Cells(fila, 8).Value

Me.ListBox1.List(Y, 7) = ActiveSheet.Cells(fila, 9).Value

Y = Y + 1

Next fila

End If

End Sub

Answer 1

Hola Carlos buen día,

Encuentro una primera mejora, permíteme comentarlo por favor, no cambia la lógica de lo que buscas, pero podría hacer más eficiente el código. Me refiero a las siguientes líneas:

Me.ListBox1.RowSource = "inventarios"
Me.ListBox1.ColumnCount = 8
Me.ListBox1.RowSource = Clear

Si limpiarás su propiedad RowSource con Clear, preferible no le asignes uno antes como el de "inventarios".

Ahora bien, respecto a la problemática principal. Entiendo que en base a lo que seleccione en un control aparte como "control2" deseas que muestra una cosa u otra en tu listbox ListBox1, ¿es así?

De ser así, todo ese código que compartes muévelo al evento AfterUpdate de dicho control "control2" en lugar del evento Intialize del formulario.
De este modo, luego de que se actualice la información en "control2" como seleccionar alguna opción, correrá todo ese código que comentas. Así, podrá leer las nuevas fuentes de datos.

Si lo haces en el evento initialize, solo lo leerá al momento de inicializar el formulario y nunca más se actualizará, en cambio con AfterUpdate de "control2" lo leerá por cada cambio que hagas en dicho control.

Me haces saber si funciona por favor.

Espero haberte ayudado, saludos desde Perú.

Answer 2

Hola Carlos Hernandez Mendez

¡Bienvenido(a) a Microsoft Q&A!

Por favor ten en cuenta que nosotros no soportamos código ni scripts sin embargo aquí te dejo algunos puntos que podrían estar causando problemas:

1. Inicialización del ListBox: Parece que estás asignando RowSource y luego lo estás limpiando inmediatamente con Clear. Esto puede estar causando que no se muestre nada en el ListBox.
2. Uso de ActiveSheet: En este caso, es mejor especificar la hoja de trabajo en lugar de usar ActiveSheet para evitar errores si la hoja activa cambia.
3. Orden de las operaciones: Asegúrate de que las operaciones se realicen en el orden correcto. Primero limpia el ListBox, luego agrega los elementos.

Aquí tienes una versión revisada de tu código:

Private Sub UserForm_initialize()

    Me.ListBox1.Clear
    Me.ListBox1.ColumnCount = 8

    If control2.Value = "Stock" Then
        final_total = Sheet1.Range("c" & Rows.Count).End(xlUp).Row
        Y = 0
        For fila = 7 To final_total
            Me.ListBox1.AddItem
            Me.ListBox1.List(Y, 0) = Sheet1.Cells(fila, 3).Value
            Me.ListBox1.List(Y, 1) = Sheet1.Cells(fila, 4).Value
            Me.ListBox1.List(Y, 2) = Sheet1.Cells(fila, 5).Value
            Me.ListBox1.List(Y, 3) = Sheet1.Cells(fila, 6).Value
            Me.ListBox1.List(Y, 4) = Sheet1.Cells(fila, 7).Value
            Me.ListBox1.List(Y, 5) = Sheet1.Cells(fila, 8).Value
            Me.ListBox1.List(Y, 6) = Sheet1.Cells(fila, 9).Value
            Me.ListBox1.List(Y, 7) = Sheet1.Cells(fila, 10).Value
            Y = Y + 1
        Next fila
    End If

    If control2.Value = "Movimientos" Then
        final_total = Sheet2.Range("b" & Rows.Count).End(xlUp).Row
        Y = 0
        For fila = 3 To final_total
            Me.ListBox1.AddItem
            Me.ListBox1.List(Y, 0) = Sheet2.Cells(fila, 2).Value
            Me.ListBox1.List(Y, 1) = Sheet2.Cells(fila, 3).Value
            Me.ListBox1.List(Y, 2) = Sheet2.Cells(fila, 4).Value
            Me.ListBox1.List(Y, 3) = Sheet2.Cells(fila, 5).Value
            Me.ListBox1.List(Y, 4) = Sheet2.Cells(fila, 6).Value
            Me.ListBox1.List(Y, 5) = Sheet2.Cells(fila, 7).Value
            Me.ListBox1.List(Y, 6) = Sheet2.Cells(fila, 8).Value
            Me.ListBox1.List(Y, 7) = Sheet2.Cells(fila, 9).Value
            Y = Y + 1
        Next fila
    End If

End Sub

Espero que con esos cambios el código si te funcione. Si necesitas más asistencia, estoy a tu disposición.

Atentamente,

Gao

---

Si esta respuesta resolvió tu consulta, por favor haz clic en 'Aceptar respuesta'. Esto nos ayuda a mejorar continuamente la calidad y relevancia de nuestras soluciones.