Formulario VBA con listbox, selección múltiple, no me funciona correctamente

Buenas Noches,

A través de un formulario, con un ListBox con selección múltiple, intento que me ejecute una serie de macros pata realizar determinadas consultas, pero no me funciona correctamente. únicamente me ejecuta la última macro que selecciono del ListBox. Este es el código que ejecuta la elección que se realice del mismo:

Private Sub CmdConsultar_Click() 'enviar datos seleccionados del cuadro de lista
On Error Resume Next
    Select Case lista.ListIndex
        Case -1
            MsgBox "Seleccione el periodo a consultar"
            Exit Sub
        Case 0: Call Enero
        Case 1: Call Febrero
        Case 2: Call Marzo
        Case 3: Call Abril
        Case 4: Call Mayo
        Case 5: Call Junio
        Case 6: Call Julio
        Case 7: Call Agosto
        Case 8: Call Septiembre
        Case 9: Call Octubre
        Case 10: Call Noviembre
        Case 11: Call Diciembre
        Case 12: Call Total_2015
    End Select
'borrar seleccion
For a = 0 To 13
lista.Selected(a) = False
Next a
'Unload Me
End Sub

No se donde se encuentra el error. Si fuera necesario, podría enviar un archivo de prueba.

Muchas gracias,

Saludos.

1 respuesta

Respuesta
1

Si en tu listbox "lista" tienes solamente los 12 meses, podría ser así:

Private Sub CmdConsultar_Click()
    meses = Array("Enero", "Febrero", "Marzo", "Abril")
    For a = 0 To lista.ListCount - 1
        If lista.Selected(a) Then
            Run meses(a)
        End If
    Next a
    'borrar seleccion
    For a = 0 To lista.ListCount - 1
        lista.Selected(a) = False
    Next a
End Sub

Las macros Enero a Diciembre las tienes que poner en un módulo

Prueba y me comentas

Saludos. Dante Amor

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas